Ten samouczek pokaże, jak wczytać plik tekstowy do ciągu w VBA.
Plik tekstowy możemy odczytać linia po linii lub jako cały plik.
Wczytaj cały plik tekstowy do ciągu
Tekst w pliku tekstowym składa się zwykle z kilku wierszy oddzielonych ogranicznikami. Mogą to być przecinek („,”), przecinek ze spacją („,”), średnik („;”), średnik ze spacją („;”), spacja („”), tabulacja (vbTab ) lub w rzadkich przypadkach dowolny inny znak, taki jak tylda (~). Wiersze są zwykle oddzielone podziałem wiersza (vbCRLF).
Najłatwiejszym sposobem odczytania całego pliku tekstowego w VBA jest uruchomienie następującego kodu, który umieści całą zawartość pliku tekstowego w zmiennej ciągu. Ta procedura wykorzystuje instrukcję VBA Open i funkcję VBA FreeFile.
| 12345678910 | Sub ReadFile()Dim iTxtFile jako liczba całkowitaDim strFile As StringDim strFileText As StringstrFile = "C:\Test\TestFile.txt"iTxtFile = FreeFileOtwórz strFile do wprowadzenia jako FreeFilestrFileText = Wejście(LOF(iTxtFile), iTxtFile)Zamknij iTxtFileNapis końcowy |
Możemy również odczytać plik tekstowy w VBA za pomocą FileSystemObject. W poniższym kodzie użyliśmy późnego wiązania z obiektem systemu plików.
| 1234567891011 | Sub ReadTextFile()Dim strText jako ciągDim FSO jako obiektDim OSP jako obiektUstaw FSO = CreateObject("Scripting.FileSystemObject")Ustaw TSO = FSO.OpenTextFile("C:\Test\TestFile.txt")strText = TSO.ReadAllOSP.ZamknijUstaw TSO = NicUstaw FSO = NicNapis końcowy |
Możemy również użyć wczesnego wiązania w kodzie i zadeklarować obiekt systemu plików, tworząc w naszym projekcie Excel odwołanie do obiektu systemu plików.
| 1234567891011 | Sub ReadTextFile()Dim strText jako ciągDim FSO jako nowy obiekt systemu plikówDim OSP jako obiektUstaw FSO = CreateObject("Scripting.FileSystemObject")Ustaw TSO = FSO.OpenTextFile("C:\Test\TestFile.txt")strText = TSO.ReadAllOSP.ZamknijUstaw TSO = NicUstaw FSO = NicNapis końcowy |
