Microsoft
Office应用程序提供了一个顶层Application 对象。下面语句显示了对Microsoft Excel的Application
对象的引用,用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。:
Dim xlApp As Excel.Application Set xlApp = New
Excel.Application Set xlApp =
CreateObject("Excel.Application") xlApp.Visible = False Set xlBook
= xlApp.Workbooks.Open(strDestination) Set xlSheet =
xlBook.Worksheets(1) 用EXCEL
2000设计报表的模版文件
Dim strSource, strDestination As String strSource = App.Path
&; "\Excels\dangan.xls" strDestination = App.Path &
"\Excels\Temp.xls" FileCopy strSource, strDestination Set mobjExcel
= New Excel.Application Set mobjExcel =
CreateObject("Excel.Application") mobjExcel.Visible = False Set
mobjworkbook = mobjExcel.Workbooks.Open(strDestination) Set xlsheet =
mobjworkbook.Worksheets(1) If Not opendatasource() Then MsgBox
"不能打开数据源!", , "提示" Unload Me Exit Sub End If Private
Function opendatasource() ssql="select
shgt_dah,shgt_yth,shgt_ajtm,shgt_chtrq, shgt_shjdw,shgt_wzysh,shgt_tzzhsh,shgt_gdrq,shgt_bz
from shgtajb" OpenResultset ssql, mrdors opendatasource =
True Exit Function End
Function 生成工作表内容
有了上述两步工作的铺垫,我们只要根据模板的格式给各单元格赋值如:
Do while Not mrdors.Eof i=4 For j=0 to
mrdors.rdocolumns.count-2 MobjExcel.Activesheet.cells(i,j+1).value=mrdors.rdocolumns(j).Value Next Mrdors.movenext Loop 打印报表