[已解决]VB 打开Excel窗口问题

hmchzhj

在1.xls中建立一个按钮，用按钮打开带宏的2.xls，如何使1.xls窗口始终处于前方，2.xls处于后面运行（即不可见状态）。诚心求教！！

最佳答案

月排行榜 / 总排行榜

suye1010

2014-7-13 22:00

1. Sub RunBackground()
   
2. Dim EApp As New Application, wb As Workbook
   
3. EApp.Visible = False
   
4. Set wb = EApp.Workbooks.Open("D:\2.xls")
   
5. EApp.Quit
   
6. Set wb = Nothing
   
7. Set EApp = Nothing
   
8. End Sub

复制代码

跳转到最佳答案楼层

suye1010

1. Sub RunBackground()
   
2. Dim EApp As New Application, wb As Workbook
   
3. EApp.Visible = False
   
4. Set wb = EApp.Workbooks.Open("D:\2.xls")
   
5. EApp.Quit
   
6. Set wb = Nothing
   
7. Set EApp = Nothing
   
8. End Sub

复制代码

hmchzhj

谢了，验证了，不过得在2里加上Me.Close savechanges:=False