Public Number1 As Integer 'Public Number2 As Integer Public vDate As String Public Month As String Public Year As String Public customerNumber As String Public customerName As String Public fvNumber As String Public fvNumber2 As String Public fvAmount As String Public Char As String Public Iter As Integer '----------Begin-------------- Public B4 As String Public C4 As String Public H4 As String Public E4 As String Public D4 As String Public G7 As String '-----------First-------------- Public A5 As String Public B5 As String Public C5 As String Public D5 As String Public E5 As String Public F5 As String Public G5 As String Public H5 As String Public I5 As String Public M5 As String Public O5 As String Public P5 As String Public AB5 As String Public AE5 As String Public AF5 As String Public AH5 As String Public AJ5 As String Public AS5 As String '-----------Second-------------- Public A6 As String Public B6 As String Public C6 As String Public D6 As String Public E6 As String Public F6 As String Public G6 As String Public H6 As String Public I6 As String Public M6 As String Public O6 As String Public P6 As String Public AB6 As String Public AE6 As String Public AF6 As String Public AH6 As String Public AJ6 As String Public AS6 As String Sub Inwentaryzacja() Set fs = CreateObject("Scripting.FileSystemObject") Set file = fs.CreateTextFile("C:\xml\Inwentaryzacja.xml", True) '----------------Sprawdzenie gdzie zaczyna sie pusta komórka---------------------- lastgoodcell = Worksheets("Inwentaryzacja").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count '--------------------------------------------------------------------------------- Iter = 5 '----------------Begin--------------------- B4 = Cells(4, 2) C4 = Cells(4, 3) H4 = Cells(4, 8) E4 = Cells(4, 5) D4 = Cells(4, 4) G7 = Cells(4, 7) Call WriteBeginXML(file) x = 5 y = 6 While Iter <= lastgoodcell And x <= lastgoodcell And y <= lastgoodcell A5 = Cells(x, 1) 'MsgBox "A5:" & A5 A6 = Cells(y, 1) 'MsgBox "A6:" & A6 B5 = Cells(x, 2) B6 = Cells(y, 2) C5 = Cells(x, 3) C6 = Cells(y, 3) D5 = Cells(x, 4) D6 = Cells(y, 4) E5 = Cells(x, 5) E6 = Cells(y, 5) F5 = Cells(x, 6) F6 = Cells(y, 6) G5 = Cells(x, 7) G6 = Cells(y, 7) H5 = Cells(x, 8) H6 = Cells(y, 8) I5 = Cells(x, 9) I6 = Cells(y, 9) M5 = Cells(x, 13) M5 = Replace(M5, ",", ".") M6 = Cells(y, 13) M6 = Replace(M6, ",", ".") O5 = Cells(x, 15) O6 = Cells(y, 15) P5 = Cells(x, 16) P6 = Cells(y, 16) AB5 = Cells(x, 28) AB6 = Cells(y, 28) AE5 = Cells(x, 31) AE6 = Cells(y, 31) AF5 = Cells(x, 32) AF6 = Cells(y, 32) AH5 = Cells(x, 34) AH6 = Cells(y, 34) AJ5 = Cells(x, 36) AJ6 = Cells(y, 36) AS5 = Cells(x, 45) AS6 = Cells(y, 45) x = x + 2 y = y + 2 Call WriteFirstInfoXML(file) Call WriteSecondInfoXML(file) Iter = Iter + 1 Wend Call WriteEndXML(file) file.Close End Sub Private Sub WriteBeginXML(ByVal a As Object) a.writeline ("") a.writeline ("") a.writeline ("") a.writeline ("") a.writeline ("") & G7 & ("") a.writeline ("") a.writeline ("") a.writeline ("") & H4 & ("") a.writeline ("") & H4 & ("") a.writeline ("") a.writeline ("") End Sub Private Sub WriteFirstInfoXML(ByVal a As Object) a.writeline ("") a.writeline (" ") & H5 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") & G5 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") & AB5 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") & M5 & ("") a.writeline (" 0.0") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") & M5 & ("") a.writeline (" 0.0") a.writeline (" ") & P5 & ("") a.writeline (" ") a.writeline (" 0") a.writeline (" ") a.writeline (" ") a.writeline (" 0.0") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" K") a.writeline ("0") a.writeline (" 0") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") & AJ5 & ("") a.writeline (" ") & H5 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline ("") End Sub Private Sub WriteSecondInfoXML(ByVal a As Object) a.writeline (" ") a.writeline (" ") & H6 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") & G6 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") & AB6 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" 0.0") a.writeline (" ") & M6 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" 0.0") a.writeline (" ") & M6 & ("") a.writeline (" ") & P6 & ("") a.writeline (" ") a.writeline (" 0") a.writeline (" ") a.writeline (" ") a.writeline (" 0.0") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" K") a.writeline (" 0") a.writeline (" 0") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") & AJ6 & ("") a.writeline (" ") & H6 & ("") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") a.writeline (" ") End Sub Private Sub WriteEndXML(ByVal a As Object) a.writeline (" ") a.writeline ("") a.writeline ("") End Sub