Excel 使背景工作簿可见-VBA

使用VBA的新功能：）

我编写了一个VBA代码，将打开的电子邮件的“条目ID”复制到现有Excel工作簿中的特定单元格中。 当工作簿在后台打开时，代码也可以工作，但我无法使工作簿可见。 （当工作簿一开始没有打开时-一切正常）

我尝试使用命令xlapp.visible=true并将其放置在代码中的不同位置-它根本不起作用

非常感谢您的帮助：）

这是我目前掌握的代码：

Sub EntryIDtoXL()
Dim x

x = ActiveExplorer.Selection.Item(1).entryid

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook

    On Error Resume Next
    Set xlApp = GetObject(, "excel.application")
    If xlApp Is Nothing Then Set xlApp = New Excel.Application
    xlApp.Visible = True
    Set xlWB = xlApp.Workbooks.Open("C:\Users\username\Documents\test.xlsm")
    xlWB.Worksheets("Sheet1").Activate
    xlWB.Worksheets(1).Rows("5:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    xlWB.Worksheets(1).Range("k5").Value = x

End Sub
    

---

我猜当工作簿已经打开时，

工作簿.Open

调用失败，但我认为，

可见的

调用应该会成功。如果在

xlApp.Visible=True

行之前将

设置为错误转到0

，会发生什么情况？