Если бы я разбиралась в этом) Предложили этот макрос, но что-то пошло не так
Sub ExportToXML()
Dim MyMap As XmlMap
Dim MyElement As XmlElement
Dim Row As LongDim Col As Long
Dim Doc As DOMDocument
Dim XMLFileName As String
XMLFileName = "C:\ExportedData.xml" 'замените на путь и имя файла, куда вы хотите экспортировать файл XML
Set Doc = New DOMDocumentSet MyMap = Doc.CreateXmlMap(Empty, "MyMap")
Set MyElement = MyMap.RootElement.AddElement("MyData")
For Row = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'цикл по строкам
Set MyElement = MyElement.AddElement("MyDataItem") 'добавляем элемент данных MyDataItem
For Col = 2 To Cells(1, Columns.Count).End(xlToLeft).Column 'цикл по столбцам
MyElement.AddAttribute Cells(1, Col).Value, Cells(Row, Col).Value 'добавляем атрибуты и значенияNext Col
Next Row
Doc.Save XMLFileName 'сохраняем файл XML
Set MyMap = NothingSet MyElement = NothingSet Doc = Nothing
End Sub
Sub ExportToXML()
Dim MyMap As XmlMap
Dim MyElement As XmlElement
Dim Row As LongDim Col As Long
Dim Doc As DOMDocument
Dim XMLFileName As String
XMLFileName = "C:\ExportedData.xml" 'замените на путь и имя файла, куда вы хотите экспортировать файл XML
Set Doc = New DOMDocumentSet MyMap = Doc.CreateXmlMap(Empty, "MyMap")
Set MyElement = MyMap.RootElement.AddElement("MyData")
For Row = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'цикл по строкам
Set MyElement = MyElement.AddElement("MyDataItem") 'добавляем элемент данных MyDataItem
For Col = 2 To Cells(1, Columns.Count).End(xlToLeft).Column 'цикл по столбцам
MyElement.AddAttribute Cells(1, Col).Value, Cells(Row, Col).Value 'добавляем атрибуты и значенияNext Col
Next Row
Doc.Save XMLFileName 'сохраняем файл XML
Set MyMap = NothingSet MyElement = NothingSet Doc = Nothing
End Sub
