Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15 / 13307 ツリー ←次へ | 前へ→

【80852】vba初心者 shizu 19/6/1(土) 8:38 質問[未読]

【80853】Re:vba初心者 γ 19/6/1(土) 9:20 発言[未読]
【80855】Re:vba初心者 shizu 19/6/1(土) 10:59 質問[未読]
【80856】Re:vba初心者 γ 19/6/1(土) 11:16 発言[未読]
【80857】Re:vba初心者 shizu 19/6/1(土) 13:04 お礼[未読]

【80853】Re:vba初心者
発言  γ  - 19/6/1(土) 9:20 -

引用なし
パスワード
   >デバッグが表示されます。
それだけではなく、もっと状況を説明しましょう。
どの行でエラーになるのか、エラーメッセージは何か。
関係する変数はどうなっているのか。
等々。
フォルダが自分自身が含まれているものなら、
自分自身をもう一度開こうとしていることが想像されますが。
いずれにしてももう少し説明が必要ですね。

【80855】Re:vba初心者
質問  shizu  - 19/6/1(土) 10:59 -

引用なし
パスワード
   ▼γ さん:
早速 ありがとうございます。

>どの行でエラーになるのか、エラーメッセージは何か。
  エラーは 15行目(黄色で塗りつぶされています)の
    ThisWorkbook.Worksheets("Sheet1").Range("A" & CStr(i)).Value =    book.Worksheets("Sheet1").Range("B3").Value
  の部分になります。

  エラーメッセージは
  ”実行時 エラー9
  インデックスが有効範囲にありません。”
  と、表示されます。

>関係する変数はどうなっているのか。
>等々。

 すみません。
 変数がどうなっているか、勉強不足で理解できていません。

>フォルダが自分自身が含まれているものなら、
>自分自身をもう一度開こうとしていることが想像されますが。

  同じフォルダ内にvbaがあるエクセルがありま。

  以上まだまだ説明が足りないかもしれませんが、よろしくお願いいたします。

【80856】Re:vba初心者
発言  γ  - 19/6/1(土) 11:16 -

引用なし
パスワード
   book.Worksheets("Sheet1")がエラーの元でしょうか。
そのExcelブックにSheet1という名前のシートがないからでは?

開いたときに一番左のシートであれば、
book.Worksheets(1) という書き方ができます。

そのあたりを検討してください。

【80857】Re:vba初心者
お礼  shizu  - 19/6/1(土) 13:04 -

引用なし
パスワード
   ▼γ さん:
>book.Worksheets("Sheet1")がエラーの元でしょうか。
>そのExcelブックにSheet1という名前のシートがないからでは?

ご指摘の通りでした。
ありがとうございました。

15 / 13307 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free