Option Explicit Private Sub Analiza_XML_Click() Range("A2:AFD1048576").ClearContents Range("A2:AFD1048576").Font.ColorIndex = xlAutomatic Dim objStream, strData Set objStream = CreateObject("ADODB.Stream") objStream.Charset = "utf-8" objStream.Open objStream.LoadFromFile (Application.ActiveWorkbook.Path & "\raport.xml") 'objStream.LoadFromFile ("C:\aa\XLSB_Raporty_Nowy\tmp\ksiegPracOpk_jrxml.data") strData = objStream.ReadText() strData = Replace(strData, Chr(9), "") 'usun tab Dim k As Integer Dim a, i, j As Long Dim Linia As Variant If InStr(strData, vbCrLf) = 0 Then 'sprawdz plik czy vbCrLf czy vbLf Linia = Split(strData, vbLf) Else Linia = Split(strData, vbCrLf) End If i = 1 j = 1 For a = 0 To UBound(Linia) Linia(a) = Trim(Linia(a)) i = i + 1 Cells(i, 2) = Linia(a) Next a objStream.Close Set objStream = Nothing End Sub '******************************************************************************************* Option Explicit Dim XmlOutStream Private Sub Zapis_XML_Click() Dim pth As String pth = Application.ActiveWorkbook.Path & "\raport_wynik.xml" Dim Mstr, Mstr1, Mstr7 Mstr = "" Dim k k = 0 Set XmlOutStream = CreateObject("ADODB.Stream") XmlOutStream.Charset = "utf-8" XmlOutStream.Open While Not IsEmpty(Cells(k + 2, 1)) k = k + 1 Mstr = Cells(k + 1, 2).Value & Cells(k + 1, 3).Value XmlOutStream.WriteText Mstr & Chr(13) & Chr(10) 'CRLF 'Cells(k + 1, 4) = k Wend XmlOutStream.SaveToFile pth, 2 XmlOutStream.Close Otworz (pth) End Sub Private Sub Otworz(plik As String) 'usun z pliku \r Dim MyTxtFile MyTxtFile = Shell("C:\Program Files (x86)\Notepad++\notepad++.exe " & plik, 1) End Sub