利用Access vba在Excel工作表顶部插入空行

在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

运行结果