为什么在vba执行后，工作簿会变成隐藏状态

这是子

Sub test() With ThisWorkbook .Worksheets("Sheet1").Range("A1").Value = 5 .Save End With End Sub 

这是启动子的vbscript

 dim eApp set eApp = GetObject("C:\Users\Owner\Desktop\Book1.xlsm") eApp.Application.Run "Book1.xlsm!test" set eApp = nothing 

它执行得很好，但工作簿由于某种原因被隐藏。 我必须取消隐藏View - -> Unhide

为什么会发生这种情况，以及如何解决

Answer 1

运行你的vbs更清晰的方法如下

 Dim ObjExcel, ObjWB Set ObjExcel = CreateObject("excel.application") Set ObjWB = ObjExcel.Workbooks.Open("C:\Users\Owner\Desktop\Book1.xlsm") 'make it visible ObjExcel.Visible = True ObjExcel.Run "Book1.xlsm!test" ObjWB.Close False ObjExcel.Quit Set ObjExcel = Nothing