access操作excel数据并保存预览打印并退出

将xlApp调成Excel。应用程序
将xlBook作为工作簿，将xlSheet作为工作表

Set xlApp = CreateObject("Excel。application ")
Set xlApp = New Excel。应用程序
xlApp。visible = True
Set XL book = XL app。workbooks . Open(" e:\ data \ database \ temp . xls ")
Set XL sheet = XL book。工作表(1)

打开数据表
dimtablea作为记录集，db作为数据库，wks作为工作区
dimtmpdate作为字符串，tmpbumen作为字符串，tmpleibie作为字符串，tmpJinE作为货币
Dim X作为Long，作为Long
setwks = work spaces(0)
setdb = current db()
settablea = db . Open recordset(" Report-Collection Table of Materials in this Month "，dbOpenSnapshot)'打开查询
或者部门名称
tmpLeiBie = TableA！Category
tmpJinE = TableA！支出表。Cells(3，1) = "制表日期:"+tmpDate+" month "
y = val(tmpLeiBie)
x = val(tmppumen)+8
XL sheet . cells . Or部门名称
tmpLeiBie = TableA！Category
tmpJinE = TableA！支出金额
Y = val(tmpleibie)
x = val(tmppumen)+8
XL sheet . cells(x，Y) = tmpJinE
TableA。MoveNext
Loop
tablea . close
XL book。保存
xlSheet。print preview
XL book . close
XL app。放弃