проблема макроса

Question

Я пытаюсь запустить приведенный ниже код в VB (Excel Macro), но я застрял с ошибка, которая появляется при запуске, говоря "Ошибка автоматизации".

strComputer = "."

Set objNetwork = CreateObject ("Wscript.Network") Set fs = CreateObject ("Scripting.FileSystemObject")

Set objWMIService = GetObject ("winmgmts: \" & strComputer & "\ root \ cimv2") Установить colFiles = objWMIService.ExecQuery _ ("АССОЦИАТОРЫ {Win32_Directory.Name = 'U: \'} Где" _ & "ResultClass = CIM_DataFile")

Для каждого objFile в colFiles if 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

Далее

Заранее спасибо. Пожалуйста, помогите мне

Answer 1

Вам просто нужен еще один слэш после "winmgmts: \":)

Должно быть:

Set objWMIService = GetObject("winmgmts:\<b><i>\</i></b>" & strComputer & "\root\cimv2")

Answer 2

Это может быть проблема с правами. Проверьте это, используя локальный диск. Убедитесь, что все необходимые каталоги существуют.