Excel VBA質問箱 IV

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

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


12514 / 76734 ←次へ | 前へ→

【69737】Re:複数のブックから1つのシートに
発言    - 11/8/25(木) 14:44 -

引用なし
パスワード
   ▼UO3 さん:

返信ありがとうございます。

>マクロブックがあるフォルダに"tenki"フォルダを作成して
>テストで使っていたBookA.xlsとBookB.xlsをそこに移して、
>「複数のファイルを一つに」を、そのまま実行。(Call 時のflg引数は削除しました)
>
>結果は、最初の実行も正常ですし、その後、何度やっても、データが追加されることは
>ありませんでした。

問題なく動作したということですね。。。


またかなり不可解なことがおきているので、説明させていただきます。

まず1度全ての箇所にブレークポイントを入れ1つずつ実行させ、1ステップ進むごとに、マクロブックを確認してどのようにデータが転記されているのかを確認してみました。
するとA2〜A5まではBookA,A6のみBookBのA6セルと先日と同じ症状がおきました。
次に、1ステップずつ進めて、その都度マクロブックをアクティブにしてみました。
すると、問題なく全て転記されました。(正常動作)

次に、ブレークポイントをサブプロシージャの頭
Sub subTenki(theBook As Workbook)
に入れ動作させました。
この時、転記元のBookA及びBookBがアクティブになるので、サブプロシージャが動く前に、1度マクロブックをアクティブにして確認しました。
すると、問題なく全て転記されました。(正常動作)
次に、同じようにブレークポイントは変えずに、マクロブックをアクティブにしないとまたおかしな転記になっていました。

まとめると、転記の動作の前に1度マクロブックをアクティブにしないと正常に転記が行えないような状態になっています。

こうなってしまうと、なにがなんだかわけがわかりません。。。
プログラムには問題なく、全く別の問題なのでしょうか?

ちなみに使用環境は、Office2007、WindowsXPを使用しています。

10 hits

【69705】複数のブックから1つのシートに 11/8/23(火) 12:06 質問
【69706】Re:複数のブックから1つのシートに UO3 11/8/23(火) 12:25 発言
【69707】Re:複数のブックから1つのシートに 11/8/23(火) 13:22 発言
【69709】Re:複数のブックから1つのシートに UO3 11/8/23(火) 15:03 発言
【69710】Re:複数のブックから1つのシートに 11/8/23(火) 15:59 発言
【69713】Re:複数のブックから1つのシートに UO3 11/8/23(火) 17:30 発言
【69715】Re:複数のブックから1つのシートに 11/8/23(火) 17:53 発言
【69711】Re:複数のブックから1つのシートに UO3 11/8/23(火) 15:59 回答
【69712】Re:複数のブックから1つのシートに 11/8/23(火) 17:26 お礼
【69714】Re:複数のブックから1つのシートに UO3 11/8/23(火) 17:42 発言
【69716】Re:複数のブックから1つのシートに 11/8/23(火) 18:44 発言
【69725】Re:複数のブックから1つのシートに UO3 11/8/24(水) 16:19 発言
【69726】Re:複数のブックから1つのシートに 11/8/24(水) 17:36 発言
【69733】Re:複数のブックから1つのシートに UO3 11/8/25(木) 10:48 回答
【69735】Re:複数のブックから1つのシートに 11/8/25(木) 11:06 発言
【69736】Re:複数のブックから1つのシートに UO3 11/8/25(木) 13:14 発言
【69734】Re:複数のブックから1つのシートに UO3 11/8/25(木) 10:56 発言
【69737】Re:複数のブックから1つのシートに 11/8/25(木) 14:44 発言
【69738】追記 11/8/25(木) 15:07 発言
【69744】Re:追記 UO3 11/8/25(木) 19:35 発言
【69752】Re:追記 11/8/26(金) 9:21 お礼

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