| |
▼INA さん：
>>フォームを普通に表示させておくことはできないでしょうか？
>DoEventsやRepaintを試してみては如何でしょうか？
>
>それ以前に、ＦＤやファイルの破損の原因となるので、
>VBAで直接FDを操作すること自体、お薦めできませんが・・
ご回答ありがとうございます。
DoEvents等で試しましたが、あんまり状況は変わりませんでした。
おっしゃる通り、FDを直接操作することは避けようとも思いましたが、
もう少し挑戦しようと思い、書き込み中にフォームで「書き込み中」
メッセージを表示しようと思いました。
例えば、次のようなコードです。
UserFormTest.Show
ActiveWorkbook.Close savechanges:=True
Unload UserFormTest
そうすると、最初フォームが表示された時点でストップし、
そのフォームを閉じると書き込みが始まります。
フォームを表示したまま、書き込みを進めることはできないのでしょうか。
Windows付属のエクスポーラでファイルのコピーや移動をするとき、
フォルダからフォルダへファイルが飛んで行く絵が表れますね。
あんな風にできないものかと考えているのですが...
お知恵を拝借できれば幸いです。
|
|
