プロシージャの内容:
シート上に100行強のデータがあります。ABC列の内容をキーに1行づつSQLServerへデータを取得しにいって、当該行H列に結果を格納する内容です。
行のコレクションをForEach文でループ。SQLServerへの接続はループ開始前で、ループ内でレコードセット取得・クローズを繰りかえす感じです。
問題点:
Apprication.ScreeUpdatingがTRUEな状態に関わらず、処理が完了するまで画面のレスポンスがほぼ得られない状況をどうにかしたいです。
「ほぼ得られない」というのは、始まってすぐはUserForm上のProgressBarが進行を表すものの、途中から画面が固まってしまい、進行を表さないということです。
処理最後にはプログラミングしているメッセージボックスが現れるので、一応にその完了を把握できている、という状況です。
処理が重いから仕方がないこと、と今まで放置してきた事案ですが
何か解決策はありますか?
メモリが食っているから生じていることなのかどうかも分からないのですが(調べ方知らない)、仮にそうだとした場合、適時メモリ開放するようなことができれば
画面反映はスムースに行われるでしょうか??
こちらのサイトで様々な事案を解決できたので、こんなことも解決できるかな?と思い掲載させて頂きました。何卒よろしくお願い申し上げます。
===追記===
UserForm1.ProgressBar1.Value = 0
UserForm1.ProgressBar1.Min = 0
UserForm1.ProgressBar1.Max = 100
Range("A9999").Select
Selection.End(xlUp).Select
MaxLine = ActiveCell.Row
Set DataSheet = Range("A2:A" & MaxLine)
For Each x In DataSheet
W_LCnt = W_LCnt + 1
strSQL = "SELECT XXXXX"
RS.Open strSQL, Conn, adOpenStatic, adLockReadOnly, -1
If RS.EOF Then
x.Offset(0, 5).Value = "なし"
Else
RS.MoveFirst
x.Offset(0, 5).CopyFromRecordset RS
End If
RS.Close
'# DoEvents
UserForm1.ProgressBar1.Value = W_LCnt / 100
Next x