主题：求指点，代码发生错误却能打开

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