Ho scritto uno script per esportare dati da xls a testo semplice ma ho
incontrato le seguenti difficoltà:
-dopo un certo numero di celle scrive su file caratteri  casuali
-vorrei leggere le celle sequenzialmente e scriverle direttamente sul
file senza memorizzarle in un record

------------------------------
Option Explicit

Private Type RECORD
  articolo As String * 10
  collocazione As String * 1
  definizione As String * 120
    ' <...>
End Type


Sub ciclo_esporta()
  Dim strFile As String
  Dim intFile As Integer
  Dim mk    As RECORD
  Dim i       As Long
  Dim n As Integer


strFile = "C:\test1.txt"
intFile = FreeFile(0)
Open strFile For Random Access Write As #intFile Len = Len(mk)


With mk
.articolo = Worksheets("MK_01").Cells(122 + n, 3).Value
.collocazione = Worksheets("MK_01").Cells(122 + n, 5).Value
.definizione = Worksheets("MK_01").Cells(122 + n, 6).Value

'.....

End With

Put #intFile, , mk

Close #intFile

End Sub
---------------------------