Microsoft Access 掲示板

既存ブックを開いて、行を挿入する場合のコード例

Sub Accessで既存ブックを開いて行挿入()
    Dim xls As Object
    Set xls = CreateObject("Excel.Application")
    xls.Visible = True
    
    Dim wb As Object 'ワークブックオブジェクト
    Set wb = xls.Workbooks.Open(Filename:="C:\Test\Test.xlsx")
    
    Dim i As Long, j As Integer
    i = 1
    j = 5
    
    With wb
        .Sheets(1).Rows(21 + i).Resize(j).Insert
        .Save
        .Close
    End With
    xls.Quit
    Set xls = Nothing
    Set wb = Nothing
End Sub

Openメソッドでブックを開きますが、戻り値は開いたブックなのでそれを変数に代入しておいてあとで利用します。
開いたブックの先頭シートに行挿入してます。
行挿入はRowsを使った方がコードがシンプルになります。