以下是引用雁过不留痕8在2012-12-24 9:35:00的发言：
我在想是不是应该按你说的将app定义成全局变量，但是我不会设置
菜单->管理项目->全局代码
然后定义 Public App As New MSExcel.Application
-----------------------------使用如下
Dim a As Integer
Dim c As Integer
a=Tables("窗口1_table1").Rowsel
c=Tables("窗口1_table1").colsel
Dim b As Row
b= Tables("窗口1_table1").Rows(a)
'直接使用
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("c:\2.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(b(c)) 'x为整数,表示打开第几个sheet
Ws.Select()
app.Visible = True
--------------------------------
最后在程序关闭的的时候，或者任意时候，执行app.Quit
加好友 
发短信
Post By：2012/12/24 9:14:00 [显示全部帖子]
