- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Merger高速导入SourceTableName如何动态表示？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75548)
-- 发布时间：2015/10/10 9:05:00
-- Merger高速导入SourceTableName如何动态表示？
Merger高速导入SourceTableName如何动态表示？
如何让导入SourceTableName等于打开文件的名字？
此主题相关图片如下：2015年10月10日.png
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.SourceTableName = "dlg.filename"
mg.DataTableName = "书目"
mg.Merge()
End If
-- 发布时间：2015/10/10 9:24:00
--
mg.SourceTableName = FileSys.GetName(dlg.FileName).Split(".")(0)
-- 发布时间：2015/10/10 9:45:00
--
提示错误：
此主题相关图片如下：2015年10月10日2.png
-- 发布时间：2015/10/10 16:40:00
--
加上 mg.Format = "excel" \'指定格式
-- 发布时间：2015/10/11 9:35:00
-- 仍然还有问题，代码如下
提示错误：外部表不是预期的格式。
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel"
mg.SourceTableName = FileSys.GetName(dlg.FileName).Split(".")(0)
mg.DataTableName = "书目"
mg.Merge()
End If
-- 发布时间：2015/10/11 9:51:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "excel"
Dim book As new XLS.Book(dlg.fileName)
mg.SourceTableName = book.Sheets(0).name & "$"
mg.DataTableName = "书目"
mg.Merge()
End If
-- 发布时间：2015/10/11 10:10:00
-- 仍然有错误，提示：Failed to open storage file.
仍然有错误，提示：Failed to open storage file.
好像发现问题原因了，里边的第一张表名不是：sheet，而是和文件名一致，
因为excel文件是从别的软件导出的，第一个表名和工作簿名称一致，这样的话，如何修改代码？
[此贴子已经被作者于2015/10/11 10:16:19编辑过]
-- 发布时间：2015/10/11 12:24:00
--
你的excel肯定有问题，打开后另存为 97-2003 格式的xls文件