刚学VB不懂,急需跪求 利用VB读取ACCESS数据库中的数据并生成EXCEL报表

VB操作EXCEL如果上网搜索一下可以有很多结果，问题是，我们要面对的EXcel版本各不相同，如何兼容？
笔者先前发过一个office版本的测试程序。本来是想动态引用的。
因为我们知道，所有的操作都是从工程引用开始，但是不同的Office版本要求你的引用也不尽相同，根据测试的结果，动态引用是一个思路，但是，office的版本是不断更新的，现在已经到了Office15，以后还会有新版本。动态引用的文件不可预知。
换一个思路：我就操作office2003，高版本的自然应该向下兼容吧。但是，这样，我们就不能从引用开始了。
直接打开一个文件来创建EXCEL对象！不管你多高的版本，我打开一个低版本的文件，你得支持吧。就这样。
使用打开方式创建对象：
Dim excelApp, ExcelBook, ExcelSheet
Set excelApp = CreateObject("Excel.Application")
Set ExcelBook = excelApp.Workbooks.Open(App.Path & "\excel\模板.xls")
excelApp.Visible = True
Set ExcelSheet = ExcelBook.Worksheets(1) '添加工作页
ExcelSheet.Activate
excelApp.DisplayAlerts = False
修改excel的内容：
ExcelSheet.Range(A).Value = rs2.Fields(i) 这个是将数据库里的一个内容填充到索引变量名为A的单元格
这个是我在空间里发的文章，vb操作excel完美攻略里的节选部分，欢迎访问。