<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="ru">
		<id>http://www.vbex.ru/index.php?action=history&amp;feed=atom&amp;title=VBA%2FExcel%2FAccess%2FWord%2FXML%2FXML_Export</id>
		<title>VBA/Excel/Access/Word/XML/XML Export - История изменений</title>
		<link rel="self" type="application/atom+xml" href="http://www.vbex.ru/index.php?action=history&amp;feed=atom&amp;title=VBA%2FExcel%2FAccess%2FWord%2FXML%2FXML_Export"/>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/XML/XML_Export&amp;action=history"/>
		<updated>2026-04-06T00:12:12Z</updated>
		<subtitle>История изменений этой страницы в вики</subtitle>
		<generator>MediaWiki 1.30.0</generator>

	<entry>
		<id>http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/XML/XML_Export&amp;diff=1476&amp;oldid=prev</id>
		<title> в 16:33, 26 мая 2010</title>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/XML/XML_Export&amp;diff=1476&amp;oldid=prev"/>
				<updated>2010-05-26T16:33:00Z</updated>
		
		<summary type="html">&lt;p&gt;&lt;/p&gt;
&lt;table class=&quot;diff diff-contentalign-left&quot; data-mw=&quot;interface&quot;&gt;
				&lt;tr style=&quot;vertical-align: top;&quot; lang=&quot;ru&quot;&gt;
				&lt;td colspan=&quot;1&quot; style=&quot;background-color: white; color:black; text-align: center;&quot;&gt;← Предыдущая&lt;/td&gt;
				&lt;td colspan=&quot;1&quot; style=&quot;background-color: white; color:black; text-align: center;&quot;&gt;Версия 16:33, 26 мая 2010&lt;/td&gt;
				&lt;/tr&gt;&lt;tr&gt;&lt;td colspan=&quot;2&quot; style=&quot;text-align: center;&quot; lang=&quot;ru&quot;&gt;&lt;div class=&quot;mw-diff-empty&quot;&gt;(нет различий)&lt;/div&gt;
&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;</summary>
			</entry>

	<entry>
		<id>http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/XML/XML_Export&amp;diff=1477&amp;oldid=prev</id>
		<title>Admin: 1 версия</title>
		<link rel="alternate" type="text/html" href="http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/XML/XML_Export&amp;diff=1477&amp;oldid=prev"/>
				<updated>2010-05-26T12:47:13Z</updated>
		
		<summary type="html">&lt;p&gt;1 версия&lt;/p&gt;
&lt;p&gt;&lt;b&gt;Новая страница&lt;/b&gt;&lt;/p&gt;&lt;div&gt;==Exporting an Access Report to an XML Data File with ASP==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
  &amp;lt;!-- start source code --&amp;gt;&lt;br /&gt;
   &lt;br /&gt;
    &amp;lt;source lang=&amp;quot;vb&amp;quot;&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
Sub Export_InvoiceReport() &lt;br /&gt;
     Application.ExportXML ObjectType:=acExportReport, _ &lt;br /&gt;
                 DataSource:=&amp;quot;Invoice&amp;quot;, _ &lt;br /&gt;
                 DataTarget:=&amp;quot;C:\Invoice.xml&amp;quot;, _ &lt;br /&gt;
                 PresentationTarget:=&amp;quot;C:\Invoice.xsl&amp;quot;, _ &lt;br /&gt;
                 ImageTarget:=&amp;quot;C:\Learn_XML&amp;quot;, _ &lt;br /&gt;
                 WhereCondition:=&amp;quot;OrderID=11075&amp;quot; &lt;br /&gt;
End Sub &lt;br /&gt;
 &amp;lt;/source&amp;gt;&lt;br /&gt;
    &lt;br /&gt;
   &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Exporting Multiple Tables to an XML Data File==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
   &lt;br /&gt;
  &amp;lt;!-- start source code --&amp;gt;&lt;br /&gt;
   &lt;br /&gt;
    &amp;lt;source lang=&amp;quot;vb&amp;quot;&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
Sub Export_CustomerOderDetails()&lt;br /&gt;
    Dim objOtherTbls As AdditionalData&lt;br /&gt;
    On Error GoTo ErrorHandle&lt;br /&gt;
    Set objOtherTbls = Application.CreateAdditionalData&lt;br /&gt;
    objOtherTbls.Add &amp;quot;Employees&amp;quot;&lt;br /&gt;
    objOtherTbls.Add &amp;quot;Products&amp;quot;&lt;br /&gt;
    Application.ExportXML ObjectType:=acExportTable, _&lt;br /&gt;
                DataSource:=&amp;quot;Customers&amp;quot;, _&lt;br /&gt;
                DataTarget:=&amp;quot;C:\Details.xml&amp;quot;, _&lt;br /&gt;
                AdditionalData:=objOtherTbls&lt;br /&gt;
Exit_Here:&lt;br /&gt;
        Exit Sub&lt;br /&gt;
ErrorHandle:&lt;br /&gt;
        MsgBox Err.Number &amp;amp; &amp;quot;: &amp;quot; &amp;amp; Err.Description&lt;br /&gt;
        Resume Exit_Here&lt;br /&gt;
End Sub&lt;br /&gt;
 &amp;lt;/source&amp;gt;&lt;/div&gt;</summary>
		<author><name>Admin</name></author>	</entry>

	</feed>