Sub xml()
     Columns("J:J").Select
     Selection.NumberFormat = "@"
     Range("A1").Select
     With ActiveWorkbook.XmlMaps("Файл_карта")
         .ShowImportExportValidationErrors = False
         .AdjustColumnWidth = True
         .PreserveColumnFilter = False
         .PreserveNumberFormatting = True
         .AppendOnImport = False
     End With
     ActiveWorkbook.XmlImport URL:="C:\1.xml", ImportMap:=Nothing, Overwrite:= _
         True, Destination:=Range("$A$1")
End Sub

Public Sub myxmlimport()
       Const xmlFile = "d:\path\filename.xml"
       Dim fso As Object, pStream As Object, pCell As Range
       Dim sText As String, sName As String
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set pStream = fso.OpenTextFile(xmlFile)
       sText = pStream.ReadAll: pStream.Close
       sText = VBA.Replace(sText, "=""0", "=""'0")
       sName = fso.GetTempName
       sName = "\" & Mid$(sName, 1, InStrRev(sName, ".") - 1) & ".xml"
       sName = Environ$("Temp") & sName
       Set pStream = fso.CreateTextFile(sName, True)
       pStream.Write sText: pStream.Close
       ActiveWorkbook.XmlImport sName, Nothing, True, Range("A1")
       ActiveSheet.UsedRange.NumberFormat = "@"
       fso.DeleteFile sName
       For Each pCell In ActiveSheet.UsedRange
           If Mid$(pCell.Value, 1, 1) = "'" Then pCell.Value = Mid$(pCell.Value, 2)
       Next
End Sub