Scrieți fișier text în Excel VBA
Cu toții ne confruntăm cu un astfel de situație în care a trebuit să punem date uriașe în fișiere excel, dar, în cele din urmă, ne-am confruntat cu situația când dimensiunea acelui fișier cu datele uriașe a crescut, încât a trebuit să o transformăm într-un text fişier. Datorită acestui fapt, nu am putut lucra la acel fișier și nici salvarea fișierului în format excel. Acest tip de situații am văzut în multe proiecte în care trebuie să extragem datele din baza de date. Extragerea datelor din baza de date este posibilă dacă folosiți fișierul text în acest scop. Fișierul text nu este atârnat și putem stoca cât mai multe date și tabele într-un singur fișier text fără a se prăbuși. Pentru aceasta, trebuie să convertim fișierul excel într-un fișier text. Deși nu este o sarcină mare atunci când este o activitate repetitivă și poate dura foarte mult timp pentru a efectua.
Pentru a evita acest lucru, avem un proces în VBA, cu ajutorul căruia putem transforma fișierul excel într-un fișier text fără a afecta datele. Prin aceasta, putem salva un set uriaș de date în fișierul text reducând și comprimând și dimensiunea fișierului.
Înțelegerea codului VBA de scriere a fișierului text este destul de complexă, dar nu este dificil de înțeles.
Procesul urmat:
- Calea fișierului: introducând calea fișierului în care am păstrat fișierul excel.
- Mod: În ce scop trebuie să deschidem fișierul. Poate fi modul de citire sau scopul de scriere sau trebuie să îl utilizăm pentru a adăuga datele.
- Număr fișier: Prin aceasta, putem număra timpul pe care l-am folosit pentru fișierul excel pentru un fișier text.
Cum se scrie fișier text în Excel VBA?
Vom învăța cum să scriem un fișier text folosind codul VBA în excel cu câteva exemple.
Puteți descărca acest șablon Excel cu fișier text de scriere VBA aici - Șablon Excel cu fișier text scris cu VBAExemplul nr. 1 - Fișier text de scriere VBA
În acest exemplu, vom vedea cum să mapăm locația fișierului cu cod VBA pentru a-l scrie în formatul fișierului Text. Pentru aceasta, avem nevoie de un modul.
Pasul 1: Accesați opțiunea de meniu Insert și selectați modulul așa cum se arată mai jos.
Pasul 2: Acum, în modulul deschis, scrieți subcategoria VBA Write Text sau putem alege orice nume după alegerea noastră.
Cod:
Sub WriteTextFile2 () End Sub
Pasul 3: În primul pas al codării, declarați variabila myFile ca String, așa cum se arată mai jos.
Cod:
Sub WriteTextFile2 () Dim MyFile ca Sub String Cap
Pasul 4: În variabila alocată puneți locația fișierului pe care trebuie să-l convertim de la Excel la Text. Aici am numit acel fișier drept Test cu extensia. txt așa cum se arată mai jos.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ Fișier VPB \ April Files \ Locație finală \ Final Input.txt" End Sub
Pasul 5: După cum am văzut în descrierea fișierului de text VBA Write, vom deschide mai întâi fișierul Excel și apoi vom adăuga datele din Excel la un fișier Text cu linia de comandă de mai jos.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ File VPB \ April Files \ Final location \ Final Input.txt" Deschide myFile For Append As # 1 End Sub
Pasul 6: Să punem acum un text într-un fișier text pe care am dori să-l vedem așa cum este arătat mai jos cu ajutorul Scrierii nr. 1 pentru primul tabel. Am introdus câteva mărci ale automobilelor aleatorii, cu numele și specificațiile modelului.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ File VPB \ April Files \ Final location \ Final Input.txt" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, " mile ", 2000 Scrierea nr. 1, " Toyota ", " Etios ", 2000, " miles ", End Sub
Pasul 7: Acum închideți primul tabel așa cum se arată mai jos.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ File VPB \ April Files \ Final location \ Final Input.txt" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, " mile ", 2000 Scrierea nr. 1, " Toyota ", " Etios ", 2000, " miles ", Închidere # 1 Sub
Pasul 8: De asemenea, am dori să vedem mesajul odată ce procesul este finalizat.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ File VPB \ April Files \ Final location \ Final Input.txt" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, " mile ", 2000 Scrierea nr. 1, " Toyota ", " Etios ", 2000, " miles ", Închidere # 1 MsgBox" Salvat "End Sub
Pasul 9: Acum compilați codul și executați-l făcând clic pe butonul Redare situat sub bara de meniu, așa cum se arată mai jos. Dacă nu este găsită nicio eroare, atunci vom primi caseta de mesaj cu mesajul salvat așa cum este arătat mai jos.
Pasul 10: Acum mergeți la locația pe care am menționat-o în codul de mai sus, vom vedea fișierul text cu numele Test, așa cum se arată mai jos.
Acum pentru a verifica dacă acest fișier text are aceleași date pe care le-am introdus prin VBA, deschideți-l. Vom vedea că au fost introduse aceleași date.
Exemplul # 2 - VBA File Text Text File
Există o altă cale spre aceeași lucrare.
Pasul 1: În exemplu, vom folosi același cod pe care l-am scris mai sus, dar ar exista o ușoară modificare a codului utilizat. Să luăm în considerare același cod ca în exemplul 1.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "miles", Închideți numărul 1 MsgBox "Salvat" End Sub
Pasul 2: Acum în locul locației fișierului, selectați cartea de lucru activă cu ActiveWorkbook, așa cum se arată mai jos.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Deschideți MyFile For Append As 1 # Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, "Toyota", "Etios", 2000, "miles", Close # 1 MsgBox "Salvat „End Sub
Pasul 3: Acum selectați Calea din lista verticală a ActiveWorkBook .
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Deschideți MyFile Pentru Aplicare ca # 1 Scrierea nr. 1, „Ford”, „Figo”, 1000, „mile”, 2000 Scrierea nr., 2000, "mile", Închideți numărul 1 MsgBox "Salvat" Sub final
Pasul 4: Apoi selectați calea în care trebuie să adăugăm datele în fișierul text separat de un ampersand.
Cod:
Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Open myFile For Append As # 1 Write # 1, "Ford", "Figo", 1000, "miles", 2000 Write # 1, " Toyota ", " Etichete ", 2000, " mile ", închide # 1 MsgBox" Salvat "End Sub
Pasul 5: Acum compilați din nou codul și rulați-l după aceea. La finalizarea cu succes a run-ului, vom primi mesajul ca Salvat .
Acum din nou, mergeți la acea cale unde am păstrat acest fișier care are codul și a vedea dacă fișierul text este salvat acolo sau nu.
Acum deschideți fișierul pentru a verifica dacă datele sunt anexate corespunzător sau nu. Vom afla că datele sunt anexate în mod similar, așa cum s-a întâmplat în exemplul 1.
Pro de fișier Excel de scriere text VBA
- Nici măcar nu trebuie să deschidem niciun fișier pentru a adăuga datele.
- Dacă datele sunt imense, atunci putem adăuga datele de la Excel la Text fără a deschide fișierul. Deci, nu există nicio problemă în gestionarea fișierului.
- Dacă mergem cu procesul partajat în exemplul 2, atunci nici nu trebuie să dăm calea unde dorim să vedem fișierul text de ieșire.
Lucruri de amintit
- În procesul prezentat în exemplul 1, putem plasa fișierul în locația în care dorim să vedem ieșirea.
- În procesul prezentat în exemplul 2, acesta va lua în considerare automat locația fișierului care are codul VBA al fișierului de text VBA Write.
- Putem chiar selecta datele din orice fișier excel pe care dorim să-l convertim în fișierul Text.
- Putem selecta și crea multe ca un tabel pe care dorim să-l anexăm în fișierul Text.
Articole recomandate
Acesta este un ghid pentru fișierul de scriere VBA. Aici vom discuta despre cum să scrieți un fișier text în Excel folosind codul VBA, împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -
- VBA InStr a explicat cu exemple
- VBA Integer Data Type
- VBA ISNULL Explicat cu exemple
- Transpuneți un interval în VBA