在Access中，我们需要把数据写入到excel中

下面分享个示例，把数据写入到指定的单元格中：详细代码如下

Dim xlApp As Object

Dim xlWbk As Excel.Workbook

Dim xlWsh As Excel.Worksheet

Set xlApp = GetObject(, "Excel.Application")

xlApp.Visible = True

Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例1.xlsx")

Set xlWsh = xlWbk.Worksheets(1)

xlWsh.Activate

xlWsh.Range(txtRange).Value = Me.txt1 '在指定单元格中输入文本框中的内容

xlWbk.Save '保存

Set xlWsh = Nothing

Set xlWbk = Nothing

Set xlApp = Nothing