Resize a dynamic table in another workbook - excel

Question

I have two workbooks. One is macro enabled that scrapes data together and puts in nicely formatted into another plain workbook. This helps with security issues for users who can't run macros.
I have done a lot without issue, but here I'm stuck. I made a very simple example:
Sub Test()
Dim appExcel As Excel.Application
Dim wDatabase As Workbook
Dim ob As ListObject
Set appExcel = CreateObject("Excel.Application")
'DOESN'T WORK when run from another workbook
Set wDatabase = appExcel.Workbooks.Open("C:\Test\Book1.xlsx")
'WORKS when macro run in the book with the table (and above line commented out)
'Set wDatabase = ActiveWorkbook
Set ob = wDatabase.Sheets("Sheet1").ListObjects("Table1")
ob.Resize Range("$B$3:$D$13")
'Save changes
wDatabase.Save
wDatabase.Close
End Sub
Two workbooks: Book1.xlsx and Book2.xlsm
Book1.xlsx has a table ("Table1") on "Sheet1" in cells B3 to D14. I want to make it B3 to D13.
If I run the macro with that worksheet active (as shown with the commented out code). It works fine. When I try to do it from another workbook, it errors out. Sometimes it will say "Run-time error '1004': This action won't work on multiple selections." Other times Excel enters a corrupt mode and say
"Run-time error '-2147023170 (800706be0)'; Automation error. The
remote procedure call failed."
I cannot find a reason!
The range should resize.
*Edit: Changing this worked!
Set wDatabase = Workbooks.Open("C:\Test\Book1.xlsx") Thanks chris neilsen!

Answer 1

Resize a Table Using Another Instance of Excel (Error Handling)
Sub Test()
Dim IsSuccess As Boolean
On Error GoTo ClearError ' start error-handling routine...
Dim xlApp As Excel.Application: Set xlApp = New Excel.Application
Dim wb As Workbook: Set wb = xlApp.Workbooks.Open("C:\Test\Book1.xlsx")
Dim ws As Worksheet: Set ws = wb.Sheets("Sheet1")
Dim lo As ListObject: Set lo = ws.ListObjects("Table1")
' If you want to see how it works when an error occurs,
' uncomment the Err.Raise line.
' Create a breakpoint and in the Task Manager locate the new instance
' under Background Processes. If you don't use 'Quit', it will remain
' open after the procedure exits.
'Err.Raise 13
' With 'F8', step through the rest of the code to see its flow.
' In the Task Manager see how the instance is gone.
lo.Resize ws.Range("B3:D13") ' the header row needs to be 3
IsSuccess = True
ProcExit:
On Error Resume Next ' prevent endless loop if error in the following lines
If Not wb Is Nothing Then wb.Close IIf(IsSuccess, True, False)
If Not xlApp Is Nothing Then xlApp.Quit
On Error GoTo 0
Exit Sub
ClearError: ' ... continue error-handling routine
Debug.Print "Run-time error '" & Err.Number & "':" & vbLf & Err.Description
Resume ProcExit ' redirect to exit routine
End Sub