以文本方式查看主题

-  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=154219)
--  作者：luoyafeng
--  发布时间：2020/9/8 14:29:00
--  [求助]想要实现导入Excel文件，
点想要实现点击按钮导入Excel数据，可点击后没任何反应图片点击可在新窗口打开查看是发生了什么

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

   Dim mg As New Merger
    mg.Format = "excel" \'指定格式
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "sheet1"
    mg.DataTableName = "顺丰数据明细"
    mg.Merge()
End If
--  作者：有点蓝
--  发布时间：2020/9/8 14:37:00
--  
试试
……
   Dim mg As New Merger
    mg.Format = "excel" \'指定格式
    mg.SourcePath = dlg.FileName
    mg.SourceTableName = "sheet1$"
    mg.DataTableName = "顺丰数据明细"
    mg.Merge()


另外，execl的标题是否和foxtable的列名一致？


一些Excel文件，可能需要在表名后加上符号$才能正常导入，例如：

Dim mg As New Merger
mg.SourcePath = "c:\\data\\销售管理.xls"
mg.Format = "excel" \'指定格式
mg.SourceTableName = "订单$" \'指定要合并的表
mg.DataTableName = "订单" \'指定接收数据的表
mg.Merge() \'开始合并