以文本方式查看主题

-  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=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
--  
非常感谢，我需要继续学习~~~