[求助]用对话框的方式批量导入可以实现吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]用对话框的方式批量导入可以实现吗？

共有3051人关注过本帖树形打印复制链接主题：[求助]用对话框的方式批量导入可以实现吗？

xiaoyongxg2

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：144 积分：1107 威望：0 精华：0 注册：2014/6/1 10:22:00

Post By：2014/9/24 13:39:00 [只看该作者]

甜老师，我想把文件名做为导入后的表名

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then

For Each fl As String In dlg.FileNames

Dim book As new XLS.Book(fl)

For Each sheet As XLS.Sheet In book.Sheets

Dim ip As New Importer

ip.SourcePath = fl

ip.Format = "excel"

ip.SourceTableName = sheet.Name & "$"

ip.NewTableName = fl

ip.Import()

End If

出错了，'~TMPCLPC:\Users\think\Desktop\临时\国药控股北京有限公司.xls' 不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。

我想可能是在.xls这出问题了，但我不知道怎么能去掉.xls

有点甜

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/24 14:05:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim book As new XLS.Book(fl)
        For Each sheet As XLS.Sheet In book.Sheets
            Dim ip As New Importer
            ip.SourcePath = fl
            ip.Format = "excel"
            ip.SourceTableName = sheet.Name & "$"
            Dim fn As String = FileSys.GetName(fl)
            ip.NewTableName = fn.SubString(0, fn.IndexOf("."))
            ip.Import()
        Next
    Next
End If

xiaoyongxg2

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：144 积分：1107 威望：0 精华：0 注册：2014/6/1 10:22:00

Post By：2014/9/24 14:09:00 [只看该作者]

谢谢甜老师，真是给您添麻烦了

下一主题 >> << 上一主题

总数 23 上一页 1 2 3

主题：[求助]用对话框的方式批量导入可以实现吗？