- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- EXCEL导入临时表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=176784)
-- 发布时间：2022/4/26 21:42:00
-- EXCEL导入临时表
Dim dtb As New DataTableBuilder("订单")
dtb.Build()
MainTable = Tables("订单")
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xlsx|Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ip As New Importer
ip.SourcePath = dlg.FileName \'指定数据文件
ip.SourceTableName = "Sheet1$" \'指定要导入的表
ip.NewTableName = "订单" \'导入后的表名
ip.Format = "Excel" \'指定导入格式
ip.Import()
End If
请问如何将EXCEL导入临时表
有没有办法让指定要导入的表，用代码自己识别
[此贴子已经被作者于2022/4/26 21:42:44编辑过]
-- 发布时间：2022/4/26 22:00:00
--
使用这种方式导：http://www.foxtable.com/webhelp/topics/2334.htm
-- 发布时间：2022/4/26 22:05:00
--
Dim nms() As String = {"编号","产品","客户","雇员","单价","折扣","数量","日期"}
这个可以让临时表自己添加吗？
-- 发布时间：2022/4/26 22:08:00
--
Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dtb As New DataTableBuilder("订单") |
For n As Integer = 1 To Sheet.cols.Count -1
dtb.AddDef(Sheet(0,n), GetType(String), 255)
next
dtb.Build()
-- 发布时间：2022/4/26 22:17:00
--
此主题相关图片如下：01.jpg
-- 发布时间：2022/4/26 22:20:00
--
dtb.AddDef(Sheet(0,n).text, GetType(String), 255)
-- 发布时间：2022/4/26 22:21:00
--
此主题相关图片如下：01.jpg
-- 发布时间：2022/4/26 22:27:00
--
指定2007或2010格式
-- 发布时间：2022/4/26 22:30:00
--
哪里指定？
-- 发布时间：2022/4/26 22:33:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter = "Excel文件|*.xlsx|Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dtb As New DataTableBuilder("订单")
For n As Integer = 1 To Sheet.cols.Count - 1
dtb.AddDef(Sheet(0, n).Value, GetType(String), 255)
Next
dtb.Build()
MessageBox.Show("5")
End If
此主题相关图片如下：01.jpg
帮我看看哪里错了
[此贴子已经被作者于2022/4/26 22:43:07编辑过]