Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Programmatically Changing XML Map Properties

Sub ChangeXmlMapProperties()          With ActiveWorkbook.XmlMaps("EmployeeSales_Map")              .name = "New_Name"              .ShowImportExportValidationErrors = False              .SaveDataSourceDefinition = True              .AdjustColumnWidth = True              .PreserveColumnFilter = True              .PreserveNumberFormatting = True              .AppendOnImport = False          End With          ThisWorkbook.XmlMaps(1).name = "EmployeeSales_Map"      End Sub