求--建立VB6调用Excel通用模块．
网上找的一个通用程序
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象不可见
ShtName'表名
Set xlSheet = xlBook.Worksheets(ShtName) '设置活动工作表

发此帖的目的
　　请各位大侠帮助补充一下，建立一个通用的调用VB6与Excel的通用模块．

[解决办法]
比较全面了啊