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


  共有1956人关注过本帖树形打印复制链接

主题：【求助】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


加好友 发短信
等级：幼狐 帖子：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也不会少
 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/16 19:48:00 [显示全部帖子]

老师怎么我在命令窗口执行输出这么多张sheet啊？？

sheet1
Sheet2
Sheet14
Sheet15
Sheet16
Sheet17
Sheet18
Sheet19
Sheet20
Sheet21
Sheet22
Sheet23
Sheet24
[此贴子已经被作者于2016/12/19 20:51:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/16 21:25:00 [显示全部帖子]

老师，您用5楼这张Excel表试没问题？？会不会跟office版本有关系呢？？

 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/17 9:24:00 [显示全部帖子]

我改成：For j As Integer = 0 To 10 就可以了，用For j As Integer = 0 To  book.sheets.count - 1就是不知道其他的sheet是怎么多出来的，麻烦老师帮忙找找原因？？

 回到顶部
帅哥哟，离线，有人找我吗？
好吧
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：117 积分：973 威望：0 精华：0 注册：2016/11/1 8:13:00 		  发帖心情 Post By：2016/12/19 19:59:00 [显示全部帖子]

狐狸爸爸，可不可以帮我把我上传的表都删了？？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询