Excel VBA質問箱 IV

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

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


72924 / 76732 ←次へ | 前へ→

【8291】Re:bykinさんに一票
質問  初心者  - 03/10/7(火) 15:05 -

引用なし
パスワード
   ▼bykinさん、しのしのさん:

ありがとうございます。
お陰様で違う視点に着目することができました。
ご指摘頂いた点から検証してみました。

結果、思いもしなかった原因が判明し、新たに頭を悩ませる事になりました。
原因は「コピー元のファイル」のバージョン違いでした。
開発は'97で行っているのですが、サンプルで貰った元ファイルが2000で
作成されたものだったようです。
今後、これを事前に判別するのが課題となります。


>たとえば、"データ操作"中に、開いているブックのオブジェクトを取得しているのに、
>きちんと、参照解放せぬままCLOSEしようとしていませんか?

変種処理は処理毎にFunctionを作成しているのですが、
解放ロジックは必要なのでしょうか?


>#ブックのシートを参照設定しておいて、その解放がきちんとされていない。

この参照設定の解放というのは、何をすれば良いのでしょうか。


以下、検証詳細です。

コピー元のファイルにはマクロ(コマンドボタン/処理は軽いもの)や
セル式が埋め込まれたものですが、サイズは240kb程度です。
シンプルにOpen→SaveAs→Closeとした場合にも処理ができなかったので、
コピー元ファイルを適当な新規ブックで実行してみたところ、処理が成功しました。

次に、問題のファイルを使用して、Saveの直前に
Application.DisplayAlerts = True
と記述し、システムのメッセージを表示させたところ、
「このエクセルは最新版のExcelで作成されました」のメッセージが・・・。
このメッセージに対して、手動で「はい」を押下すれば正常に保存され、
「いいえ」を押下するとCloseされずに開いたままです。
処理の最初に
Application.DisplayAlerts = False
を記述したので、「いいえ」を押下したのと同じ状態で処理が中断されたようです。

それから、以前Bykinさんに教えていただいたSleepはWaitよりも効果を得ました。
処理速度が落ちてしまうので最善の策とは言えませんが、各ファイル毎に
Sleep 5000(5秒)
とすれば、100ファイルの処理も可能となりました。
(3000以下では強制終了となりました)

ありがとうございました。

0 hits

【8210】メッセージボックス出力と同様のイベントとは? 初心者 03/10/3(金) 19:46 質問
【8211】Re:メッセージボックス出力と同様のイベントとは? INA 03/10/3(金) 19:54 回答
【8212】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/3(金) 20:10 質問
【8213】Re:メッセージボックス出力と同様のイベントとは? Kein 03/10/3(金) 20:50 回答
【8214】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/3(金) 21:26 質問
【8217】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/3(金) 22:23 回答
【8220】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/4(土) 0:55 発言
【8225】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/4(土) 19:10 回答
【8259】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/6(月) 12:06 お礼
【8273】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/6(月) 18:15 回答
【8275】Re:メッセージボックス出力と同様のイベントとは? 初心者 03/10/6(月) 19:52 発言
【8277】Re:メッセージボックス出力と同様のイベントとは? bykin 03/10/6(月) 21:08 回答
【8287】bykinさんに一票 しのしの 03/10/7(火) 12:29 回答
【8291】Re:bykinさんに一票 初心者 03/10/7(火) 15:05 質問
【8292】FileFormatですか しのしの 03/10/7(火) 16:03 回答
【8293】サンプル変でしたね。すいません。 しのしの 03/10/7(火) 16:07 回答
【8300】Re:サンプル変でしたね。すいません。 初心者 03/10/7(火) 19:09 お礼

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