Excel VBA質問箱 IV

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

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


28841 / 76732 ←次へ | 前へ→

【53181】Re:モジュール削除、インポート連続実行で不具合
発言  ウーロン  - 07/12/18(火) 18:52 -

引用なし
パスワード
   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

1 hits

【53177】モジュール削除、インポート連続実行で不具合 ウーロン 07/12/18(火) 17:26 質問
【53178】Re:モジュール削除、インポート連続実行で... Jaka 07/12/18(火) 17:38 発言
【53179】Re:モジュール削除、インポート連続実行で... neptune 07/12/18(火) 17:49 発言
【53181】Re:モジュール削除、インポート連続実行で... ウーロン 07/12/18(火) 18:52 発言
【53189】Re:モジュール削除、インポート連続実行で... Jaka 07/12/19(水) 11:42 発言
【53192】Re:モジュール削除、インポート連続実行で... ウーロン 07/12/19(水) 14:54 質問
【53193】Re:モジュール削除、インポート連続実行で... ウーロン 07/12/19(水) 15:10 発言
【53194】Re:モジュール削除、インポート連続実行で... ウーロン 07/12/19(水) 15:43 質問
【53195】Re:モジュール削除、インポート連続実行で... Jaka 07/12/19(水) 16:21 発言
【53196】Re:モジュール削除、インポート連続実行で... ハチ 07/12/19(水) 17:46 発言
【53197】Re:モジュール削除、インポート連続実行で... ウーロン 07/12/19(水) 19:40 発言
【53198】Re:モジュール削除、インポート連続実行で... ハチ 07/12/19(水) 20:14 発言
【53202】Re:モジュール削除、インポート連続実行で... neptune 07/12/19(水) 22:41 発言
【53204】Re:モジュール削除、インポート連続実行で... ウーロン 07/12/20(木) 14:08 お礼

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