訪問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）

回答

相關問題