從訪問表單到 excel 的 1 個字段的 Vba 代碼

Question

我可以放在訪問表單按鈕中的最簡單的 VBA 代碼是什么，該按鈕將字段值導出到 excel 中的指定單元格？

Answer 1

請在 StackOverflow 中提交問題之前進行搜索。 這個問題有多種答案，而且您也沒有提供足夠的背景知識。
你的Excel打開了嗎？
您的 Excel 是否已創建？
我將附加代碼以創建 Excel 的新實例，並將文本寫入特定單元格。

Private Sub Button_Click()
Dim objExcel As Excel.Application
Dim objSheet As Excel.Workbook

Set objExcel = New Excel.Application
Set objSheet = objExcel.Workbooks.Open("C:\MyExcelfile.xlsx")

objExcel.Range("C6").Value = "Some text to write here"
objExcel.Range("D7").Value = me.textboxSomething.value

objSheet.save
Set objSheet = Nothing
objExcel.Quit
Set objExcel = Nothing
End sub

如果出現錯誤，您必須處理錯誤處理。
請注意，您必須在訪問 vba 編輯器的工具菜單下添加“Microsoft Excel 1#.0 對象庫”引用。