Come aprire un file di testo utilizzando vba (con esempio)

È possibile utilizzare il metodo OpenTextFile in VBA per aprire un file di testo da un percorso file specifico.

Ecco un modo comune per utilizzare questo metodo nella pratica:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

Questa particolare macro legge il file di testo chiamato MyTextFile.txt situato sul desktop del mio computer e visualizza il contenuto del file nella cella A1 .

L’esempio seguente mostra come utilizzare in pratica questa sintassi per leggere un file di testo.

Esempio: come aprire un file di testo utilizzando VBA

Supponiamo di avere sul desktop un file di testo chiamato MyTextFile.txt che vorremmo leggere in Excel utilizzando VBA.

Ecco il contenuto del file:

Prima di utilizzare VBA per leggere questo file, dobbiamo prima abilitare Microsoft Scripting Runtime nell’editor VB.

Per fare ciò, apri l’editor VB, quindi fai clic su Strumenti , quindi su Riferimenti :

Nella nuova finestra visualizzata, scorri verso il basso fino a visualizzare Microsoft Scripting Runtime e seleziona la casella accanto ad essa. Quindi fare clic su OK .

Quindi possiamo creare la seguente macro per leggere un file di testo:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

Una volta eseguita questa macro, il contenuto del file di testo chiamato MyTextFile.txt verrà visualizzato nella cella A1 :

Tieni presente che il contenuto della cella A1 corrisponde al contenuto del file di testo.

Nota : puoi trovare la documentazione completa per il metodo OpenTextFile qui .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come creare cartelle utilizzando VBA
Come eliminare cartelle utilizzando VBA
Come eliminare file utilizzando VBA