Access数据写入指定的excel单元格中

在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