|
低レベルの質問ですいませんが・・
やりたいことはエクセルファイルを開いて、
あるセルのデータをコピーして、マクロを実行している
ファイルへペーストという単純作業です。
事前に読み込み用ファイルを開いておけば、
コピー&ペーストの処理はうまくいくのですが、
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です。
解決策をご教授ください。
※何故マクロが止まるかも興味があります
|
|