Импорт из excel в vba

[27102014]

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

[doober]

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

из нее перенес в xml.

Не то скрыли, я просил шапку файла,а вы спрятали ссылки на схемы,там ничего секретного нет.
Пример формирования части файла.

Sub ExtportToXML()

    Dim strFilePath As String

    strFilePath = ThisWorkbook.Path & "\Урки.xml"
    Dim objDoc
    Dim objNode
    Dim objRoot
    Dim objElem
    Dim objElemP
    Set objDoc = CreateObject("Msxml2.DOMDocument")
    objDoc.resolveExternals = True

    Set objNode = objDoc.createProcessingInstruction( _
                  "xml", "version='1.0' encoding='utf-8'")
    Set objNode = objDoc.InsertBefore(objNode, _
                                      objDoc.ChildNodes.Item(0))
    Set objRoot = objDoc.createElement("av:ОтчетностьСпецДепИпотечногоПокрытия")

    objRoot.setAttribute "appVersion", "2.16.3"
    objRoot.setAttribute "xmlns:xserializer", "http://www.it.ru/Schemas/Avior/XSerializer"
    objRoot.setAttribute "externalId", "ae7029d1-ea4c-4be6-88cd-f79de86b04ca"
    objRoot.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"
    objRoot.setAttribute "xmlns:av", "http://www.it.ru/Schemas/Avior/УРКИ"
    objRoot.setAttribute "xsi:schemaLocation", "http://www.it.ru/Schemas/Avior/УРКИ УРКИ.xsd"

    Set objDoc.DocumentElement = objRoot

    Set objElem = objDoc.createElement("av:СведенияСпецДеп")
    objRoot.appendChild objElem
    Set objNode = objDoc.createElement("av:ДатаПредставления")
    objNode.Text = "2015-07-01"
    objElem.appendChild objNode

    Set objNode = objDoc.createElement("av:ПолноеФирменноеНаименование")
    objNode.Text = "000000"
    objElem.appendChild objNode

    Set objNode = objDoc.createElement("av:ИНН")
    objNode.Text = "000000"
    objElem.appendChild objNode

    Set objNode = objDoc.createElement("av:КПП")
    objNode.Text = "000000"
    objElem.appendChild objNode

    Set objNode = objDoc.createElement("av:НомерЛицензии")
    objNode.Text = "000000"
    objElem.appendChild objNode

    Set objNode = objDoc.createElement("av:ДатаЛицензии")
    objNode.Text = "000000"
    objElem.appendChild objNode

    Set objNode = objDoc.createElement("av:ОрганВыдавшийЛицензию")
    Set objElemP = objDoc.createElement("av:Код")
    objElemP.Text = "001"
    objNode.appendChild objElemP
    Set objElemP = objDoc.createElement("av:Описание")
    objElemP.Text = "ФСФР"
    objNode.appendChild objElemP
    Set objElemP = objDoc.createElement("av:Активно")
    objElemP.Text = "true"
    objNode.appendChild objElemP
    objElem.appendChild objNode
    objDoc.Save strFilePath
    Set objDoc = Nothing
End Sub

Удачи в написании макроса.

[Кардаган]

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

StartProg,Без шапки файла xml я вам не смогу помочь.
Можете на мыло выслать,есть в профиле.

И где Вы просили скрыть шапку? Вы просили её ПОКАЗАТЬ.

[doober]

dim A as boolean

А=iif("Экселист Планета"="Кардаган Программерс",True,False)
A=???

[Кардаган]

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

dim A as boolean

А=iif("Экселист Планета"="Кардаган Программерс",True,False)
A=???

Нет я Экселиста не знаю.

[Iron Monk]

Сообщение от Кардаган

Нет я Экселиста не знаю.

Ну и слава разумным существам. Аминь.

[Кардаган]

Сообщение от Iron Monk

Ну и слава разумным существам. Аминь.

Это комплимент?

[doober]

Сообщение от Кардаган

Нет я Экселиста не знаю.

Обманываете

[Кардаган]

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

Обманываете

Ничуть! Честное пионерское! Хз кто зарегистрировался под моим ником на сайте по Вашей ссылке.

[ShAM66]

Здесь этого чела забанит кто-нибудь?