Come aggiungere dati a un file di testo

Quando utilizzi una macro per scrivere informazioni in un file di testo, potresti voler aggiungere informazioni a un file esistente, anziché creare un nuovo file di testo da zero. Per fare questo, tutto ciò che devi fare è aprire il file “for Append” anziché “for Output“. Il codice seguente mostra questo processo:

 

Sub aggiungi_a_file()
Dim rangec As Range
Dim c As Range
Set rangec = Range("B1:B4")
Open "C:\Users\Documents\MyFile.Dat" For Append As #1
For Each c In rangec
    Print #1, c.Value
Next c
Close #1
Set rangec = Nothing
Set c = Nothing
End Sub

 

 

Il codice illustrato aggiunge al contenuto del file MyFile.dat il contenuto delle celle B1:B4.

Quando il file viene aperto in modalità Append, qualsiasi nuova informazione viene aggiunta alla fine del file, senza disturbare il contenuto esistente.

 

 

Tags: , , , ,

Ti è stato utile?