以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何动态获取Excel中的sheet表名?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103848)

--  作者:alstjg
--  发布时间:2017/7/18 15:26:00
--  [求助]如何动态获取Excel中的sheet表名?
在foxtable中如何动态获取导入Excel中的sheet表名?谢谢.
--  作者:有点甜
--  发布时间:2017/7/18 15:39:00
--  
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim book As new XLS.Book(dlg.FileName)
    Dim name As String = book.sheets(0).name
    msgbox(name)
End If

--  作者:alstjg
--  发布时间:2017/7/29 20:16:00
--  
谢谢