- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135098)
-- 发布时间：2019/5/16 21:34:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:一键导入表.xls |
导入是提示：
.NET Framework 版本：2.0.50727.9035
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
外部表不是预期的格式。
导入代码为：
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"
dlg.MultiSelect = True \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
For Each fl As String In dlg.FileNames
Dim mg As New Merger
mg.SourcePath = fl
mg.Format = "excel" \'指定格式
mg.SourceTableName = "sheet0$"
mg.DataTableName = "一键导入表"
mg.Merge()
Next
End If
此主题相关图片如下：批注 2019-05-16 213206.png
-- 发布时间：2019/5/16 21:57:00
--
你这个文件的后缀，不是xls，而是xlsx，修改成为这个 一键导入表.xlsx
-- 发布时间：2019/5/21 19:39:00
--
修改成一键导入表.xlsx后的代码为
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx|Word文件|*.doc|Access文件|*.mdb"
dlg.MultiSelect = True \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
For Each fl As String In dlg.FileNames
Dim mg As New Merger
mg.SourcePath = fl
mg.Format = "excel" \'指定格式
mg.SourceTableName = "sheet0$"
mg.DataTableName = "一键导入表"
mg.Merge()
Next
End If
提示“sheet0$”不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。如下图所示
此主题相关图片如下：批注 2019-05-21 193751.png
-- 发布时间：2019/5/21 20:18:00
--
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx"
dlg.MultiSelect = True \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
For Each fl As String In dlg.FileNames
Dim mg As New Merger
mg.SourcePath = fl
mg.Format = "excel2007" \'指定格式
mg.SourceTableName = "sheet1$"
mg.DataTableName = "一键导入表"
mg.Merge()
Next
End If
-- 发布时间：2019/5/21 20:21:00
--
可以了，谢谢