Schnur?

Highscore-Code! So verwenden Sie VBA, um alle TXT-Dateien in einem Ordner abzurufen, der enthält

Sub t()

Dim fso, f, f1, fc, s, r

Const ForReading = 1, ForWriting = 2

Setzen Sie fso = CreateObject(＂Scripting.FileSystemObject＂)

'Set fc = fso.GetFile(WScript.ScriptFullName).ParentFolder.Files

Setzen Sie fc = fso.GetFolder("c:windows").Files 'Ändern Sie c:windows in den tatsächlichen Ordner, wenn Sie es verwenden

L = 1

Für jedes f1 in fc

EXTName = UCase(fso.GetExtensionName(f1.Name))

Wenn EXTName = „TXT“ Dann

Setzen Sie fs = fso.OpenTextFile(f1, ForReading)

fb = fs.ReadAll

If InStr(1, fb, "apple") > 0 Then

Cells(L, 1) = f1.Name

Cells(L, 2) = f1.Path

L = L + 1

Ende wenn

Ende wenn

Weiter

End Sub

Excel VBA liest die TXT-Datei und ersetzt 13 10 im TXT durch Zeilenumbrüche

Schritt 1: Um Makros festzulegen, stellen Sie zunächst die Add-In-Sicherheit auf mittel oder niedrig ein

Schritt 2 Fügen Sie das Modul Alt+F11 ein, um den VBA-Editor zu öffnen

Öffnen Sie das Modul „Einfügen“ in der Menüleiste und fügen Sie den folgenden Code hinzu

Sub DaoChu()

Dim I As Integer, J As Long, RW As Long

For I = 1 To ActiveSheet.UsedRange.Columns.Count

Öffnen Sie ThisWorkbook.Path & ＂＂ & Cells(1, I) & ＂.txt＂ für die Ausgabe als 1

Für J = 2 To Cells(65536, I).End(3).Row

Drucken Sie #1, Zellen (J, I).Wert

Nächstes J

Schließen 1

Als nächstes

MsgBox „Datenexport abgeschlossen!“, vbOKOnly, „Export erfolgreich“

End Sub

Schritt 3. Schließen Sie nach dem Speichern Excel. Schritt 4. Drücken Sie Strg+Umschalt+P, um den Export abzuschließen

Wenn Sie es in einem anderen Verzeichnis ablegen möchten, können Sie D: in „D:“ öffnen & in das gewünschte Verzeichnis ändern, aber das Verzeichnis darf keine chinesischen Zeichen enthalten.

VBA ermöglicht den Import und die Sortierung von TXT-Daten nach vorgegebenen Zeichen

Option Explicit 'Obligatorische Variablendeklaration

Option Base 1 'Array beginnt mit 1

Private Sub Form_Load()

Dim a(3, 5) As String, tmp As String 'Definieren Sie ein 3x5-Array und temporäre Variablen

Dim i As Integer, j As Integer 'Definieren Sie temporäre Variablen

Öffnen＂C:Dokumente und EinstellungenAdministratorDesktopTest.txt＂Für Eingabe als #1 „Öffnen Sie die TXT-Datei

.“

Do While Not EOF(1) 'Zeile für Zeile lesen

Zeileneingabe #1, tmp 'Speichern Sie die aktuelle Zeile in tmp

i = i + 1 'i repräsentiert die Zeile des Arrays

Für j = 1 bis 5 stellt j die Spalte des Arrays dar

a(i, j) = Split(tmp, "|")(j - 1) 'Tmp mit dem Symbol "|" in 5 Segmente schneiden und in den 5 Spalten der i-ten Zeile des Arrays speichern wiederum

Weiter

Schleife

Schließen Sie #1

MsgBox a(3, 5) 'Gib die Zeichen in Zeile 3 und Spalte 5 aus

End Sub

So öffnen Sie eine TXT-Datei in VBA Excel und zeigen sie in einem Textfeld oder den Inhalt im Textfeld an

Erstellen Sie eine neue Excel-Arbeitsmappe, öffnen Sie den VBA-Editor, fügen Sie ein Benutzerformular ein, fügen Sie ein Textfeld und zwei Befehlsschaltflächen in das Formular ein, öffnen Sie dann das Formularcodefenster und fügen Sie den folgenden Code ein

Private Sub CommandButton1_Click()

'Lesen Sie eine ANSI-codierte Textdatei und zeigen Sie sie im Textfeld an

Mit Application.FileDialog(msoFileDialogOpen)

If .Show Then ipath = .SelectedItems(1)

Ende mit

Wenn ipath

＂＂ Dann

Öffnen Sie ipath für die Eingabe als Nr. 1

TextBox1.MultiLine = True

TextBox1.Value = StrConv(InputB(LOF(1), 1), vbUnicode)

Schließen Sie #1

Ende wenn

End Sub

Private Sub CommandButton2_Click()

'Schreiben Sie den Inhalt des Textfelds in eine Textdatei und speichern Sie das Verzeichnis, in dem sich die aktuelle Arbeitsmappe befindet

arr = Split(TextBox1.Value, vbCrLf)

ipath = ThisWorkbook.Path & "＂" & Left(arr(0), 8) & ".txt＂

Öffnen Sie ipath für die Ausgabe als Nr. 1

Für i = 0 To UBound(arr)

Print #1, arr(i)

Weiter

Schließen Sie #1

MsgBox „Der Inhalt des Textfelds wurde gespeichert!, Pfad speichern:“ & ipath

End Sub

Das obige ist der detaillierte Inhalt vonSchnur?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!