Scrivi file di testo in Excel VBA
Ci imbattiamo tutti in questo tipo di situazione in cui abbiamo dovuto inserire enormi dati in file Excel, ma alla fine abbiamo affrontato la situazione in cui le dimensioni di quel file con enormi dati sono aumentate così tanto che abbiamo dovuto convertirlo in un testo file. Per questo motivo non abbiamo potuto lavorare su quel file né salvarlo in formato Excel. Questo tipo di situazione abbiamo visto in molti progetti in cui è necessario estrarre i dati dal database. L'estrazione dei dati dal database è possibile se si utilizza il file di testo per questo scopo. Il file di testo non viene impiccato e possiamo archiviare quanti più dati e tabelle in un singolo file di testo senza arrestare il file. Per questo, dobbiamo convertire il file Excel in un file di testo. Anche se non è un grosso compito quando è un'attività ripetitiva e può richiedere molto tempo per eseguire.
Per evitare ciò, abbiamo un processo in VBA, con quello, possiamo convertire il file Excel in un file di testo senza danneggiare i dati. In questo modo, possiamo salvare un enorme set di dati nel file di testo riducendo e comprimendo anche le dimensioni del file.
Comprendere il codice VBA per scrivere il file di testo è piuttosto complesso ma non è difficile da capire.
Processo seguito:
- Percorso file: inserire il percorso del file in cui è stato conservato il file Excel.
- Modalità: per quale scopo è necessario aprire il file. Può essere la modalità di sola lettura o lo scopo di scrittura o è necessario utilizzarlo per aggiungere i dati.
- Numero file: con questo, possiamo contare il numero di volte che abbiamo usato per il file Excel per un file di testo.
Come scrivere file di testo in Excel VBA?
Impareremo come scrivere un file di testo usando il codice VBA in Excel con alcuni esempi.
È possibile scaricare questo modello Excel di file di testo di scrittura VBA qui - Modello Excel di file di testo di scrittura VBA quiEsempio n. 1 - VBA Scrivi file di testo
In questo esempio, vedremo come mappare la posizione del file con il codice VBA per scriverlo nel formato del file di testo. Per questo, abbiamo bisogno di un modulo.
Passaggio 1: vai all'opzione di menu Inserisci e seleziona Modulo come mostrato di seguito.
Step 2: Ora, nel modulo aperto, scrivi la sottocategoria di VBA Write Text o possiamo scegliere qualsiasi nome secondo la nostra scelta.
Codice:
Sub WriteTextFile2 () End Sub
Passaggio 3: nel primo passaggio della codifica, dichiarare la variabile myFile come stringa come mostrato di seguito.
Codice:
Sub WriteTextFile2 () Dim myFile As String End Sub
Passaggio 4: nella variabile assegnata inserire la posizione del file che è necessario convertire da Excel a testo. Qui abbiamo chiamato quel file come Test con l'estensione. txt come mostrato di seguito.
Codice:
Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ File VPB \ File di aprile \ Posizione finale \ Final Input.txt" End Sub
Passaggio 5: Come abbiamo visto nella descrizione di VBA Write Text File, apriremo prima il file excel e quindi aggiungeremo i dati da Excel a un file di testo con la riga di comando sottostante.
Codice:
Sottotitoli WriteTextFile2 () Dim myFile As String myFile = "D: \ File VPB \ File di aprile \ Posizione finale \ Final Input.txt" Apri myFile per aggiungere come sottotitolo n. 1
Passaggio 6: ora inseriamo del testo in un file di testo che vorremmo vedere come mostrato di seguito con l'aiuto di Scrivi n. 1 per la prima tabella. Abbiamo inserito alcune marche di auto casuali con il nome del modello e le specifiche.
Codice:
WriteTextFile2 secondario () Dim myFile As String myFile = "D: \ File VPB \ File di aprile \ Posizione finale \ Final Input.txt" Apri myFile per Aggiungi come # 1 Scrivi # 1, "Ford", "Figo", 1000, " miglia ", 2000 Scrivi # 1, " Toyota ", " Etios ", 2000, " miglia ", End Sub
Passaggio 7: ora chiudere la prima tabella come mostrato di seguito.
Codice:
WriteTextFile2 secondario () Dim myFile As String myFile = "D: \ File VPB \ File di aprile \ Posizione finale \ Final Input.txt" Apri myFile per Aggiungi come # 1 Scrivi # 1, "Ford", "Figo", 1000, " miglia ", 2000 Scrivi # 1, " Toyota ", " Etios ", 2000, " miglia ", Chiudi # 1 End Sub
Passaggio 8: Vorremmo anche vedere il messaggio una volta terminato il processo.
Codice:
WriteTextFile2 secondario () Dim myFile As String myFile = "D: \ File VPB \ File di aprile \ Posizione finale \ Final Input.txt" Apri myFile per Aggiungi come # 1 Scrivi # 1, "Ford", "Figo", 1000, " miglia ", 2000 Scrivi # 1, " Toyota ", " Etios ", 2000, " miglia ", Chiudi # 1 MsgBox" Salvato "End Sub
Passaggio 9: ora compila il codice ed eseguilo facendo clic sul pulsante Riproduci situato sotto la barra dei menu come mostrato di seguito. Se non viene rilevato alcun errore, viene visualizzata la finestra di messaggio con il messaggio Salvato come mostrato di seguito.
Passo 10: Ora vai nella posizione che abbiamo menzionato nel codice sopra, vedremo il file di testo con il nome Test come mostrato di seguito.
Ora per verificare se questo file di testo ha gli stessi dati che abbiamo inserito tramite VBA, aprilo. Vedremo che sono stati inseriti gli stessi dati.
Esempio n. 2 - VBA Scrivi file di testo
C'è un altro modo per lo stesso lavoro.
Passaggio 1: Nell'esempio, useremo lo stesso codice che abbiamo scritto sopra ma ci sarebbe una leggera modifica nel codice utilizzato. Consideriamo lo stesso codice mostrato nell'esempio-1.
Codice:
Scrivi WriteTextFile2 () Dim myFile As String myFile = Apri myFile per Aggiungi come # 1 Scrivi # 1, "Ford", "Figo", 1000, "miglia", 2000 Scrivi # 1, "Toyota", "Etios", 2000, "miglia", Chiudi # 1 MsgBox "Salvato" End Sub
Passaggio 2: ora al posto del percorso del file, selezionare la cartella di lavoro attiva con ActiveWorkbook come mostrato di seguito.
Codice:
Sottotitoli WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Apri myFile per Aggiungi come # 1 Scrivi # 1, "Ford", "Figo", 1000, "miglia", 2000 Scrivi # 1, "Toyota", "Etios", 2000, "miglia", Chiudi # 1 MsgBox "Salvato "End Sub
Passaggio 3: ora selezionare il percorso dall'elenco a discesa di ActiveWorkBook .
Codice:
Scrivi WriteTextFile2 () Dim myFile Come String myFile = ActiveWorkbook.Path Apri myFile per Aggiungi come # 1 Scrivi # 1, "Ford", "Figo", 1000, "miglia", 2000 Scrivi # 1, "Toyota", "Etios", 2000, "miglia", Chiudi # 1 MsgBox "Salvato" Sottotitolo
Passaggio 4: quindi selezionare il percorso in cui è necessario aggiungere i dati nel file di testo separati da una e commerciale.
Codice:
Scrivi WriteTextFile2 () Dim myFile Come String myFile = ActiveWorkbook.Path & "\ VPB File" Apri myFile per aggiungere come # 1 Scrivi # 1, "Ford", "Figo", 1000, "miglia", 2000 Scrivi # 1, " Toyota ", " Etios ", 2000, " miglia ", Chiudi # 1 MsgBox" Salvato "Sottotitolo
Passaggio 5: Ora compila nuovamente il codice ed eseguilo successivamente. Al completamento con successo della corsa, riceveremo il messaggio come Salvato .
Ora vai di nuovo a quel percorso in cui abbiamo conservato questo file che contiene il codice e vedi se il file di testo è stato salvato lì o no.
Ora apri il file per verificare se i dati sono stati aggiunti correttamente o meno. Scopriremo che i dati vengono aggiunti in modo simile a quello dell'esempio 1.
Pro di Excel VBA Scrivi file di testo
- Non è nemmeno necessario aprire alcun file per aggiungere i dati.
- Se i dati sono enormi, possiamo aggiungere i dati da Excel a Text senza aprire il file. Quindi, non ci sono problemi nella gestione del file.
- Se seguiamo il processo condiviso nell'esempio-2, non dobbiamo nemmeno fornire il percorso in cui vogliamo vedere il file di testo di output.
Cose da ricordare
- Nel processo mostrato nell'esempio-1, possiamo posizionare il file nella posizione in cui vogliamo vedere l'output.
- Nel processo mostrato nell'esempio-2, considererà automaticamente la posizione del file che ha il codice VBA del file di testo di scrittura VBA.
- Possiamo anche selezionare i dati da qualsiasi file Excel che vogliamo convertire nel file di testo.
- Possiamo selezionarne e crearne una qualsiasi come tabella che vogliamo aggiungere nel file di testo.
Articoli consigliati
Questa è una guida a VBA Write Text File. Qui discutiamo come scrivere un file di testo in Excel usando il codice VBA insieme ad esempi pratici e modello Excel scaricabile. Puoi anche consultare i nostri altri articoli suggeriti:
- VBA InStr spiegato con esempi
- Tipo di dati intero VBA
- VBA ISNULL spiegato con esempi
- Trasponi un intervallo in VBA