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。放弃
0条评论