VBA ошибка Несоответствие типов при настройке диапазона Excel в слове

Question

У меня есть следующий код, как часть моего суб пытается назначить диапазон:

'Set xlApp = CreateObject("Excel.Application") 

Dim xlApp As Object 
Set xlApp = GetObject(, "Excel.Application") 
xlApp.Visible = False 
xlApp.ScreenUpdating = False 

Dim CRsFile As String 
Dim CRsMaxRow As Integer 

' get the CR list 
CRsFile = "CRs.xls" 
Set CRsWB = xlApp.Workbooks.Open("C:\Docs\" + CRsFile) 
With CRsWB.Worksheets("Sheet1") 
    .Activate 
    CRsMaxRow = .Range("A1").CurrentRegion.Rows.Count 

    Set CRs = .Range("A2:M" & CRsMaxRow) 

End With 

Dim interestingFiles As Range 

' get the files names that we consider interesting to track 
Set FilesWB = xlApp.Workbooks.Open("files.xlsx") 
With FilesWB.Worksheets("files") 
    .Activate 
    Set interestingFiles = .Range("A2:E5") 
End With 

Есть ли у вас какие-либо идеи, почему я получаю несоответствие типов во время выполнения ошибка?

Answer 1

Просьба указать объект xlApp, как в нижнем коде. Также вы предоставляете полный путь для своей книги при ее открытии.

Sub test() 
     Dim interestingFiles As Range 
     Dim xlApp As Object 

     Set xlApp = GetObject(, "Excel.Application") 
     ' get the files names 

     Dim path As String 
     path = "C:\Users\Santosh\Desktop\file1.xlsx" 

     Set FilesWB = xlApp.Workbooks.Open(path) 
     With FilesWB.Worksheets(1) 
      .Activate 
      Set interestingFiles = .Range("A2:E5") 
     End With 

    End Sub 

Answer 2

Если вы запустили код из Word, то проблема заключается в объявлении переменной «interestingFiles». Диапазон существует в Word, а также, поэтому используйте либо вариант, либо добавьте ссылку на Excel, а затем используйте Excel.Range.

Без справки Excel:

Dim interestingFiles As Variant 

И со ссылкой Excel:

Dim interestingFiles As Excel.Range