Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]遍历sheet表名时特别慢


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

主题：[求助]遍历sheet表名时特别慢
帅哥哟，离线，有人找我吗？
moseser
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00 		[求助]遍历sheet表名时特别慢  发帖心情 Post By：2023/11/27 14:43:00 [只看该作者]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog 
dlg.Filter = "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Vars("Path_in") = dlg.FileName
    
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
    Dim filter As String
    For Each ws As MSExcel.WorkSheet In Wb.WorkSheets
        filter = filter & "|" & ws.Name
    Next 
    filter = filter.TrimStart("|")
    e.Form.Controls("ComboBox1").ComboList = filter
End If

我做了一个按钮，按钮的命令如上，当选择表是，下拉框的列表就显示表名，可是非常慢，不如咱们软件的高速合并快，请问什么原因？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/27 14:56:00 [只看该作者]

vba一向就慢，处理后一定要关闭文档：
……
    e.Form.Controls("ComboBox1").ComboList = filter
App.quit
End If

如果只是获取sheet名称，不涉及复杂的内容控制，建议使用XLS.Book：http://www.foxtable.com/webhelp/topics/1152.htm
 回到顶部
帅哥哟，离线，有人找我吗？
moseser
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00 		回复：（有点蓝）vba一向就慢，处理后一定要关闭文档：...  发帖心情 Post By：2023/11/27 17:33:00 [只看该作者]

为啥咱们软件自带的很快

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/27 17:42:00 [只看该作者]

那个不需要调用office的组件，没用到vba

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


加好友 发短信
等级：小狐 帖子：358 积分：3005 威望：0 精华：0 注册：2023/6/7 16:07:00 		  发帖心情 Post By：2023/11/27 18:19:00 [只看该作者]

如果需要：我可以向你提供获取excel表名的函数，需要引入NPOI

 回到顶部
帅哥，在线噢！
y2287958
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4759 积分：34603 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2023/11/28 7:55:00 [只看该作者]

建议数据源会快很多

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


加好友 发短信
等级：三尾狐 帖子：622 积分：5303 威望：0 精华：0 注册：2022/4/4 14:42:00 		回复：（有点蓝）那个不需要调用office的组件，没用到...  发帖心情 Post By：2023/11/28 8:21:00 [只看该作者]

咱们软件是如何做到的呢？

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/28 8:42:00 [只看该作者]

那是C1自带的功能，底层怎么处理的我们也不清楚

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


加好友 发短信
等级：六尾狐 帖子：1279 积分：7953 威望：0 精华：4 注册：2017/12/31 14:53:00 		  发帖心情 Post By：2023/11/28 9:43:00 [只看该作者]

想问下，C1有没官方手册链接？可以看看C1里Excel处理共有哪些方法属性

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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/28 9:47:00 [只看该作者]

https://www.grapecity.com/componentone/docs

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