| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何返回工作表集合？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187187) |
| -- 作者：moseser -- 发布时间：2023/6/29 13:52:00 -- [求助]如何返回工作表集合？ Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter = "Excel文件|*.xls|excel文件|*.xlsx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 \'文件的地址： dlg.FileName Dim Book As New XLS.Book(dlg.FileName) Dim Sheet As XLS.Sheet = Book.Sheets(0) ……………… endif 这里是指定了返回第1个工作表，我想返回所有工作表的集合，然后再自己选择具体的工作表，该如何操作？ |
| -- 作者：有点蓝 -- 发布时间：2023/6/29 14:02:00 -- For Each Sheet As XLS.Sheet In Book.Sheets MsgBox(sheet.Name) Next |