投稿日	： 2005/09/03(Sat) 14:20
投稿者	： あり
Ｅメール	：
ＵＲＬ	：
タイトル	： EXCELの行追加について

EXCELで帳票を作成するプログラムを作成中です。
以下のコードにより、行のコピーを行い、行挿入を行う処理があります。

単発で起動すると正常終了するのですが、連続して処理を行うと「Selection.Copy」のところで
エラーになります。
　実行時エラー'91':
　オブジェクト変数またはwithブロック変数が設定されていません。

原因と対処方法を教えていただけないでしょうか？
宜しくお願いします。

Private Sub excel_set()
    'EXCELの決定
    Set xl = CreateObject("Excel.Application")
    wb_path = "TEST.xls"
    Set wb = xl.Workbooks.Open(wb_path)
    Set ws = wb.Worksheets(ws_path)
    
'年式の数だけ行を操作する
    For idx1 = 1 To wrk_nen - 2 Step 1
        ws.Rows("21:21").Select
        Selection.Copy
        Selection.Insert Shift:=xlDown
    Next
    For idx1 = 1 To wrk_nen - 2 Step 1
        ws.Rows("7:7").Select
        Selection.Copy
        Selection.Insert Shift:=xlDown
    Next
End Sub

★ - EXCELの行追加について - あり 09/03-14:20No.4281
• Re: EXCELの行追加について - 花ちゃん 09/03-16:18 No.4285