主讲人：张志MVP
2003-2013连续10年荣获微软最有价值专家(MVP)
主讲人：张志MVP
主讲人介绍：2003-2013连续10年荣获微软最有价值专家(MVP)
▲ 打开Excel模板并写入数据
'模板文件路径
strTemplate = CurrentProject.Path & "\订单模板.xlt"
'创建Excel对象
Set objApp = CreateObject("Excel.Application")
'打开模板文件
Set objBook = objApp.Workbooks.Open(strTemplate)
objBook.Sheets("销售订单").Select
With objApp
'写入数据
.Range("B2") = Me.订单ID
……
End With
