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