宏問題

我想在VB（Excel宏）中運行下面提到的代碼，但我堅持錯誤，在運行時彈出說「自動化錯誤」。宏問題

strComputer = "."

集objNetwork =的CreateObject（「Wscript.Network」）組FS =的CreateObject（「Scripting.FileSystemObject的」）

集objWMIService = GetObject的（「winmgmts：\」 & strComputer的&「\根\ CIMV2 「）集colFiles = objWMIService.ExecQuery _ （」 OF {Win32_Directory.Name = 'U：\'} ASSOCIATORS其中「_ & 」ResultClass = CIM_DataFile「）

對於EAC^h OBJFILE在colFiles 如果objFile.FileName = 「*毫升」然後

 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

感謝advance.Please幫我

來源

2009-06-28 Piyush Giri

你能設置代碼的格式：「winmgmts：\」 :)

它應該是什麼？還要更改標題以包含足夠的信息？從VBA使用WMI時出現自動化錯誤？另外，添加WMI標籤。 – shahkalpesh 2009-06-28 18:45:03

你只需要接一個斜線

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

來源

2009-06-29 08:08:35 Oorang

這可能是一個權利問題。使用本地磁盤進行測試。確保存在所有必需的目錄。

來源

2009-06-28 18:14:32

回答

相關問題