Conversione da XLS a TXT

[CrazyKing_max]

Salve,
avrei bisogno del vostro aiuto per copiare i dati da un foglio di Excel ad un documento del blocco note.
Il file di Excel è più o meno così:


Il file del Blocco Note (TXT) dovrebbe uscire più o meno così:

Titolo: Primo film
Autore: Pinco Pallino
Anno: 1980
Genere: Horror

Titolo: Secondo film
Autore: Tizio
Anno: 1990
Genere: Commedia

Titolo: Terzo film
Autore: Caio
Anno: 2000
Genere: Fantascienza

Siccome i dati sono tanti fare questo lavoro manualmente richiederebbe molto tempo, c'è un modo automatico per copiare i dati in questo modo?

Grazie in anticipo

[nman]

Io farei innanzitutto una piccola macro in Exel che genera 3 o 4 righe
vuote poi va a prendere autore anno e genere e li posiziona nelle
righe appena create

e cosi via a ripetizione fino alla fine del file


Dopo puoi copiare in txt

[nicola75ss]

Sub esporta()
Dim ultima As Long, i As Long, f As Long
ultima = Range("A65536").End(xlUp).Row
f = FreeFile()
Open "c:\elenco.txt" For Output As #f
For i = 2 To ultima 'scorri le righe dalla seconda all'ultima
Print #f, Range("A1") & ": " & Range("A" & i)
Print #f, Range("B1") & ": " & Range("B" & i)
Print #f, Range("C1") & ": " & Range("C" & i)
Print #f, Range("D1") & ": " & Range("D" & i)
Print #f,
Next i
Close f
End Sub