Экспорт данных в xml

[strannick]

Добрый день, уважаемые форумчане!
Прошу помощи, потому что этого раньше не делал. Есть таблица (Книга 1), куда сгружаются все данные, которые необходимо проэкспортировать в xml-формат. Есть пример файла, прошедший проверку на валидность (архив xml). Здесь по форуму поиском прошелся, нашел несколько тем по этому поводу, но самостоятельно реализовать не смог. Пытался задействовать вот этот код:

Sub ExporXML()
On Error Resume Next: MkDir "D:\Sokol\Межевой план\Xml"
Dim Filename As Variant
Dim Rng As Range
Dim r As Long, c As Long

Set Rng = Range("XML_spisok")


For r = 1 To Rng.Rows.Count

'Пока диалог но можно сделать без всяких вопросов

Filename = "D:\Sokol\Межевой план\Xml" & Rng(r, 3) & ".xml"

If Filename = False Then Exit Sub

Open Filename For Output As #1

'********************************** ***********
'Собственно заполнение XML файла

' Вставляем шапку XML
Print #1, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
Print #1, "<ApplicationFile xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">"

For c = 1 To Rng.Columns.Count
If Rng(1, c) = 1 Then
Print #1, "<" & Rng(2, c) & ">" & CStr(Rng(r, c)) & "</" & Rng(2, c) & ">"
Else
Print #1, "<" & Rng(2, c) & ">"
End If
Next c


'Закрываем файл
Close #1
Next r
End Sub

Но чего-то видимо не так сделал. Подскажите - как?
Заранее спасибо!

[EducatedFool]

1. Не нашел в вашем файле Range("XML_spisok")

2. Таким образом создать XML будет ОЧЕНЬ сложно
(видели, сколько у вас столбцов? Строк кода будет ещё больше)
Надо работать с объектной моделью XML - пример есть у меня на сайте:
http://excelvba.ru/code/Array2XML

3. В прикреплённом вами XML, и в вашей таблице Excel, данные сильно отличаются (как по содержимому, так и по количеству столбцов\уровней)
Уверены, что с файлами не ошиблись?