专家坐堂-导出EXCEL表定位显示位置Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导出EXCEL表定位显示位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=163830)

--  作者：hopestarxia
--  发布时间：2021/4/26 11:05:00
--  导出EXCEL表定位显示位置

Dim Book As New XLS.Book(ProjectPath & "Attachments\\hsdc.xls")
Dim Sheet As XLS.Sheet = Book.Sheets("A06")
Dim fl As String = ProjectPath & "Reports\\ZCFZH.xls"
Book.Build(0)
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("A06")
App.Visible = True
ShowAppWindow("hsdc",2)

老师，以上是我窗口中的数据导出的代码，我的模板文件hsdc.xls工作簿里有好多个表，以上代码能让其中的A06表得到正确的数据，但是点导出按钮后，打开的表位置不在A06表的位置（即有可能显示的是A08位置，工作簿有表A01至A20共20个），
请问代码能否加上定位到打开的工作簿具体显示到A06表的位置。

--  作者：有点蓝
--  发布时间：2021/4/26 11:12:00
--
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("A06")
Ws.Select

--  作者：hopestarxia
--  发布时间：2021/4/27 10:26:00
--
谢谢老师