Перевод из Excel в XML по опред. требованиям

[tsuman]

Подскажите пожалуйста! Можно ли экспортировать макросами книгу из excel в XML с определенным синтаксисом? Или же это нужно делать другими программными средствами! И если кто чем-то подобным занимался - чем удобней, или проще осуществить данный экспорт? Заранее спасибо за ответы!

[doober]

Можно.
нужен пример xls и xml

[tsuman]

Я приложу файлики. Посмотрите пожалуйста! Я понимаю что с помощью схемы можно, но в каком направлении двигаться не пойму. Есть ещё программка совместимая с VisualBasic 5 и 6.
Список:
Сводная для передачи.xls - файл excel для экспорта
samle.xml - правильно собранный файл xml прошедший верификацию.
Регламент загрузки переходных контрактов v8.pdf - свод правил построения xml
excelToXml.zip - программа на VB

[doober]

Вот схема вашего xml
Вечером дома займусь

[doober]

Вам надо в соответствии со схемой дерево заполнять
Как пример,в цикле заполняеете.У вас 21 вложение согласно схеме.
Работы по написанию -МОРЕ,но эта задача выполнима .

Public Sub ExportXML(Filename As String)
Dim FSO As Object
Dim objStream As Object
Dim j As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objStream = FSO.CreateTextFile(Filename)
With objStream
   strLine = ""
    strLine = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "UTF-8" & Chr(34) & "?>"
    .WriteLine strLine
    strLine = "<oos:contractBatch xmlns:oos=" & Chr(34) & "http://zakupki.gov.ru/oos/integration/1" & Chr(34) & ">"
     .WriteLine strLine
    '-------------- Начало нового контракта
    '
      strLine = "<oos:contract>"
     .WriteLine strLine
       strLine = "<oos:regNum807>" & 8235307000019# & "</oos:regNum807>"
        .WriteLine strLine
         strLine = "<oos:number>" & 76 & "</oos:number>"
         .WriteLine strLine
           strLine = "<oos:foundation>"
            .WriteLine strLine
             strLine = "<oos:singleCustomer>" & "true" & "</oos:singleCustomer>"
              .WriteLine strLine
               strLine = " </oos:foundation>"
               .WriteLine strLine
' ----------------------------------------------------
????????????????????????????????????????????????????????
'-----------------------------------------------------
               strLine = "<oos:customer>"
             .WriteLine strLine
             strLine = " <oos:regNum>03481000004</oos:regNum>"
           .WriteLine strLine
          strLine = "</oos:customer>"
        .WriteLine strLine
        strLine = "</oos:contract>"
      .WriteLine strLine
      
      '------- окончание контракта
      '
      strLine = ""
     strLine = "</oos:contractBatch>"
    .WriteLine strLine
    .Close
End With
    Set objStream = Nothing
    Set FSO = Nothing
MsgBox " ÎÊ", vbQuestion

End Sub

[tsuman]

Спасибо за помощь!
Есть пару вопросов:
1. Каким образом Вы получили схему xml?
2. Переписывание программки на VB будет дольше. Чтобы одним нажатием кнопки он проходил по столбцам и заносил необходимую инфу в xml?

[tsuman]

Т.е. как я понял, я должен внести в код необходимые вложения с описанием хранящихся там данных! так?
А как потом всё это запустить?

[tsuman]

как макрос будет узнавать, из какой ячейки данные брать? ячейки в схеме и в документе не совпадают!

[doober]

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

Спасибо за помощь!
Есть пару вопросов:
1. Каким образом Вы получили схему xml?
2. Переписывание программки на VB будет дольше. Чтобы одним нажатием кнопки он проходил по столбцам и заносил необходимую инфу в xml?

Та программа написана под другую задачу.
Индивидуальная схема-индивидуальная программа.
Если вы разберетесь в какой элемент вставлять значение с какой ячейки проблем не будет.Откройте ваш файл XML в ,Notepad++ и вам будет намного проще разобраться в структуре файла

[tsuman]

Понятно! ещё хотел спросить про формат значений! Как мне организовать формат записи yyyy-mm-dd???

Например здесь:

strLine = "<oos:signDate>" yyyy-mm-dd "</oos:number>"
         .WriteLine strLine