利用Access vba在Excel工作錶頂部插入空行

在access中經(jīng)常需要導(dǎo)齣數(shù)據(jù)到Excel中，前麵我們講過(guò)《access創(chuàng)建Excel工作簿併啟動(dòng)》

如何在Excel中插入內(nèi)容呢？這裡我們以工作錶頂部插入空行爲(wèi)例，如下圖

通過(guò)下麵的代碼，直接在錶格中第一行之前添加一行空白行

 Dim xlApp As Excel.Application
    Dim xlWbk As Excel.Workbook
    Dim xlWsh As Excel.Worksheet
    '穫?cè)≈付ǖ墓ぷ麇l
    Set xlApp = GetObject(, "Excel.Application")
    xlApp.Visible = True
    Set xlWbk = xlApp.Workbooks.Open(CurrentProject.Path & "\示例工作簿.xlsx")
    Set xlWsh = xlWbk.Worksheets("員工檔案")
    xlWsh.Activate
    '在工作錶的第一行之前插入空白行
    xlWsh.Range("1:1").Insert xlDown
    Set xlWbk = Nothing
    Set xlApp = Nothing

運(yùn)行結(jié)果