Come salvare informazioni in un file di testo

Potrebbero esserci momenti in cui desideri che una macro salvi delle informazioni in un file di testo. Questo è molto facile da fare. Tutto ciò che serve è aprire il file per l’output e quindi iniziare a inviare informazioni al file. Il seguente frammento di codice scrive un file di testo utilizzando questo metodo.

 

Sub crea_file()
Dim rangec As Range
Dim c As Range
Dim numvalues as integer
Set rangec = Range("A1:A4")
numvalues = 4
Open "C:\Users\Documents\MyFile.Dat" For Output As #1
Print #1, numvalues
For Each c In rangec
    Print #1, c.Value
Next c
Close #1
Set rangec = Nothing
Set c = Nothing
End Sub

 

 

La prima cosa scritta nel file è un valore numerico che indica quanti singoli valori lo seguiranno (il codice presuppone che tu imposti questo valore nella variabile NumValues). Quindi viene utilizzato un ciclo For… Next per creare i successivi record del file. In questo caso verranno scritti sul file i valori delle celle A1:A4 del foglio di lavoro corrente.

Dovresti essere consapevole che il codice, così come scritto, sovrascriverà qualsiasi file MyFile.Dat esistente. Se vuoi proteggere il file in qualche modo, il tuo codice dovrà verificare se esiste, prima di aprirlo oppure dovrai impostare gli attributi del file su sola lettura.

Tags: , , , ,

Ti è stato utile?