以文本方式查看主题

-  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=28193)

--  作者:jiangmingc
--  发布时间:2013/1/22 10:58:00
--  新手求教,我想在下拉框里导入选定的excel文件~~
我看了一下帮助是导入数据库文件,我改成   dlg.Filter= "Excel文件|*.xls" ,不行啊。
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter= "Access文件|*.mdb" \'设置筛选器
If
dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim
mg As New Merger
   
mg.SourcePath = dlg.FileName
   
mg.SourceTableName = "订单"
   
mg.DataTableName = "订单"
   
mg.Merge()
End If


我现在的代码是这样的。

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 = "成绩统计$"

    mg.DataTableName = "初一学生成绩"

    mg.Merge()

End If


提示运行错误。不可识别的数据库格式 \'C:\\初一学生成绩.xls\'。



[此贴子已经被作者于2013-1-22 11:31:26编辑过]

--  作者:jiangmingc
--  发布时间:2013/1/22 11:16:00
--  
我想在下拉框里导入选定的excel文件,是不是只能导入数据库文件啊?
--  作者:lin_hailun
--  发布时间:2013/1/22 13:09: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.SourceTableName = "成绩统计$"

    mg.Format = "excel"

    mg.DataTableName = "初一学生成绩"

    mg.Merge()

End If


http://www.foxtable.com/help/topics/0685.htm
[此贴子已经被作者于2013-1-22 13:08:47编辑过]

--  作者:jiangmingc
--  发布时间:2013/1/22 13:36:00
--  
非常感谢,我需要继续学习~~~