OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

インデックスが有効範囲にありません。(Error9)

  • 困ってます
  • 質問No.160050
  • 閲覧数1417
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 0% (0/1)

windowsNT4.0 excel2000 使用者です。VBA初心者です。
以前同フォルダー内にある2つのブック間で、一方のブックのシートからもう一方のブックへデータをコピーする簡単なマクロを作成して使用していました。しかし、先日PCのOSをWINDOWS98からNTに変えてからどうもマクロがうまく機能しなくなってしまいました。エラーとしては「インデックスが有効範囲にありません」というメッセージが出てきます。何が原因しているのかもわからず困っています。どなたか力を貸してください。よろしくお願いします。

Workbooks.Open "A01"
Worksheets("s.セクター").[b1:q52].Copy
Workbooks("分析").Worksheets("A01").[A1].PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Workbooks("A01").Close False

ブック"A01"のデータをブック”分析”にコピーしたいのですが、上記の3行目(Workbooks("分析").・・・・)のところでエラーが出てしまいます。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル11

ベストアンサー率 46% (123/265)

Workbooks.Open "A01.xls" Worksheets("s.セクター").[B1:Q52].Copy Workbooks("分析.xls").Activate Sheets("A01").[A1].PasteSpecial Paste:=xlValues Application.CutCopy ...続きを読む
Workbooks.Open "A01.xls"
Worksheets("s.セクター").[B1:Q52].Copy

Workbooks("分析.xls").Activate
Sheets("A01").[A1].PasteSpecial Paste:=xlValues

Application.CutCopyMode = False
Workbooks("A01.xls").Close False

3行目を上のように2行に分ければ上手くいくと思います。
ちなみにWorkbooks("分析")の書き方だと誰かがフォルダの表示を拡張子を表示する設定にしてしまうとエラーが起こります。
Workbooks("分析.xls")にしておくと拡張子が表示・非表示どちらの場合もちゃんと動くはずです。

このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ