Файл excel не найден при ссылке на ошибку времени выполнения

Question

Я пытаюсь запустить макрос, но при ссылке на файл excel, который у меня установлен, я получаю ошибку времени выполнения и основные моменты, которые ссылаются на мой путь. Я почти уверен, что это правильный путь, потому что я пошел к свойствам файла первенствовать и скопировал расположение

Set xlWB = xlApp.Workbooks.Open(strPath) 

---

' Get Excel set up 
enviro = CStr(Environ("USERPROFILE")) 
'the path of the workbook 
Debug.Print strPath = enviro & "\Documents\multipliers.xls" 
    On Error Resume Next 
    Set xlApp = GetObject(, "Excel.Application") 
    If Err <> 0 Then 
     Application.StatusBar = "Please wait while Excel source is opened ... " 
     Set xlApp = CreateObject("Excel.Application") 
     bXStarted = True 
    End If 
    On Error GoTo 0 
    'Open the workbook to input the data 
    Set xlWB = xlApp.Workbooks.Open(strPath) 
    Set xlSheet = xlWB.Sheets("Test1") 
    ' Process the message record 

Answer 1

Ваш файл является .xlsx файл, не .xls как в вашем коде. Измените следующую строку:

strPath = enviro & "\Documents\multipliers.xls" 

к:

strPath = enviro & "\Documents\multipliers.xlsx" 

Answer 2

Private Sub doingstuff() 
     Dim xlWB As Workbook 
     On Error Resume Next 
     Set xlApp = GetObject(, "Excel.Application") 
     If Err <> 0 Then 
      Application.StatusBar = "Please wait while Excel source is opened ... " 
    Set xlApp = CreateObject("Excel.Application") 
    bXStarted = True 
End If 
On Error GoTo 0 
strPath = Environ("USERPROFILE") & "\Desktop" & "\" & "Book2" & ".xlsm" 
Set xlWB = Workbooks.Open(strPath) 
End Sub 

это прекрасно работает для меня.