Vbs Importing XML into Excel problem

[Bodhisativa]

I have an excel/vba project I've been working on and run into some trouble importing a xml file to my workbook. The existing xmlmap is valid and the xml file imports when using the import xml under the Data dropdown menu however it fails to import using the vbs script I've written. I use the default schema as the xmlmap is very simple and have come across a page from microsoft here that mentions that I have to unwrap certain objects when the ExcelLocale1033Attribute is set to true. The syntax however, eludes me. Here's what I'd like to insert the proper code into:

Private Sub CommandButton10_Click()
fileToOpen = Application _
    .GetOpenFilename("XML Files (*.xml), *.xml")
ActiveWorkbook.XmlImport(Data:=fileToOpen,ImportMap:=Estimate)
End Sub

[SammyB]

I have an excel/vba project I've been working on and run into some trouble importing a xml file to my workbook. The existing xmlmap is valid and the xml file imports when using the import xml under the Data dropdown menu however it fails to import using the vbs script I've written. I use the default schema as the xmlmap is very simple and have come across a page from microsoft here that mentions that I have to unwrap certain objects when the ExcelLocale1033Attribute is set to true. The syntax however, eludes me. Here's what I'd like to insert the proper code into:

Private Sub CommandButton10_Click()
fileToOpen = Application _
.GetOpenFilename("XML Files (*.xml), *.xml")
ActiveWorkbook.XmlImport(Data:=fileToOpen,ImportMap:=Estimate)
End Sub

Your reference only applies to .NET applications. You won't need to do any of this in VBA. Two suggestions:

1. Look at the return code from XmlImport
2. Provide a destination range (the upper-left corner) parameter for XmlImport