XML файлы должны открываться в блокноте Microsoft XML

Question

Я столкнулся с проблемой при использовании файлов XML. У меня есть макрос, который ищет, хотя узлы в файле XML и макрос работает нормально, пока я не перезагружу свой ноутбук. Каждый раз, когда он go выдает ошибку, мне сначала нужно вручную открыть файл XML с помощью блокнота Microsoft XML, а затем он снова работает. Могу ли я решить эту проблему, не меняя программу открытия по умолчанию на самом ноутбуке?

    Set oXMLFile = CreateObject("Microsoft.XMLDOM")
    XMLFileName = Dir(MAIN_FOLDER & "\" & LotAppendix & "*.xml")
    oXMLFile.Load (XMLFileName)

Answer 1

Скорее всего, ваша проблема в том, что вы просто передаете имя файла в Load() - это сработает, если в текущем каталоге установлено значение MAIN_FOLDER (как, например, будет, если вы перейдете туда и откроете файл вручную), но не получится если это не так.

Исправление состоит в том, чтобы всегда использовать полный путь и никогда не полагаться на заданный c текущий установленный каталог:

Set oXMLFile = CreateObject("Microsoft.XMLDOM")
XMLFileName = Dir(MAIN_FOLDER & "\" & LotAppendix & "*.xml")
oXMLFile.Load MAIN_FOLDER & "\" & XMLFileName