Блог

Существует множество вопросов по этой теме, но эффективного решения не существует.

Это мой код Access VBA.

 Dim fDialog As Object
Set fDialog = Application.FileDialog(3)

Dim excelPath As String
excelPath = ""

With fDialog
    .Title = "Carica da Template"
    .AllowMultiSelect = False
    .Filters.Clear

    If .Show = True Then
        If .SelectedItems.Count > 0 Then
            excelPath = .SelectedItems(1)
        End If
    End If
End With

If Len(excelPath) = 0 Then
    GoTo Cerca_Exit
End If

Set fDialog = Nothing

Dim sql As String
sql = "DELETE FROM [Pianificazione Risorse];"
DoCmd.RunSQL sql

Dim mExcel As Object
Set mExcel = CreateObject("Excel.Application")
Dim mBook As Object
Set mBook = mExcel.Workbooks.Open(excelPath, readonly:=True)
mExcel.Visible = False
Dim mSheet As Object
Set mSheet = mBook.Worksheets(1)
 

Я открываю диалоговое окно для загрузки файла Excel, но на этом этапе я получаю эту ошибку:

Установите mBook = mExcel .Книги.Открыть (excelPath, только для чтения: = True)

Учтите, что:

• этот файл закрыт
• файл Excel не открыт
• в диспетчере задач нет EXCEL.EXE выполнение задачи