| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]遍历sheet表名时特别慢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189355) |
| -- 作者：moseser -- 发布时间：2023/11/27 14:43:00 -- [求助]遍历sheet表名时特别慢 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 我做了一个按钮，按钮的命令如上，当选择表是，下拉框的列表就显示表名，可是非常慢，不如咱们软件的高速合并快，请问什么原因？
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2023/11/27 17:33:00 -- 回复：（有点蓝）vba一向就慢，处理后一定要关闭文档：... 为啥咱们软件自带的很快 |
| -- 作者：有点蓝 -- 发布时间：2023/11/27 17:42:00 -- 那个不需要调用office的组件，没用到vba |
| -- 作者：puma -- 发布时间：2023/11/27 18:19:00 -- 如果需要：我可以向你提供获取excel表名的函数，需要引入NPOI |
| -- 作者：y2287958 -- 发布时间：2023/11/28 7:55:00 -- 建议数据源会快很多 |
| -- 作者：moseser -- 发布时间：2023/11/28 8:21:00 -- 回复：（有点蓝）那个不需要调用office的组件，没用到... 咱们软件是如何做到的呢？ |
| -- 作者：有点蓝 -- 发布时间：2023/11/28 8:42:00 -- 那是C1自带的功能，底层怎么处理的我们也不清楚 |
| -- 作者：chen37280600 -- 发布时间：2023/11/28 9:43:00 -- 想问下，C1有没官方手册链接？可以看看C1里Excel处理共有哪些方法属性 |
| -- 作者：有点蓝 -- 发布时间：2023/11/28 9:47:00 -- https://www.grapecity.com/componentone/docs |