Create new excel file using VBA in a Word Doc - excel

Question

I'm trying to create a new excel workbook where I'll put in data from an array I generated.
I keep getting this error, "Run-time error '424': Object Required"
I'm using code that I found online at this link.
Set NewBook = app.Workbooks.Add
With NewBook
.Title = "Cable Numbers"
.Subject = "Documentation"
'parentFld is a file path where a previous document is being used
.SaveAs FileName:=parentFld & "CableNumbers.xlsx"
End With
The workbook isn't even being created. How can I create a new workbook if my macro is in a word document?
Here's some more of my code for reference:
Function SelectFile()
With Application.FileDialog(msoFileDialogFilePicker)
' show the file picker dialog box
If .Show <> 0 Then
SelectFile = .SelectedItems(1)
End If
End With
End Function
Function PrintValue(PrintRow As Long, PrintCol As Long, ArrayName As ArrayList, ArrayIndex As Long)
'Probably doesn't work. I want to print the value from the array into a spreadsheet's first column
app.ActiveSheet.Cells(PrintRow, PrintCol) = ArrayName(ArrayIndex)
End Function
Sub getFirstColumn()
' Gets the first column of all tables in a given file
'Declare variables
Dim wbName As String
Dim TableCount, tableNum As Integer 'This is the number of tables in thedocument minus 1 since loop starts at 0'
Dim dataCell As Variant
Dim printRowCounter, indexCounter As Long
Dim docO As Document
Dim app As Object
Dim fileObj, fldObj As New FileSystemObject
Set fileObj = CreateObject("Scripting.FileSystemObject")
Set fldObj = CreateObject("Scripting.FileSystemObject")
Set app = CreateObject("Excel.Application")
printRowCounter = 1
indexCounter = 0
'Choose a file to get data from. This is a ms Word doc
MsgBox "Choose a workbook file. This file must have a table in it."
wbPath = SelectFile()
wbName = CStr(fileObj.GetFileName(wbPath))
Documents(wbName).Activate
parentFld = fldObj.GetParentFolderName(wbPath)
TableCount = ActiveDocument.Tables.Count
Dim firstColArray As ArrayList
Set firstColArray = New ArrayList
For tableNum = 1 To TableCount
RowCount = ActiveDocument.Tables(tableNum).Range.Rows.Count
For rowNum = 1 To RowCount
ActiveDocument.Tables(tableNum).Cell(Row:=rowNum, Column:=1).Select 'For testing purposes
cellContent = ActiveDocument.Tables(tableNum).Cell(Row:=rowNum, Column:=1)
If cellContent = "" Then
GoTo Skip
Else
dataCell = ActiveDocument.Tables(tableNum).Cell(Row:=rowNum, Column:=1)
firstColArray.Add dataCell
End If
Skip:
Next rowNum
Next tableNum
MsgBox "All data has been collected." & vbNewLine & "Creating an excel file..."
'Creating an excel workbook and inputing data
Set NewBook = app.Workbooks.Add
With NewBook
.Title = "Numbers"
.Subject = "Documentation"
.SaveAs.Close FileName:=parentFld & "\Numbers.xlsx"
End With
app.Workbooks("Numbers.xlsx").Activate
For Each thing In firstColArray
app.ActiveSheet.Cells(printRowCounter, 1) = firstColArray(indexCounter)
printRowCounter = printRowCounter + 1
indexCounter = indexCounter + 1
Next thing
End Sub

Answer 1

Function FileExists(FName As String) As Boolean
' Returns True if the file FName exists, else False
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
FileExists = fs.FileExists(FName)
Set fs = Nothing
End Function
Set oxlApp = CreateObject("Excel.Application")
excelStatus = FileExists(CStr(newExcelPath))
If excelStatus = True Then 'If the file exists, append to it
excelStatus = "append"
ElseIf excelStatus = False Then 'If the file doesn't exist, create a new file
excelStatus = "new"
Set NewBook = oxlApp.Workbooks.Add
With NewBook
.Title = "Cable Numbers"
.Subject = "Documentation"
.SaveAs fileName:=newExcelPath
.Close
End With
End If
Set oxlWbk = oxlApp.Workbooks.Open(fileName:=newExcelPath) 'Open
If excelStatus = "new" Then 'If the excel is new, select the first sheet
'oxlWbk.ActiveWorkbook.Sheets(1).Select
ElseIf excelStatus = "append" Then 'If the excel is old, add a sheet to the end and select it
oxlApp.ActiveWorkbook.Sheets.Add After:=oxlWbk.Sheets(oxlWbk.Sheets.Count)
oxlApp.ActiveWorkbook.Sheets(oxlWbk.Sheets.Count).Select
End If