vba 他のブック、シートを参照時のエラー発生の原因について

Question

別フォルダにあるEXCELファイルの内容を一部取り込むマクロ作成時に、
ブックを開いてシートを参照する処理を実施した時、エラーが出るため
エラー無視の処理を追加したら、処理がうまくいきました。

なぜ、エラー発生してしまっているのか不明です。
ブック開いた状態でシートを参照することでエラーになっているのでしょうか。
エラー発生原因についてご意見頂けると助かります。
宜しくお願い致します。

Dim filename As string ' ファイル名
Dim sheetName As string ' シート名
Dim readBook As Workbook ' 読み込み対象ファイル
Dim readSheet As WorkSheet ' 読み込み対象シート

Set readBook = Workbooks.Open(filename) ' ブックを開いて参照
On Error Resume Next 'エラー処理の無視
Set readSheet = readBook.Worksheets("sheetName") ' シートを参照
On Error GoTo 'エラー処理の無視を解除

Comments

[kei344]

エラー内容を質問文に追記ください。

Answer 1

例示のコードで特にエラーは出ませんでしたが..
※Excel2013/2016
もちろんWorkbookファイル名、Worksheet名は存在するものをコードで指定した上での話ですが

エラーメッセージが書かれていないのでなんともですが、On Error Resume Nextの位置から推測するに

• Worksheet名を間違って指定している

かなと
そういうところも含めてkei344さんの「エラー内容を質問文に追記ください。」は大事です

あと他のコード部分で、わざわざ取得したWorksheet参照を使わずにActiveSheetを使っていたりしませんか？

Comments

[sehiro]

エラーコード9より、
シート名を指定してなかった事が原因でした。
エラーコードでしっかり確認します。
ありがとうございました。

Answer 2

Dim sheetName As string ' シート名

・・・

Set readSheet = readBook.Worksheets("sheetName") ' シートを参照

Worksheets()の引数に指定しているのが 変数sheetNameではなく文字列の"sheetName"だからでは？
「sheetName」というシートが存在しているのであれば問題はないと思いますが、
シート名を変で渡したいのであれば、""で囲う必要はないと思います。。。

Comments

[kaputaros]

あらら、タイミングよく解決してしまいましたね^^;

[sehiro]

コメントありがとうございます。何とか、解決できました。