Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27748 / 76738

←次へ　｜　前へ→


	【54307】マクロが止まる

うまい棒 - 08/3/5(水) 18:15 -


	引用なし

	パスワード

低レベルの質問ですいませんが・・

やりたいことはエクセルファイルを開いて、
あるセルのデータをコピーして、マクロを実行している
ファイルへペーストという単純作業です。

事前に読み込み用ファイルを開いておけば、
コピー＆ペーストの処理はうまくいくのですが、
VBAにてファイルを開くとそれ以降の処理が実行されずに
止まってしまいます。
（エラーは返ってこないので正常終了している感じです）
↓止まってしまうコード↓

Dim OpenFileName As String '対象ファイル
　　
　　OpenFileName = "\\aaa\" & "bbb.xls"
　　If OpenFileName <> "False" Then
　　　　Workbooks.Open OpenFileName　　　　　　・・・1.
　　　　Worksheets("ccc").Select　　　　　　　　・・・2.
　　End If

　　～コピー＆ペースト処理～

これを実行すると1.は処理され2.は処理されません。
"bbb.xls"が開きシート"ccc"には移らず停止します。
ちなみに、

Dim OpenFileName As String '対象ファイル

　　OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
　　If OpenFileName <> "False" Then
　　　　Workbooks.Open OpenFileName
　　　　Worksheets("ccc").Select
　　End If

　～コピー＆ペースト処理～

と変更し、ダイアログボックスから対象ファイルを選択して開くと
最後まで処理が走ります。
大量なファイルで「開いて、処理して、閉じて」の繰り返しを
したいので、いちいちダイアログボックスで聞いてくるような
実装はNGです。

解決策をご教授ください。
※何故マクロが止まるかも興味があります

0 hits

▼

【54307】マクロが止まる うまい棒 08/3/5(水) 18:15

≪