在表A的窗口一的table1中click输入以下代码
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 proc1 As new process
proc1.file=b(c)
proc1.start()
Dim App As New MSExcel.Application
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
预览点击时出现系统找不到指定文件,点确定后却打开了
想问一下,我这是哪里出了问题?
求指点,先谢谢各位了