运行时错误438尝试将输出保存到excel

Question

我接下来没有接受VBA培训，主要是通过复制现有脚本来完成的。我正在尝试将新文件保存到我的驱动器上的某个位置，并从几行中复制，这些行在另一个脚本中运行良好。但是，特别是对于这个，我收到以下错误。

  

运行时错误＆＃39;＆＃39;＆＃39;

：

     

对象不支持此属性或方法。

Dim i As Long
Dim MyCounter As Integer
ReDim MyArray(1 To 4000) As String
Dim xlApp, xlWB As Object 
Dim ObjOutputBook As Workbook 
Dim strOutputPath As String 
Dim OutFileNum 

'Where file is saved
    strOutputPath = "C:\Users\Me\Documents\VBA Output\"

'initialize excel
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlWB = xlApp.Workbooks '.Open(strInputPath)

'Output File

xlWB.SaveAs strOutputPath & "InnList_Add_Log" & Format(Now(), "yyyymmdd_hh-nn") & ".xlsx"
Set xlWS = xlWB.Sheets.Add
    xlWS.Name = "Load Code Log"

我不确定其他哪些信息可能是相关的，但我之前没有遇到过这个问题，似乎没有什么能解决它。

谢谢！