使用 Word 中的 VBA 的不同 excel 实例之间存在冲突

Question

从 MS Word 文件中，我有一个 VBA 宏，它必须以不可见模式打开 excel 才能从中获取数据。问题是当我启动宏时，它会关闭任何其他运行 excel 实例并显示“1004”运行时错误，指出 << The rows method of the _global object failed >>.

Sub getDataFromExcel()
        Dim List
        Dim xlApp As Object
        Dim xlBook As Object
        Dim xlSheet As Object
        Dim xlSheetNum As Integer
        Dim iStarted As Boolean
        Dim lRow As Long
        Const strWorkBookName As String = "P:\Data_Source.xlsx"
        If Dir(strWorkBookName) = "" Then
          MsgBox "Cannot find the designated workbook: " & strWorkBookName, vbExclamation
          Exit Sub
        End If

        ' Test whether Excel is already running.
        On Error Resume Next
        iStarted = False ' Flag to record if we start Excel, so we can close it later.
        Set xlApp = GetObject(, "Excel.Application")
        'Start Excel if it isn't running
        If xlApp Is Nothing Then
          Set xlApp = CreateObject("Excel.Application")
          If xlApp Is Nothing Then
            MsgBox "Can't start Excel.", vbExclamation
            Exit Sub
          End If
          ' Record that we've started Excel.
          iStarted = True
        End If
        On Error GoTo 0

        Set xlBook = xlApp.Workbooks.Open(FileName:=strWorkBookName, ReadOnly:=True)
        xlApp.Visible = False


        'Find the last non-blank cell in column A
         lRow = xlBook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row  '<<< this line causes the error

         List = xlApp.Transpose(xlBook.Worksheets(1).Range("A2:A" & lRow).Value)
         ' Do something with List

Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub

如何避免此类冲突？

Answer 1

确定您的 Rows 参考....

lRow = xlBook.Worksheets(1).Cells(xlBook.Worksheets(1).Rows.Count, 1).End(xlUp).Row

使用 Word 中的 VBA 的不同 excel 实例之间存在冲突

Conflict between different excel instances using VBA from Word

excel

vba

ms-word

conflict