Экспортирование из xls в xml(VBA)

[manula]

Здравствуйте уважаемые форумчане.Я недавно столкнулся с такой проблемой как экспортирование данные.Суть вот в чем:у меня есть текстовый файл с данными,есть Excel-книга в которую я выгружаю эти данные.Задача состоит в том, чтобы получить xml-файл с такой структурой:
<?xml version="1.0" encoding="windows-1251" ?>
<СчетаПК ДатаФормирования="date" НомерДоговора="namber">
<ЗачислениеЗарплаты>
<Сотрудник Нпп="Счетчик">
<Фамилия>Данные</Фамилия>
<Имя>Данные</Имя>
<Отчество>Данные</Отчество>
<ЛицевойСчет>Данные</ЛицевойСчет>
<Сумма>Данные</Сумма>
</Сотрудник>
</СчетаПК>
Уже 2 недели ломаю голову пока ничего толкового не вышло,помогите пожалуйста.Заранее благодарю всем откликнувшимся.

[manula]

Мой листинг:
....
'Описание переменных
sFile = "c:\shablon.txt"
iFile = FreeFile

Open sFile For Output As #iFile

Do While Not EOF(iFile)

Line Input #iFile, Strk
number = Mid(Strk, 10, 1)
family = Mid(Strk, 39, 20)
imya = Mid(Strk, 69, 20)
otch = Mid(Strk, 99, 20)
schet = Mid(Strk, 135, 21)
summ = Mid(Strk, 170, 7)

data = Date
title = "<?xml version=""1.0"" encoding= Windows-1251 ?>"

'Вставляю заголовок(title)
Print #iFile, Strk = "<СчетаПК ДатаФормирования=" & date &
"НомерДоговора= 123 >"
Print #iFile, Strk = "<ЗачислениеЗарплаты>"
Print #iFile, Strk = "<Сотрудник Нпп=" & number & ">"
Print #iFile, Strk = "<Фамилия>" & family & "</Фамилия>"
Print #iFile, Strk = "<Имя>" & imya & "</Имя>"
Print #iFile, Strk = "<Отчество>" & otch & "</Отчество>"
Print #iFile, Strk = "<ЛицевойСчет>" & schet & "</ЛицевойСчет>"
Print #iFile, Strk = "<Сумма>" & summ & "</Сумма>"
Print #iFile, Strk = "</Сотрудник>"
Print #iFile, Strk = "</ЗачислениеЗарплаты>"
Print #iFile, Strk = "</СчетаПК>"
Close #iFile

[EducatedFool]

Мой листинг:

И что, не работает?

Если хотите, чтобы мы подредактировали макрос - выложите свой файл Excel с кодом.

[manula]

При открытии в браузере выдает ошибку такого содержания:

Не удается отобразить страницу XML
Не удается просмотреть ввод XML с использованием списка стилей XSL. Исправьте ошибку и затем нажмите кнопку "Обновить"или повторите попытку позднее.

--------------------------------------------------------------------------------

Требуется строковый литерал, но не найдена открывающая кавычка. Ошибка при обработке ресурса ''file:///C:/...

<СчетаПК ДатаФормирования= 14.02.2012 НомерДоговора= 123...
Не судите меня строго я просто первый раз работаю со структурой xml-файлов

[manula]

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

[Skif-F]

Попробуй. По крайней мере не выдаёт ошибки:

[manula]

Сообщение от Skif-F

Попробуй. По крайней мере не выдаёт ошибки:

По моему это моя же книга без изменений))я что-то открыв ее ничего не заметил в плане корректировки,а по поводу времени и источников,это да.

[Skif-F]

Странно. Вот тот файл, который нужен

[manula]

а можно еще такой вопрос в книге был цикл из 5 оборотов так сказать,а если я не знаб сколько у меня записей допустим,как в этом случае цикл будет выглядеть,и еще если данные будут не на этой же странице,а на другой,как так сделать?подскажите

[doober]

в новом файле не забываем добавить ссылку на MSXML2


Данные берутся с активного листа

Const strFilePath As String = "C:\TestXML.xml"
Sub ExtportToXML()
    Dim objDoc As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMNode
    Dim objRoot As MSXML2.IXMLDOMElement
    Dim objElem As MSXML2.IXMLDOMElement
    Dim ar As Variant
    Dim i As Integer
    Set objDoc = New DOMDocument
    objDoc.resolveExternals = True
    Set objNode = objDoc.createProcessingInstruction( _
        "xml", "version='1.0' encoding='windows-1251'")
    Set objNode = objDoc.InsertBefore(objNode, _
    objDoc.ChildNodes.Item(0))
    Set objRoot = objDoc.createElement("СчетаПК")
    Set objDoc.DocumentElement = objRoot
    objRoot.setAttribute "ДатаФормирования", "20.02.2012"
    objRoot.setAttribute "НомерДоговора", "123"
   i = 1
  Do
    Set objElem = objDoc.createElement("Сотрудник")
      objElem.setAttribute "Нпп", Cells(i, 1)
      objRoot.appendChild objElem
           Set objNode = objDoc.createElement("Фамилия")
            objNode.Text = Cells(i, 2)
            objElem.appendChild objNode
        Set objNode = objDoc.createElement("Имя")
            objNode.Text = Cells(i, 3)
            objElem.appendChild objNode
        Set objNode = objDoc.createElement("Отчество")
            objNode.Text = Cells(i, 4)
            objElem.appendChild objNode
      Set objNode = objDoc.createElement("ЛицевойСчет")
            objNode.Text = Cells(i, 5)
            objElem.appendChild objNode
      Set objNode = objDoc.createElement("Сумма")
            objNode.Text = Cells(i, 6)
            objElem.appendChild objNode
      i = i + 1
 Loop Until Cells(i, 1) = ""
    objDoc.Save strFilePath
End Sub