Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Get Schema

Sub GetSchema()          Dim MySchema As String          'Get the schema          MySchema = ActiveWorkbook.XmlMaps("EmployeeSales_Map").Schemas(1).XML          Open "C:\MySchema.xsd" For Output As #1          Print #1, MySchema          Close #1      End Sub