Как мне избавиться от этой ошибки компиляции в VBA?

Question

Private Sub Command0_Click()
On Error GoTo Err_CmdImportExcel_Click

Docmd.TransferSpreadsheet acImport,acSpreadsheetTypeExcel12Xml,[Consumables Inventory List],[C:\jmoree_import\Consumables Project],True)

Exit_CmdImportExcel_Click:
Exit Sub

Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub

"Я получаю сообщение об ошибке компиляции Любая помощь будет отличной"

Answer 1

У вас есть несколько проблем:

1. Вам необходимо заключать буквенные строковые аргументы в двойные кавычки, например:

   DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "Consumables Inventory List", "C:\jmoree_import\Consumables Project", True
   ' Missing double-quotes -----------------------------------------^--------------------------^--^------------------------------------^
   

2. У вас есть завершающие закрывающие скобки:

   Docmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, ..., True)
   ' Trailing closing parenthesis should not be here ------------------------^
   

3. Необходимо указать полное имя файла .xls/.xlsx файла, который нужно импортировать, а не просто путь к файлу:

   "C:\jmoree_import\Consumables Project"
   

   Это должно быть что-то вроде:

   "C:\jmoree_import\Consumables Project\Consumables.xlsx"