xml import error

X

Xl1

Dear newsgroupexperts,

Im getting crazy from this error message that repetently occurs when
importing xml.
the message is: some data is imported as text.

I do'nt care about this and do'nt want to press OK everytime, because there
are over 2000 xml-files everyday.
I have read the posts in this NG, regarding xml-import.

application.displayalerts=false, does'nt work.
ThisWorkbook.XmlMaps(1).ShowImportExportValidationErrors = False does
neither.

what can I do aubout this?

my code is:

Sub XMLbestandenLijst()
Dim T As Long, R As Long

Application.ScreenUpdating = False
xmlLkol = wblXML.Range("Tabel1").Columns.Count
If bDirChoice Then
For T = 1 To fnum
ThisWorkbook.XmlMaps(1).ShowImportExportValidationErrors = False
ThisWorkbook.XmlMaps(1).Import URL:=MyFiles(T)
If bImported Then Debug.Print MyFiles(T)
Application.StatusBar = " importing xml; ready: " & Round(T /
fnum * 100, 1) & "%"
Next T
End If
Application.StatusBar = "ready"
Application.ScreenUpdating = True
End Sub

If there are betterways of importing xml, using different objects please let
me know.

Best wishes,

Ernst
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top