以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何导入excel中多个表格?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64024)

--  作者:LLL
--  发布时间:2015/2/3 16:15:00
--  如何导入excel中多个表格?
如何导入excel中多个表格?
--  作者:Bin
--  发布时间:2015/2/3 16:16:00
--  
http://www.foxtable.com/help/index.html?n=0184.htm

导入的时候可以选择导入哪个表, 一个个导入

--  作者:LLL
--  发布时间:2015/2/3 16:18:00
--  我有一千个表格 难道就要导入一千次吗?
我有一千个表格 难道就要导入一千次吗?
--  作者:Bin
--  发布时间:2015/2/3 16:21:00
--  
那就编写代码导入



Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For Each Sheet As XLS.Sheet In Book.Sheets
   
   Dim ip as New Importer
ip.SourcePath = "c:\\test\\订单.xls\'指定数据文件
ip
.SourceTableName = Sheet.Name  & "$" \'指定要的表
ip
.NewTableName ="订单" \'后的表名
ip.Format = "Excel" 
\'指定格式

ip
.Import()
Next

--  作者:Bin
--  发布时间:2015/2/3 16:21:00
--  
新手建议先看一下我们的帮助
打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助

--  作者:LLL
--  发布时间:2015/2/3 16:23:00
--  
好!