Foxtable读取Excel文件代码求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Foxtable读取Excel文件代码求助

共有2144人关注过本帖树形打印复制链接主题：Foxtable读取Excel文件代码求助

绿火柴

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：480 积分：4470 威望：0 精华：0 注册：2014/3/4 21:20:00

Post By：2020/6/6 17:04:00 [显示全部帖子]

2003，2007格式的EXCEL都可以用。

工作簿，通过窗口选择

要导入的工作表： "工作表名$"。

生产的内部表："XXX表"

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

dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器

'导入EXCEL数据--------------------------

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim mg As New Importer

mg.SourcePath = dlg.FileName

mg.SourceTableName = "工作表名$"

mg.NewTableName = "XXX表"

If right(dlg.filename,4)=".xls" Then

mg.Format = "Excel" '入格式

Else

mg.Format = "Excel2007"

End If

mg.Import()

End If

'导入EXCEL数据---------------------------

绿火柴

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：480 积分：4470 威望：0 精华：0 注册：2014/3/4 21:20:00

Post By：2020/6/6 18:18:00 [显示全部帖子]

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

dlg.Filter= "excel文件|*.xls|excel2007|*.xlsx" '设置筛选器

'合并EXCEL数据--------------------------

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim mg As New Merger

mg.SourcePath = dlg.FileName

mg.SourceTableName = "Sheet1$"

mg.DataTableName = "产品xxx"

If right(dlg.filename,4)=".xls" Then

mg.Format = "Excel" '入格式

Else

mg.Format = "Excel2007"

End If

mg.Merge()

End If

下一主题 >> << 上一主题

主题：Foxtable读取Excel文件代码求助