获取Excel文件工作表Sheet的名称
'产生Excel文档
Dim xlapp, xlbook As Object
Dim sSheetName As String
Set xlapp = CreateObject("Excel.Application") 'Excel对象
Set xlbook = xlapp.Workbooks.Open(Me.txtFileName.Text) '打开已经存在的EXCEL文件
xlapp.Visible = False '设置EXCEL对象可见(或不可见)
xlapp.DisplayAlerts = False
sSheetName = xlbook.Worksheets().Name '获取工作表的名称 '释放资源
xlbook.Close
xlapp.Quit