vb error 1004

質問

EXCEL VBの実行時エラーで 1004

Range　クラスのSelectメソッドが失敗しました。

とのメッセージが出るのですが、実際のプログラムでは、With が含まれています。

With Workbooks(sOutputBook).Sheets(1)

.Range("A" & (ROW_CHILD_START + lCntChild)).Select　←　ここでエラー

　　　　　　・・・・
　　　　　 End With

こんな質問で、わかりますか？
回答、よろしくお願い致します。

回答No.1

watabe007 · ベストアンサー

>With Workbooks(sOutputBook).Sheets(1)
>.Range("A" & (ROW_CHILD_START + lCntChild)).Select　←　ここでエラー

まず、
msgbox sOutputBook & vbcrlf & ROW_CHILD_START + lCntChild
で、それぞれの変数にどのような値が入っているのか確認しましょう

それと　Workbooks(sOutputBook).Sheets(1)　がアクティブで無い場合は
いきなりセルを選択できませんので、一旦　Workbooks(sOutputBook).Sheets(1)　
をアクティブにしてからセルを選択しましょう
>With Workbooks(sOutputBook).Sheets(1)
　　　　.Activate
>　　　.Range("A" & (ROW_CHILD_START + lCntChild)).Select　←　ここでエラー
>End With

お礼

早速の回答、ありがとうございました。

まるで、コロンブスの卵ですね。

勉強になりました。
ありがとうございます。