Filename = "C:\Baza\Spis" & data & ".txt"
    Open Filename For Output As #1
  

  
  For R = 1 To .Range("A65536").End(xlUp).Row
             
              
              For C = 1 To 40
                data = .Cells(R, C).Value
                If IsNumeric(data) Then data = Val(data)
                If IsEmpty(.Cells(R, C)) Then data = ""
                If C <> 40 Then
                    Write #1, CStr(data),
                Else
                     Write #1, CStr(data)
                   End If
           
            Next C
  Next R
     
    Close #1