Редактирование XML файла через vba

[sasha_prof]

Искал по форуму, но не нашел конкретно редактирование через VBA.

Задача следущея, нужно найти поле в определенном xml файле и
1) отредактировать данные
2) принять данные в vba

Пример файла:

- <car>
- <!-- марка автомобілю
  --> 
  <brand>GEELY</brand> 
- <!-- модель автомобілю
  --> 
  <model>MK</model> 
- <!-- рік випуску автомобіля
  --> 
  <year>2013</year> 
- <!-- модифікація автомобіля
  --> 
  <modification>не определен</modification> 
- <!-- колір автомобіля
  --> 
  <color>не определен</color> 
- <!-- вартість автомобіля
  --> 
  <price>79900.0000</price> 
- <!-- объем двигателя авто
  --> 
  <engine_size>1498</engine_size> 
- <!-- вартість додаткового обладнання (ГБО)
  --> 
  <priceGBO>0.0000</priceGBO> 
- <!-- страхування з урахуванням зносу
  --> 
  <deterioration>0</deterioration> 
- <!-- страхування таксі
  --> 
  <taxy>0</taxy> 
- <!-- автомобіль в аренді
  --> 
  <lease>0</lease> 
  </car>

На пример нужно заменить значение находящееся в поле

<brand>GEELY</brand>

помогите плиз с кодом на замену и принятие данных с поля, также открыть и сохранить файл.

Заранее благодарен

[sasha_prof]

Сори что создал в Access.
как перенести в excel?

[doober]

Сообщение от sasha_prof

Сори что создал в Access.
как перенести в excel?

А зачем?
XML он и в африке XML.
Не забудьте добавить ссылку на MSXML

Public Sub Zamena()
        Dim Arr
        Dim xmlDoc As MSXML2.DOMDocument30
        Set xmlDoc = New DOMDocument30
        xmlDoc.async = False
        xmlDoc.validateOnParse = False
        strFilePath = "Путь к вашему файлу XML"
        xmlDoc.Load (strFilePath)
        Dim objNode As IXMLDOMNode
        Dim objListOfNodes As IXMLDOMNodeList
        xmlDoc.setProperty "SelectionLanguage", "XPath"
      
        XPath = "//brand"

        Set objListOfNodes = xmlDoc.SelectNodes(XPath)


        For Each objNode In objListOfNodes
              If objNod.Text = "GEELY" Then
                objNode.Text = "ВАСЯ"

              End If
        Next
        xmlDoc.Save strFilePath
End Sub

[sasha_prof]

1) при запуске макроса выдает ошибку на

MSXML2.DOMDocument30

2) Также я вижу с макроса что он ищет запись "Geely" во всех полях "//brand".

Просто XML может иметь 2 машины. например такая структура XML

- <car>
- <!-- марка автомобілю
  --> 
  <brand>GEELY</brand> 
- <!-- модель автомобілю
  --> 
  <model>ASTRA</model> 
- <!-- рік випуску автомобіля
  --> 
  <year>2013</year> 
- <!-- модифікація автомобіля
  --> 
  <modification /> 
- <!-- колір автомобіля
  --> 
  <color /> 
- <!-- вартість автомобіля
  --> 
  <price>195000.00</price> 
- <!-- объем двигателя авто
  --> 
  <engine_size>1362</engine_size> 
- <!-- вартість додаткового обладнання (ГБО)
  --> 
  <priceGBO>0.00</priceGBO> 
- <!-- страхування з урахуванням зносу
  --> 
  <deterioration>1</deterioration> 
- <!-- страхування таксі
  --> 
  <taxy>0</taxy> 
- <!-- автомобіль в аренді
  --> 
  <lease>0</lease> 


- <car1>
- <!-- марка автомобілю
  --> 
  <brand>GEELY</brand> 
- <!-- модель автомобілю
  --> 
  <model>ASTRA</model> 
- <!-- рік випуску автомобіля
  --> 
  <year>2013</year> 
- <!-- модифікація автомобіля
  --> 
  <modification /> 
- <!-- колір автомобіля
  --> 
  <color /> 
- <!-- вартість автомобіля
  --> 
  <price>195000.00</price> 
- <!-- объем двигателя авто
  --> 
  <engine_size>1362</engine_size> 
- <!-- вартість додаткового обладнання (ГБО)
  --> 
  <priceGBO>0.00</priceGBO> 
- <!-- страхування з урахуванням зносу
  --> 
  <deterioration>1</deterioration> 
- <!-- страхування таксі
  --> 
  <taxy>0</taxy> 
- <!-- автомобіль в аренді
  --> 
  <lease>0</lease> 

Как видно даный файл содержит 2-а блока <car> и <car1>. И в обеих GEELY.

Возможно ли как то ссылаться еще на подблоки <car> и <car1>?

[sasha_prof]

файл в котором ошибка

[sasha_prof]

файл с ошибкой

[sasha_prof]

Разобрался. Включил в настройках

[doober]

XPath = "//car1/brand"

[sasha_prof]

как прочитать данные с поля?

Так не получается

znachenie=objNod.Text

[doober]

Public Sub Zamena()
svFile = Worksheets("Лист1").Cells(1, 1)
Set oXMLDoc = CreateObject("MSXML2.DOMDocument")
        Dim xmlDoc As MSXML2.DOMDocument30
        Set xmlDoc = New DOMDocument30
        xmlDoc.async = False
        xmlDoc.validateOnParse = False
        strFilePath = Worksheets("Лист1").Cells(1, 1)
        
        xmlDoc.Load (strFilePath)
        Dim objNode As IXMLDOMNode
        Dim objListOfNodes As IXMLDOMNodeList
        xmlDoc.setProperty "SelectionLanguage", "XPath"
        XPath = "//car/brand"
        Set objListOfNodes = xmlDoc.SelectNodes(XPath)
        For Each objNode In objListOfNodes
              If objNode.FirstChild.NodeValue = "GEELY" Then
                objNode.FirstChild.NodeValue = "ВАСЯ"
              End If
        Next
        xmlDoc.Save strFilePath
End Sub