主题：[求助]生成Excel后如何打开该Excel文件中指定的工作表

改成这样试试

Dim dlg As new SaveFileDialog
dlg.Filter = "excel|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
    CurrentTable.SaveExcel(dlg.FileName, CurrentTable.name)
    If FileSys.FileExists(dlg.FileName) Then
        Dim App As New MSExcel.Application
        try
            Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.filename)
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(CurrentTable.name)
            ws.Select
            app.visible = True
        catch ex As exception
            msgbox(ex.message)
            app.quit
        End try
    End If
End If

 参考

http://www.foxtable.com/webhelp/scr/2126.htm