以文本方式查看主题

-  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