以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助，导入Excel有些问题。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49839)
--  作者：zstk7333
--  发布时间：2014/4/24 20:21:00
--  求助，导入Excel有些问题。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


图片点击可在新窗口打开查看此主题相关图片如下：捕捉.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2014/4/24 20:34:00
--  

 代码这样写

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName \'指定数据文件
    ip.Format = "Excel"
    ip.SourceTableName = "分析$" \'指定要导入的表
    ip.NewTableName ="分析" \'导入后的表名
    ip.Import()
End If
--  作者：zstk7333
--  发布时间：2014/4/24 20:55:00
--  回复：（有点甜） 代码这样写 Dim dlg ...
 如果导入的excel表格要在窗口的table1上显示出来，该如何编程呢？谢谢
--  作者：有点甜
--  发布时间：2014/4/24 21:04:00
--  
以下是引用zstk7333在2014-4-24 20:55:00的发言：
 如果导入的excel表格要在窗口的table1上显示出来，该如何编程呢？谢谢

 

代码

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName \'指定数据文件
    ip.Format = "Excel"
    ip.SourceTableName = "分析" \'指定要导入的表
    ip.NewTableName ="分析" \'导入后的表名
    ip.Import()
End If

e.Form.Controls("Table1").Table.DataSource = DataTables("分析")

[此贴子已经被作者于2014-4-24 21:04:15编辑过]
--  作者：zstk7333
--  发布时间：2014/4/24 21:19:00
--  回复：（有点甜）以下是引用zstk7333在2014-4-24 20:5...

十分感谢！
--  作者：zstk7333
--  发布时间：2014/4/24 21:24:00
--  回复：（有点甜）以下是引用zstk7333在2014-4-24 20:5...
好像还是有这样的问题呢？还是会出现刚才的错误提示
[此贴子已经被作者于2014-4-24 21:27:06编辑过]
--  作者：有点甜
--  发布时间：2014/4/24 21:35:00
--  

再改一下代码

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName \'指定数据文件
    ip.Format = "Excel"
    ip.SourceTableName = "分析$" \'指定要导入的表
    ip.NewTableName ="分析" \'导入后的表名
    ip.Import()
End If

 

e.Form.Controls("Table1").Table.DataSource = DataTables("分析")

 
--  作者：zstk7333
--  发布时间：2014/4/24 21:39:00
--  回复：（有点甜）再改一下代码 Dim dlg As N...
我复制粘贴的都不行，难道是我的系统有问题吗？我把我复制的窗口也一并奉上，谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
--  作者：有点甜
--  发布时间：2014/4/24 21:52:00
--  

 回复8楼下面的代码没有错，你的excel表，里面有一个叫 分析 的表吗？

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName \'指定数据文件
    ip.Format = "Excel"
    ip.SourceTableName = "分析$" \'指定要导入的表
    ip.NewTableName ="分析" \'导入后的表名
    ip.Import()
End If

e.Form.Controls("Table1").Table.DataSource = DataTables("分析")
--  作者：zstk7333
--  发布时间：2014/4/24 21:59:00
--  回复：（有点甜） 回复8楼下面的代码没有错，你的...
哦，不好意思。我弄错了。如果我想导入的文件名不确定，又该如何处理？谢谢