
Sub gnocchete_nexive()
Sheets("TRACK_NEXIVE").Select
LR = Cells(Rows.Count, "A").End(xlUp).Row
sn = Range("AI2:AI" & LR)
For J = 1 To UBound(sn)
c00 = c00 & Join(Application.Index(sn, J, 0), ",") & vbCrLf
Next
CreateObject("scripting.filesystemobject").createtextfile(ThisWorkbook.Path & "SPEDITI_NEXIVE.csv").Write c00
Sheets("CARICO").Select
End Sub |
