VB6.0 获取Excel文件工作表Sheet的名称

获取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