Access中曏Excel單元格中録入數(shù)據(jù)

access常常需要和Excel錶格交互數(shù)據(jù)。比如把a(bǔ)ccess窗口中的文本寫入到Excel單元格中

如圖所示，曏單元格“B3”中輸入內(nèi)容“office交流網(wǎng)”，點(diǎn)擊輸入到Excel錶格中

詳細(xì)代碼如下：主要是通過創(chuàng)建Excel對象，把指定內(nèi)容録入到指定的單元格中

    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

效果如圖所示