![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
エクセルVBA初心者です。
共有サーバーに置いたエクセルファイルを開いたときに、同フォルダにある、別のデータ保存用エクセルファイルのデータをコピーしてくるようにしました。
しかし、「インデックスが有効範囲にありません」のエラーになります。
ChDir "\\共有サーバー\Aフォルダ\"
Workbooks.Open Filename:= _
"\\共有サーバー\Aフォルダ\データ保存.xls"
Windows("データ保存.xls").Activate
Sheets("データ貼り付け").Select
ここでエラーになります→ Windows("データ保存.xls").Activate
エラー時、データ保存.xlsは開いた状態(Activate)になっており、開いた後に見つからない状態?になっているのでしょうか。
ちなみに Windows("データ保存.xls").Activate をスルーさせると、次のSheets("データ貼り付け").Select で同様のエラーになります(当たり前かな)。
試しに、記録マクロで動作を記録してコードを確認しましたが、
Windows("データ保存.xls").Activate となっており、違いがありません。
原因を教えていただければありがたいです。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
Workbooks.Open Filename:= Thisworkbook.path & "\データ保存.xls"
Sheets("データ貼り付け").Select
でいいのでは。
データ保存.xlsを明示的に表現したいのであれば、
Sheets("データ貼り付け").Selectの前に
Workbooks("データ保存.xls").Activate
を追加
回答ありがとうございます。
とりあえず解決しました!
このコードは、ThisWorkbookモジュールの「Workbook_Open」に記述していたのですが、新たに標準モジュールに記述し、ThisWorkbookモジュールの「Workbook_Open」にはApplication.Runで標準モジュールを走らせるようにしたらうまくいきました。
ThisWorkbookモジュールで何故エラーになるのかは理解していませんが、とりあえずよかったです。もっと勉強します。
教えて頂いた方法も試してみます。
ありがとうございます。
No.1
- 回答日時:
データ保存.xlsが開く前に次のコードが走っているとか
ウエイトを入れてみては?
Application.Wait Now() + TimeValue("00:00:05") ’5秒待つ
回答ありがとうございます。
とりあえず解決しました!
このコードは、ThisWorkbookモジュールの「Workbook_Open」に記述していたのですが、新たに標準モジュールに記述し、ThisWorkbookモジュールの「Workbook_Open」にはApplication.Runで標準モジュールを走らせるようにしたらうまくいきました。
ThisWorkbookモジュールで何故エラーになるのかは理解していませんが、とりあえずよかったです。もっと勉強します。
教えて頂いた方法も試してみます。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) エクセルのマクロについて質問があります。 現在は下記のマクロでエクセル表を保存しています ThisW 2 2022/09/16 11:22
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コンパイル時のエラーについて...
-
電子書籍epub変換について
-
ファイルopenエラーになってし...
-
ホームページビルダーの【×】マ...
-
急にXMLパースエラーが表示され...
-
VB6 使用中ファイルの確認
-
Irvineフリーのプロトコルエラ...
-
属性の値に特殊文字が大量にあ...
-
サーバーに転送したファイルが0...
-
WordでURLをクリックしてそのペ...
-
TSファイルをスムーズに再生したい
-
www以外のホスト名の設定
-
録音アプリのPCM録音で4時間録...
-
ギガファイル便って女の人のエ...
-
URLに付いてる~(チルダ?)って...
-
FTPでのGET
-
レポートを書く際に、PDFのファ...
-
デスクトップのファイルが上書...
-
削除したページが表示されるの...
-
FFFTPを使っているのですが画像...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
急にXMLパースエラーが表示され...
-
ホームページビルダーの【×】マ...
-
コンパイル時のエラーについて...
-
ワードがなかなか閉じないです
-
VB6 使用中ファイルの確認
-
ftp_getできない?
-
ファイルopenエラーになってし...
-
エクセルVBA インデックスが有...
-
[TeX,DVI,PS,PDF]
-
Excelのハイパーリンクがエラー...
-
local by flywheelについて
-
韓国に送った添付ファイルexcel...
-
DellのHPが開かない!!
-
VBSでごみ箱に捨てたファイルの...
-
VBAのエラーについて教えてくだ...
-
Irvineフリーのプロトコルエラ...
-
thunderbardでエラーが出ます。
-
ファイル送信中のエラーについて
-
ステータスコード404がFirefox...
-
緊急です。 パワーポイントで p...
おすすめ情報