Per finire il lavoro in questione avrei bisogno di esportare dei dati presenti in varie celle in un file txt compilato per righe dove ogni campo ha una lunghezza prestabilita.
Per un'altro lavoro simile ho utilizzato una macro simile trovata in rete che però mi esporta le celle di un range, non riesco a modoficarle indicando solo quelle che volgio io e dando all'out il giusto numero di caratteri per ogni cella
- Codice: Seleziona tutto
Sub creafile()
' Crea file di testo da una zona dati Excel
'
Path$ = "C:" ' percorso per salvataggio file
Nomefile$ = "Prova_1.txt" ' nome del file da salvare
PF$ = Path$ & Nomefile$ ' costruisce percorso completo
nri% = 4 ' imposta n° righe
nco% = 8 ' imposta n° colonne
'
If Dir(PF$) <> "" Then ' verifica se il file esiste già
msgrisp = MsgBox("Il file esiste già." & Chr(13) & "Sostituirlo?", 308, "Messaggio Macro Creafile")
If msgrisp = 7 Then End
End If
F% = FreeFile ' acquisisce primo numero di file libero
Open PF$ For Output As #F% ' apre un file per output
For riga% = 1 To nri%
For col% = 1 To nco%
If col% < nco% Then
Print #F%, Sheets("Foglio1").Cells(riga%, col%); Chr(9); 'Scrive dati nel file
Else
Print #F%, Sheets("Foglio1").Cells(riga%, col%)
End If
Next col%
If riga% < nri Then Print #F%, Chr(13)
Next riga%
'
Close #F% 'Chiude File
'
MsgBox "Creato file " & Nomefile$, 64, "Messaggio Macro Creafile"
'
End Sub