In diesem Tutorial wird gezeigt, wie Sie Inhalte aus Textdateien lesen und mit VBA in Arbeitsblätter einfügen.
Textdateiinhalt in Arbeitsblatt einlesen
Der einfachste Weg, den Inhalt einer Textdatei zu lesen, besteht darin, ihn in die Zelle eines Arbeitsblatts zu kopieren.
| 123456789101112 | Sub FSOPasteTextFileContent()FSO als neues FileSystemObject dimmenFSO setzen = CreateObject("Scripting.FileSystemObject")Set FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading) 'Hier den Pfad Ihrer Textdatei hinzufügenTextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets(1).Range("A1").Value = TextString 'Sie können das Arbeitsblatt und die Zelle angeben, in die der Inhalt der Textdatei eingefügt werden sollEnd Sub |
Der obige Code verwendet das FileSystemObject. Um es zu verwenden, müssen Sie einen Verweis auf die VB-Skript-Laufzeitbibliothek festlegen. Weitere Informationen finden Sie hier.
Ohne FileSystemObject zu verwenden, können Sie den Inhalt Ihrer Textdatei mit dem folgenden Code einfügen. Wenn Ihre Textdatei ein Zeilentrennzeichen enthält, wird es Zeile für Zeile eingefügt.
| 123456789101112 | Sub PasteTextFileContent ()Dim wbExcel als Arbeitsmappe, wbText als ArbeitsmappeDim wsExcel als ArbeitsblattSet wbExcel = ThisWorkbook 'Geben Sie hier an, in welche Excel-Datei der Inhalt der Textdatei eingefügt werden sollSet wsExcel = wbExcel.Sheets(1) 'Geben Sie hier an, welches Arbeitsblatt verwendet werden sollSet wbText = Workbooks.Open("C:\Test\TestFile.txt") 'füge hier den Pfad deiner Textdatei hinzuwbText.Sheets(1).Cells.Copy wsExcel.CellswbText.Close SaveChanges:=FalseEnd Sub |
Textdateiinhalt Zeile für Zeile, Spalte für Spalte lesen
Ihre Textdatei kann mehrere Zeilen und mehrere Elemente enthalten, die in den Zeilen durch Komma, Semikolon, Tabulator, Leerzeichen usw. getrennt aufgeführt sind. Um den Inhalt der Textdatei korrekt zu lesen und einzufügen, benötigen Sie möglicherweise den folgenden Code:
| 1234567891011121314151617181920212223242526 | Sub PasteTextFileContentWithSeparators()Dim StrLine As StringDim FSO als neues FileSystemObjectTSO als Objekt dimmenDim StrLineElements als VarianteDim Index As LongDim ich so langDim-Trennzeichen als StringFSO setzen = CreateObject("Scripting.FileSystemObject")Set TSO = FSO.OpenTextFile("C:\Test\TestFile.txt")Delimiter=", " 'das Trennzeichen, das in Ihrer Textdatei verwendet wirdIndex = 1Do While TSO.AtEndOfStream = FalseStrLine = TSO.ReadLineStrLineElements = Split(StrLine, Delimiter)For i = LBound(StrLineElements) To UBound(StrLineElements)Cells(Index, i + 1).Value = StrLineElements(i) 'Dieser Code beginnt mit dem Einfügen des Inhalts der Textdatei aus der Zelle A1 (Cell(1,1)) des aktiven ArbeitsblattsAls nächstesIndex = Index + 1SchleifeÜNB.SchließenEnd Sub |
Das in Ihrer Textdatei verwendete Trennzeichen kann Komma („,“), Komma mit Leerzeichen („, „), Semikolon („;“), Semikolon mit Leerzeichen („;“), Leerzeichen („ “), Tabulator sein (ändern Sie dann Delimiter = vbTab) oder in seltenen Fällen ein anderes Zeichen.
Textdateien in Arrays einlesen
Wenn Sie den Inhalt Ihrer Textdatei in ein Array einlesen und Zeile für Zeile, Spalte für Spalte in Ihr Arbeitsblatt einfügen müssen, benötigen Sie den folgenden Code:
| 12345678910111213141516171819202122232425262728293031323334 | Sub ReadDelimitedTextFileIntoArray()Dim-Trennzeichen als ZeichenfolgeDim TextFile As IntegerDateipfad als String dimmenDateiinhalt als String dimmenDim LineArray() As StringDim DataArray() als StringDim TempArray() als StringDim rw As Long, col As LongTrennzeichen = vbTab 'das Trennzeichen, das in Ihrer Textdatei verwendet wirdFilePath = "C:\Test\TestFileTab.txt"rw = 1TextFile = FreeFileÖffnen Sie FilePath für die Eingabe als TextFileFileContent = Input(LOF(TextFile), TextFile)Textdatei schließenLineArray() = Split(FileContent, vbNewLine) 'ändern Sie vbNewLine in vbCrLf oder vbLf, abhängig vom Zeilentrenner, der in Ihrer Textdatei verwendet wirdFür x = LBound(LineArray) Zu UBound(LineArray)Wenn Len(Trim(LineArray(x))) 0 ThenTempArray = Split(LineArray(x), Trennzeichen)col = UBound(TempArray)ReDim Preserve DataArray(col, rw)Für y = LBound(TempArray) Zu UBound(TempArray)DataArray(y, rw) = TempArray(y)Cells(x + 1, y + 1).Value = DataArray(y, rw) 'Dieser Code beginnt mit dem Einfügen des Inhalts der Textdatei aus der Zelle A1 (Cell(1,1)) des aktiven ArbeitsblattsAls nächstesEnde Wennrw = rw + 1Nächstes xEnd Sub |
Zeilentrenner in Ihrer Textdatei können eine Kombination aus Wagenrücklauf und Zeilenvorschub (Chr(13)+Chr(10)) oder Zeilenvorschub (Chr(10)) sein. Verwenden Sie entsprechend vbCrLf oder vbLf. Wenn Sie sich nicht sicher sind, verwenden Sie vbNewLine zur Angabe des Zeilentrenners.
