Недопустимое исключение приведения было обработано в приложении Excel

Question

 Dim oExcel As Excel.ApplicationClass = New Excel.ApplicationClass
            Dim objWS As New Microsoft.Office.Interop.Excel.Worksheet
            Dim oBook As Excel.WorkbookClass
            Dim oBooks As Excel.WorkbookClass

            'Start Excel and open the workbook.
            oExcel = CreateObject("Excel.Application")
            oExcel.Visible = True
            oBooks = oExcel.Workbooks
            oBook = oBooks.Open("H:\Copy of Book1.xlsm")

Всем привет! У меня ошибка Invalid Cast Exception в oExcel = CreateObject("Excel.Application")

Я использую Visual Basic и пытаюсь открыть файл Excel с именем Copy of Book1. Я также использую Microsoft Excel 2010. Есть идеи, как исправить эту ошибку? Заранее спасибо!

Answer 1

Как сказано в комментарии, если вы просто хотите запустить Excel и открыть файл, измените код следующим образом

Dim oExcel As Excel.Application = New Excel.Application
Dim oBook As Excel.Workbook

'Start Excel and open the workbook.    
oExcel.Visible = True
oBook = oExcel.Workbooks.Open("H:\Copy of Book1.xlsm")

Answer 2

Попробуй это:

Sub openExcel()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
Dim ws As Worksheet
Dim wb As Workbook

objExcel.Visible = True
Set wb = objExcel.Workbooks.Open("H:\Copy of Book1.xlsm")
End Sub