|
Jakaさん neptuneさん ありがとうございます
To Jakaさん
> With ActiveWorkbook.VBProject
> For Each VBC In .VBComponents
> Next
> End With
いまいちどこに組み込めばいいのか自身がありませんが
コメントアウトのように試してみたのですが・・・
うまく行きませんでした。
ご指示のイメージと違っていますか?
ぐちゃぐちゃで理解しにくいような気もしますが・・・
申し訳ありません
To Jakaさん
To neptuneさん
DoEvents
Workbooks(TG).Save
Application.Wait
の組み合わせでうまくいくときと行かないときがあります
Application.Wait
だけではうまくいかないみたいだし
この時間が短くてもうまくいかない(一部のmが上書きになる)
DoEventsも組み合わせがいろいろあって・・・・
取りあえず、試行PCでは
コメントアウト無しのでうまくいきました
実際の実行CPUは、色々でちょっと心配です
取りあえず、動いた報告でした。
アドバイスありましたらよろしくお願いいたします
Public Sub AllMdlUpDate(wk_FullPath As String, Tg_Fld_Path As String)
Dim vbc As VBIDE.VBComponent
'ブックが未使用なら開く、使用中なら中止
If CK_opened_FILE(wk_FullPath) = False Then Debug.Print wk_FullPath & ":対象ブック使用中": Exit Sub
DoEvents
'モジュール一括削除
Call AllMdlRemove(wk_FullPath)
Workbooks((Right(wk_FullPath, Len(wk_FullPath) - InStrRev(wk_FullPath, "\")))).Save '上書き保存
DoEvents
'Application.Wait Now + TimeValue("00:00:2")
Application.Wait Now + TimeValue("00:00:10")
'Application.Wait Now + TimeValue("00:00:20")
DoEvents
'モジュール一括インポート
Call AllMdlImport(wk_FullPath, Tg_Fld_Path)
'With ActiveWorkbook.VBProject
' For Each vbc In .VBComponents
' DoEvents
'モジュール一括削除
' Call AllMdlRemove(wk_FullPath)
'Debug.Print ""
'MsgBox ""
' DoEvents
'モジュール一括インポート
' Call AllMdlImport(wk_FullPath, Tg_Fld_Path)
' DoEvents
' Next
' End With
End Sub
|
|