- 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=48358)
-- 发布时间：2014/3/27 15:31:00
-- [求助]关于导入excel表内容
此主题相关图片如下：43.jpg
此主题相关图片如下：44.jpg
代码：
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 = "养殖户信息" \'指定要合并的表
mg.DataTableName = "养殖户信息" \'指定接收数据的表
mg.Merge() \'开始合并
End If
怎么找不到对象呢？
-- 发布时间：2014/3/27 15:37: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 = "养殖户信息$" \'指定要合并的表
mg.DataTableName = "养殖户信息" \'指定接收数据的表
mg.Merge() \'开始合并
End If
还是不行,说明你表名就不对. Excel中,表名和文件名是两回事. 表名显示在左下角. 也称呼为SHEET 名
-- 发布时间：2014/3/27 15:38:00
--
我试一下，谢谢BIN老大
-- 发布时间：2014/3/27 15:44:00
--
OK，多谢BIN老大