ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   can i create an excel xml map without having an import file? (https://www.excelbanter.com/excel-programming/324188-can-i-create-excel-xml-map-without-having-import-file.html)

RVSutherland

can i create an excel xml map without having an import file?
 
how do you export an excel xml map, such that it could be used to send the
worksheet definition/structure (not the data) to other users?


Peter Huang [MSFT]

can i create an excel xml map without having an import file?
 
Hi,

Currently I am researching the issue and we will reply here with more
information as soon as possible.
If you have any more concerns on it, please feel free to post here.

Thanks for your understanding!

Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.


Peter Huang [MSFT]

can i create an excel xml map without having an import file?
 
Hi

Based on my research, we have to do it programmically.

I'm assuming you're referring to the XML Source feature in Excel 2003 Pro.
If so, you can only "export" the XML schema using Excel's OM.

Assuming there's only 1 XmlMap and 1 associated schema:

ActiveWorkbook.XmlMaps(1).Schemas(1).XML

will give you the XML for the schema.
And then you can use File IO to write out the schema to a file.
e.g.
Print # Statement Example
This example uses the Print # statement to write data to a file.

Open "TESTFILE" For Output As #1 ' Open file for output.
Print #1, "This is a test" ' Print text to file.
Print #1, ' Print blank line to file.
Print #1, "Zone 1"; Tab ; "Zone 2" ' Print in two print zones.
Print #1, "Hello" ; " " ; "World" ' Separate strings with space.
Print #1, Spc(5) ; "5 leading spaces " ' Print five leading spaces.
Print #1, Tab(10) ; "Hello" ' Print word at column 10.

' Assign Boolean, Date, Null and Error values.
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True, False, Null, and Error are translated using locale settings of
' your system. Date literals are written using standard short date
' format.
Print #1, MyBool ; " is a Boolean value"
Print #1, MyDate ; " is a date"
Print #1, MyNull ; " is a null value"
Print #1, MyError ; " is an error value"
Close #1 ' Close file.

If you still have any concern, please feel free to post here.


Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.



All times are GMT +1. The time now is 05:17 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com