Salutări! Astăzi vom vorbi despre fișiere sau mai degrabă cum să obțineți informații din fișierele text din VBA. Și vă vom crește capacitatea de a programa, ca de obicei, prin exemplu.
Fișierul text obișnuit conține următoarele rânduri:
Bun venit la CodeTown.ru
aici veți găsi multe interesante
exemple pe teme diferite
și în diferite limbi.
Bucurați-vă =)
Este necesar să le aducă la lista în Excel, astfel încât fiecare cuvânt era în celula lui, luând în considerare golurile.
Dacă ați citit articolele anterioare, sunteți conștient de modulul de eroare On Error Error GoTo. Apoi, Deschideți «C :. \ Users \ ...... \ vba \ files \ fisier.txt» Pentru intrare Ca # 1 - astfel încât setați calea către fișierul și trebuie să fie specificate exact drumul tau!. la care ne adresăm și oferim acestui fișier un număr simbolic 1.
Mai mult, deja într-o buclă, deducem linia de linie cu intrarea în matricea noastră de linii s. De asemenea, vă reamintesc că ReDim Preserve este o comandă de redistribuire a unei matrice cu datele stocate în ea.
Oh, da, în această parte a codului de care tocmai am citit ciclic fișierul și umple o serie de siruri de caractere s.
După cum vedeți, programul este mic. În această piesă, lucrăm cu o serie de șiruri de caractere, pe care le-am primit la început, și le așezăm fiecare cuvânt pe rafturi. Pornim buclă Pentru pentru a trece prin toate liniile înregistrate, în timp ce În timp - prin simbolurile din interiorul liniilor. Am tăiat linia "cuvânt" într-un spațiu și l-am înscris în celulele corespunzătoare.
Asigurați-vă că ați închis fișierul cu comanda Close # 1 după ce ați lucrat la el.
Separat, am nota linia Dacă Err.Number = 62 Apoi Rezumat 1. Când citiți fișierul, compilatorul vine la sfârșitul anului, acesta va scadea un bug, al cărui număr este doar egal cu 62. Aceasta este, cu ajutorul acestei erori vom ieși din citirea fișierului de la începutul tuturor cod.
Dacă nu sunteți clar despre unele comenzi, vă sfătuiesc să citiți articolele anterioare, acolo veți găsi exemple de lucru cu ei.