マクロの問題

私はVB（Excelマクロ）で下記のコードを実行しようとしていますが、私はエラーが "自動化エラー"の実行中にポップアップするとスタックしました。マクロの問題

strComputer = "."

設定objNetwork =のCreateObject（ "Wscript.Network"）セットFS =のCreateObject（ "Scripting.FileSystemObjectオブジェクト"）

設定objWMIService =のGetObject（ "winmgmts：\" & strComputer &「\ルート\ CIMV2 "）colFiles = objWMIService.ExecQuery _ （セット" のASSOCIATORS {Win32_Directory.Name = 'U：\'} "_ & "resultClassを= CIM_DataFile"）

電力Eacについてadvance.Pleaseで時間colFiles でのobjfile objFile.FileName = "mLの*" なら、

 destinationPROD = "X:\ABC\" & objFile.FileName & "." & objFile.Extension 
     objFile.Copy(destinationPROD) 

     objFile.delete 

    else 

     destinationPROD = "X:\PQR\" & objFile.FileName & "." & objFile.Extension 
     objFile.Copy(destinationPROD) 


     objFile.delete 

    End If

次

おかげで、それは権利の問題かもしれません私に

出典

2009-06-28 Piyush Giri

あなたはコードをフォーマットしてもらえますか？また、十分な情報を含むようにタイトルを変更しますか？ VBAからWMIを使用する際のオートメーションエラー？また、WMIタグを追加します。 – shahkalpesh

をそれは次のようになります。

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

出典

2009-06-29 08:08:35 Oorang

を助けます。ローカルディスクを使用してテストします。必要なすべてのディレクトリが存在することを確認します。 "winmgmts：\" あなただけの後に別のスラッシュ必要

出典

2009-06-28 18:14:32

答えて

関連する問題