Microsoft Access 掲示板

新規ブックを開いて、行挿入する場合は、Openメソッドの代わりにAddメソッドを使います。
保存するときにファイル名を指定するようにします。

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