Ошибка времени выполнения «50290»: ошибка приложения или объекта при открытии книги Excel - PullRequest
Новая
       33

Ошибка времени выполнения «50290»: ошибка приложения или объекта при открытии книги Excel

1 голос
/ 19 апреля 2019

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

Это мой код доступа 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.Workbooks.Open (excelPath, readonly: = True)

Считайте, что:

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