新手关于EXCEL的问题——急盼指导！！！

Question

Dim xlApp As Object  'excel程序的对象
Dim xlBook As Object 'excel的工作簿
Dim xlSheet As Object  'excel的工作表
Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True  '设成false可以隐藏excel
        Set xlBook = xlApp.Workbooks.Add(App.Path + "\XXX.xls")  '在程序所在的目录下打开excel文件
        Set xlSheet = xlBook.Worksheets(1)  '打开第一张工作表
xlSheet.cells(1,1) = adoXXX.Recordset.Fields("XXX").Value '把某条记录里的某个字段的值付值给表里的A1
xlBook.Save    '保存工作表
xlSheet.Printout  '打印工作表
xlApp.Quit      '退出excel
这样的原代码应该够明白了吧！

Answer 1

看来有一定难度，不过自己只要去专，我想一定能解决