主题：求教，如何获取excle表格所有sheet的名称

参考这里

http://www.foxtable.com/webhelp/scr/1150.htm

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    For Each s As XLS.Sheet In book.Sheets
        msgbox(s.Name)
    Next
End If