'产生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