在Word中设置Excel范围时出现VBA类型不匹配错误

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

如果您从 Word 运行代码，则问题出在“interestingFiles”变量的声明中。 范围也存在于 Word 中，因此请使用 Variant 或添加对 Excel 的引用，然后使用 Excel.Range。

没有 Excel 引用:

Dim interestingFiles As Variant

并附有 Excel 引用:

Dim interestingFiles As Excel.Range