300 Beispiele

Daten aus Textdatei lesen

Read Data From Text File

Im Folgenden sehen wir uns ein Programm in an Excel VBA das liest Daten aus einer Textdatei . Diese Datei enthält einige geografische Koordinaten, die wir in Excel importieren möchten.





Situation:

Lesen Sie Daten aus einer Textdatei mit Excel VBA





1. Laden Sie zuerst die Textdatei herunter und fügen Sie sie zu 'C: est' hinzu.

Platziere a Befehlstaste auf Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:



2. Wir deklarieren vier Variablen. myFile vom Typ String, Text vom Typ String, Textzeile vom Typ String, posLat vom Typ Integer und posLong vom Typ Integer.

wie man einen Exponenten in Excel macht
Keinermeine DateiWie Zeichenfolge, TextWie Zeichenfolge, TextzeileWie Zeichenfolge, posLatWie Ganze Zahl, posLongWie Ganze Zahl

3. Wir müssen die Variable myFile mit dem vollständigen Pfad und dem Dateinamen initialisieren.

myFile = 'C: estgeographical-coordinates.txt'

oder

Verwenden Sie die GetOpenFilename-Methode des Application-Objekts, um das Standarddialogfeld Öffnen anzuzeigen und die Datei auszuwählen (ohne die Datei tatsächlich zu öffnen).

myFile = Application.GetOpenFilename()

Hinweis: Der leere Teil zwischen den Klammern bedeutet, dass wir Excel VBA nichts als Eingabe geben. Platzieren Sie Ihren Cursor im Visual Basic-Editor auf GetOpenFilename, und klicken Sie auf F1, um Hilfe zu den Argumenten zu erhalten.

4. Fügen Sie die folgende Codezeile hinzu:

Offenmeine DateiZum Eingang Wie#1

Hinweis: Diese Anweisung ermöglicht das Lesen der Datei. Wir können im Rest unseres Codes auf die Datei als #1 verweisen.

5. Fügen Sie die folgenden Codezeilen hinzu:

Tun Bis umEOF(1)
Leitung Eingang#1, Textzeile
Text = Text & Textzeile
Schleife

Hinweis: Bis zum Ende der Datei (EOF) liest Excel VBA eine einzelne Zeile aus der Datei und weist sie Textzeile zu. Wir verwenden den &-Operator, um alle einzelnen Zeilen zu verketten (zusammenzufügen) und im variablen Text zu speichern.

6. Schließen Sie die Datei.

Nah dran#1

7. Als nächstes suchen wir nach der Position der Wörter Breitengrad und Längengrad im variablen Text. Wir nehmen das Instr-Funktion .

posLat = InStr (Text, 'Breitengrad')
posLong = InStr(text, 'Längengrad')

8. Wir verwenden diese Positionen und die Mittelfunktion um die Koordinaten aus dem variablen Text zu extrahieren und die Koordinaten in Zelle A1 und Zelle A2 zu schreiben.

Range('A1').Value = Mid(text, posLat + 10, 5)
Range('A2').Value = Mid(text, posLong + 11, 5)

9. Testen Sie das Programm.

Ergebnis:

Daten aus Textdatei lesen Ergebnis

3/4 abgeschlossen! Erfahren Sie mehr über das Anwendungsobjekt >
Gehe zum nächsten Kapitel: ActiveX-Steuerelemente



^