【求助】excel表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【求助】excel表

共有2397人关注过本帖树形打印复制链接主题：【求助】excel表

好吧

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

加好友

发短信

等级：幼狐帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00

【求助】excel表 发帖心情

Post By：2016/12/16 17:08:00 [只看该作者]

老师，请问我要循环打开的excel表中的多张sheet，红色部分的代码可以这样写？？为什么我这样写，总会循环多出一张奇怪的表呢？？

Dim dlg As new OpenFileDialog

dlg.Filter = "Excel文件|*.xls;*.xlsx"

dlg.MultiSelect = True '允许选择多个文件

If dlg.ShowDialog = DialogResult.OK Then

For Each file As String In dlg.filenames

Dim dt As DataTable = DataTables("临时表")

Dim dt1 As DataTable = DataTables("销售订单管理")

Dim book As new XLS.Book(file)

For j As Integer = 0 To book.sheets.count - 1

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/16 17:13:00 [只看该作者]

我测试，没问题。

是不是你excel文件就是多了一个隐藏的表？

好吧

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

加好友

发短信

等级：幼狐帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00

Post By：2016/12/16 17:21:00 [只看该作者]

没有啊，隐藏的我都删了。

我这样改 For j As Integer = 0 To book.sheets.count - 5

结果也是一样，而且循环的sheet也不会少

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/16 17:22:00 [只看该作者]

不可能，做个例子发上来。

好吧

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

加好友

发短信

等级：幼狐帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00

Post By：2016/12/16 18:41:00 [只看该作者]

谢谢啦！！

[此贴子已经被作者于2016/12/19 20:49:41编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/16 19:40:00 [只看该作者]

我测试，没问题

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
dlg.MultiSelect = True '允许选择多个文件
If dlg.ShowDialog = DialogResult.OK Then
    For Each file As String In dlg.filenames
        Dim book As new XLS.Book(file)
        For j As Integer = 0 To book.sheets.count - 1
            output.show(book.sheets(j).name)
        Next
    Next
End If