從訪問表單到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 

你必須處理錯誤時的錯誤處理。
請注意，您必須在工具菜單下的access vba編輯器中添加「Microsoft Excel 1＃.0 Object library」參考。