访问2013：数据复制到Excel和打印（VBA）

我想一个按钮，当点击来自“字段1”，拷贝资料和“域2”到Excel电子表格为“战地3”和“4场”并打印结果。访问2013：数据复制到Excel和打印（VBA）

基本上，一旦有人下订单，我点击“支付”按钮，它推动信息为模板，打印。

2013-04-27 user2325065

下面的代码应该让你开始。 Excel模板OrderSheet.xltx有两个单元命名范围：field3和field4。其余的应该是不言自明的。

Private Sub cmdPlaceOrder_Click() 
Dim objExcel As Object '' Excel.Application 
Dim objSheet As Object '' Excel.Worksheet 
Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Add "C:\Users\Public\OrderSheet.xltx" 
objExcel.Range("field3").Value = Me.txtField1.Value 
objExcel.Range("field4").Value = Me.txtField2.Value 
Set objSheet = objExcel.ActiveSheet 
objSheet.PrintOut 
Set objSheet = Nothing 
objExcel.ActiveWorkbook.Close False '' save changes = No 
objExcel.Quit 
Set objExcel = Nothing 
End Sub

来源

2013-04-27 16:14:44

谢谢，我试了一下代码，并做了一些调整，但我无法编译。我究竟做错了什么？私人小组PayStatus_Click（）读PayStatus 如果PayStatus = “有偿” 然后昏暗objExcel为对象'Excel.Application 昏暗objSheet为对象'Excel.Worksheet 设置objExcel =的CreateObject（ “Excel.Application”） objExcel.Workbooks.Add“C：\ Users \ Weusi \ Desktop \ Receipts.xltx” objExcel.Range（“BookingNumber”）。Value = Me.BookingNumber.Value objExcel.Range（“DateBooked”）。Value = Me .DateBooked.Value Set objSheet = objExcel.ActiveSheet objSheet.PrintOut objSheet = Nothing – user2325065 2013-04-28 19:45:35

[objExcel.ActiveWorkbook.Close False''保存更改=否 objExcel.Quit objExcel = Nothing End If – user2325065 2013-04-28 19:46:16

@ user2325065什么是编译错误消息和哪一行被突出显示？ – 2013-04-28 20:03:01

访问2013：数据复制到Excel和打印（VBA）

回答

相关问题