从访问表单到 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 对象库”引用。