一个打开的工作簿看不到其他打开的工作簿

Question

我们有这款老式软件，可以打开新的 Excel 工作簿并在其中填充数据。它不再做任何事情。工作簿保持未保存状态并打开。

现在我创建了一个宏，它按名称查找这个新打开的工作簿（使用 Workbooks.Count 和 Application.Workbooks(i).Name），当找到它时，它从中复制一些数据。

不幸的是，自从升级到 Office 365 后，Excel 看不到未保存的工作簿，因此宏停止工作。未保存的工作簿甚至不计入 Workbooks.Count 中。

有什么办法可以让我在最新版本的 Excel 中再次执行此操作吗？

两个打开的工作簿

在 VBA 中只有一个可见

编辑：不幸的是我无法编辑oldschool程序的代码。令我困扰的是，当我使用 2013 excel 时，它运行得非常完美。

Sub zkopirujPoctyZeSesitu()

rozdilPoctuZbozi = 0
rozdilUZbozi = 0
Dim aktualne As Integer
Dim bylo As Integer
Dim franta As String
idSesit = -1
Dim hledas As String

'nalezeni ID Sešitu z NAV
For i = 1 To Workbooks.Count

    If InStr(Application.Workbooks(i).Name, "Sešit") > 0 Then
        idSesit = i
    ElseIf InStr(Application.Workbooks(i).Name, "GENERATOR") > 0 Then
        idGenerator = i
    End If
Next i

'kontrola zda je otevřenej stav skladu
If idSesit = -1 Then
    MsgBox ("Nelze načíst stav skladu z NAV!!!!")
    End
ElseIf Not (Workbooks(idSesit).Worksheets(1).Cells(1, 1).Text = "Číslo zboží" And Workbooks(idSesit).Worksheets(1).Cells(1, 2).Text = "Varianta zboží") Then
    MsgBox ("Je třeba zavřít všechny Excel soubory s názvem" & Chr(34) & "Sešit" & Chr(34) & vbNewLine & "(kromě výstupního DatSkladu z NAV)")
    End

End If



For i = 1 To List1.Cells(Rows.Count, 1).End(xlUp).Row

    If Len(List1.Cells(i, 1).Text) = 5 And Left$(List1.Cells(i, 1).Text, 1) = "0" Then
        hledas = Right(List1.Cells(i, 1).Text, Len(List1.Cells(i, 1).Text) - 1)
    Else
        hledas = List1.Cells(i, 1).Value
    End If
    Set FoundCell = Workbooks(idSesit).Worksheets(1).Range("A:A").Find(What:=hledas, After:=Workbooks(idSesit).Worksheets(1).Cells(1, 1), LookIn:=xlFormulas, _
                                                                       LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                                                                       MatchCase:=False, SearchFormat:=False)
    
    If Not FoundCell Is Nothing Then
       
        'ochrana proti Mertens lagerSchuette
        If (Workbooks(idSesit).Worksheets(1).Cells(FoundCell.Row, 6).Value < 0) Then
            MsgBox ("Stav skladu je z Mertensu!!!!")
            End
        End If
        
        'o kolik se lisi stav
        aktualne = Workbooks(idSesit).Worksheets(1).Cells(FoundCell.Row, 6).Value
        bylo = List1.Cells(i, 20).Value
        
        rozdilPoctuZbozi = rozdilPoctuZbozi + aktualne - bylo
        'pocet zbozi u kteryho je rozdilny stav
        If aktualne <> bylo Then
            rozdilUZbozi = rozdilUZbozi + 1
        End If
        
        'prepis poctu ks
        List1.Cells(i, 20).Value = Workbooks(idSesit).Worksheets(1).Cells(FoundCell.Row, 6).Value
        
    End If

Next i

结束子

Answer 1

首先，您需要检查内存中是否有另一个Excel实例正在运行，即是否有另一个excel.exe进程正在运行。如果是这样，您可以考虑连接到正在运行的 Excel 实例并从那里获取 Workbooks 集合。但是，您需要注意两个进程可以在不同的安全上下文下运行，在这种情况下，无法从另一个进程访问另一个进程。

您可能会发现 GetObject 和 CreateObject 行为办公自动化服务器文章很有帮助。