人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ファイルAにマクロを設定しています。

ファイルAのH4:R30を選択して表示内容をクリアにして、
ファイルBのシート「告知」を選択して、
「H4:R30」の内容をファイルAの「H4:R30」にペーストして、
ファイルBのエクセルを閉じる設定をしたいです。

そこで下記のように設定しています。


Range("H4:R30").Select
Selection.ClearContents
ChDir "\\sever\発注書"
Workbooks.Open Filename:= _
"\\sever\発注書\ファイルB.xls"
Sheets("告知").Select
Range("H4:R30").Select
Selection.Copy
Windows("ファイルA.xls").Activate
ActiveSheet.Paste
Windows("ファイルB.xls").Activate
ActiveWindow.Close
Range("E34").Select


そこで質問があります。
ファイルA.xlsですが、
ファイル名が不規則に変更となります。
となると上記の「Windows("ファイルA.xls").Activate」で
エラーになってしまいます。
※ファイル名が変った場合は当たり前ですよね・・・。

これをエラーにしない方法はありますでしょうか?
(マクロを実施しているファイルに戻るみたいな・・・)


どうぞよろしくお願いいたします。

●質問者: ohtsu6
●カテゴリ:コンピュータ
✍キーワード:CHDIR open R30 SELECT Windows
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● pahoo
●50ポイント

Windows で Microsoft Excel をご利用ですかね。Excel2003 という前提で回答します。


消極的な方法

On Errorステートメントを使って、Windows("ファイルA.xls").Activate でエラーになったら何とかする。


事前にファイル存在を調べる方法

FileSystemObject.FileExistsメソッドを使い、事前に "ファイルA.xls" が存在するかどうかを調べる。

◎質問者からの返答

どうもありがとうございます。

Resume Nextの件参考になりました。


2 ● SALINGER
●100ポイント
Windows("ファイルA.xls").Activate

ThisWorkbook.Activate
◎質問者からの返答

こんなカンタンなことだったのですね・・・

ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ