Excel VBA質問箱 IV

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

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


27742 / 76732 ←次へ | 前へ→

【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 質問
【54308】Re:マクロが止まる うまか棒 08/3/5(水) 20:38 発言
【54310】Re:マクロが止まる neptune 08/3/5(水) 22:49 発言
【54315】Re:マクロが止まる VBWASURETA 08/3/6(木) 10:18 回答
【54317】Re:マクロが止まる VBWASURETA 08/3/6(木) 15:29 発言
【54319】Re:マクロが止まる うまい棒 08/3/6(木) 21:03 お礼
【54320】Re:マクロが止まる neptune 08/3/6(木) 21:37 発言
【54321】Re:マクロが止まる VBWASURETA 08/3/7(金) 0:10 質問
【54325】Re:マクロが止まる neptune 08/3/7(金) 14:46 発言
【54326】Re:マクロが止まる neptune 08/3/7(金) 14:47 発言
【54328】Re:マクロが止まる VBWASURETA 08/3/7(金) 15:26 発言
【54318】Re:マクロが止まる VBWASURETA 08/3/6(木) 18:42 発言

27742 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free