office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-06-07 08:00:00
tmtony8
原創
656

在access中經常需要導齣數據到Excel中,前麵我們講過《access創建Excel工作簿併啟動

如何在Excel中插入內容呢?這裡我們以工作錶頂部插入空行爲例,如下圖


通過下麵的代碼,直接在錶格中第一行之前添加一行空白行


 Dim xlApp As Excel.Application
    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 & "\示例工作簿.xlsx")
    Set xlWsh = xlWbk.Worksheets("員工檔案")
    xlWsh.Activate
    '在工作錶的第一行之前插入空白行
    xlWsh.Range("1:1").Insert xlDown
    Set xlWbk = Nothing
    Set xlApp = Nothing



運行結果

    分享