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

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

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

xiaoyongxg2

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

加好友

发短信

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

[求助]用对话框的方式批量导入可以实现吗？ 发帖心情

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

甜老师，用对话框的方式进行批量导入excel文件，且文件名和表名都不一样，可以实现吗？

有点甜

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

加好友

发短信

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

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

可以，看示例2

http://www.foxtable.com/help/topics/0328.htm

xiaoyongxg2

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

加好友

发短信

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

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

出错了，找不到哪不对，甜老师

System.Data.OleDb.OleDbException: SELECT 子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then

For Each fl As String In dlg.FileNames

Dim ip As New Importer

ip.SourcePath = dlg.FileName

ip.SourceTableName = fl

ip.NewTableName = fl

ip.Import()

End If

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

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

ip.Format ="Excel"

ip.SourceTableName = fl & "$"

xiaoyongxg2

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

加好友

发短信

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

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

是这样吗？

Dim dlg As New OpenFileDialog

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then

For Each fl As String In dlg.FileNames

Dim ip As New Importer

ip.Format ="Excel"

ip.SourcePath = dlg.FileName

ip.SourceTableName = fl & "$"

ip.NewTableName = fl

ip.Import()

End If

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

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

嗯.

有点甜

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

加好友

发短信

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

Post By：2014/9/24 10:23: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 = dlg.FileName
            ip.Format = "excel"
            ip.SourceTableName = sheet.Name & "$"
            ip.NewTableName = sheet.Name
            ip.Import()
        Next
    Next
End If

xiaoyongxg2

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

加好友

发短信

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

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

导一个没问题，成批导还是出刚才的错误

有点甜

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

加好友

发短信

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

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

不可能有问题，如果有问题，就是你的excel表格不符合规范

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 = dlg.FileName
            ip.Format = "excel"
            ip.SourceTableName = sheet.Name & "$"
            ip.NewTableName = sheet.Name & Rand.Next(10000)
            ip.Import()
        Next
    Next
End If

xiaoyongxg2

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

加好友

发短信

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

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

如果是文件格式不规范的话，不应该会单个导入正常，批量出错啊

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

总数 23 1 2 3 下一页

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