EXCEL и XML

[npolozova21]

подскажите, с чего начать. есть файл xml. Есть данные в EXCEL, нужно эти данные сохранить в виде xml файла, чтобы он в точности соответствовал образцу.

[Денис]

1. Сохранить как...
2. Тип файла -> XML-данные (*.XML)
3. Сохранить.
4. Справка.
5. Читать.

А скрипач бейсик не нужен.

[npolozova21]

Денис спасибо конечно, но только мне нужно написать код по экспорту в xml файл, кроме того получаемый xml файл должен соответствовать некоторой схеме.

[Денис]

код - не проблема. Врубить запись макроса и на выходе имеем код.

[GDK]

получаемый xml файл должен соответствовать некоторой схеме.

То есть написать прогу, которая:
Выцепляет данные из екселя, создаёт новый файл XML с соответствующей структурой, вносит(выносит) в этот файл данные, полученные из екселя.

Ну для работы с XML скорее всего потребуется к-нибудь сторонняя библиотека, хотя... может есть встроенные объекты ... Ну а выцеплять данные из екселя - ничего сложного. Тут уже конкретные вопросы - конкретные ответы.

[alibek]

Денис спасибо конечно, но только мне нужно написать код по экспорту в xml файл, кроме того получаемый xml файл должен соответствовать некоторой схеме.

Значит напиши код, который будет формировать XML в соответствии с этой схемой, или напиши XSL-шаблон, который будет приводить Excel-XML к нужной схеме.

[atom_nb]

Для формирования, чтения, преобразования XML можно использовать MS XML.
См.: XMLSDK5.CHM (идет с MS Office) Плюс в том, что это справка offline.
В разделе DOM Developer's Guide -> Starter Kit -> What is XML DOM сразу можно найти примеры
Также поискав appendChild Method, находим код

Код: Выделить всё

Dim xmlDoc As New Msxml2.DOMDocument50
Dim root As IXMLDOMElement
Dim newNode As IXMLDOMNode

xmlDoc.async = False
xmlDoc.Load ("books.xml")
If (xmlDoc.parseError.errorCode <> 0) Then
   Dim myErr
   Set myErr = xmlDoc.parseError
   MsgBox("You have error " & myErr.reason)
Else
   Set root = xmlDoc.documentElement
   MsgBox root.xml
   Set newNode = xmlDoc.createNode(NODE_ELEMENT, "VIDEOS", "")
   root.appendChild newNode
   MsgBox root.xml
End If


Также
http://msdn.microsoft.com/en-us/library/ms760399(VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms763742(VS.85).aspx