VBA in Excel verwendet, um Makros, die Aufgaben , die normalerweise manuell durchgeführt werden würde automatisieren . Die Durchführung dieser Aufgaben manuell kann zeitaufwendig und mühsam. Viele Male Benutzer benötigen zum Kopieren und Einfügen von Daten in Excel aus Textdateien . Einfaches Kopieren und Einfügen der Daten aus einer Textdatei in Excel wird nicht in richtig formatiert Daten führen. Die OpenText-Methode wird verwendet, um eine Textdatei laden und analysieren es . Eine Tabellenkalkulation ist mit den analysierten Daten erstellt . Diese Methode eliminiert die Notwendigkeit für den Benutzer manuell importieren Sie die Textdatei und gehen durch die "Text Import Wizard" . Anleitung
1
Öffnen Sie eine neue Arbeitsmappe. Drücken Sie Alt und F11 auf Ihrer Tastatur, um den VBA-Editor zu öffnen . Klicken Sie auf das Menü Datei und wählen Sie " Neu". Sie doppelt auf das Sheet ( Tabelle1 ) klicken unter Microsoft Excel Objekte im Projekt - VBAProject Fensterscheibe .
2
Typ Sub, von der Makro-Namen in der ersten Zeile , wie Sub Open () gefolgt . Sie können dem Makro einen beliebigen Namen Sie möchten
3
Fügen Sie die OpenText-Methode , und geben Sie die folgenden Informationen: .
1 . Verzeichnis die Datei in.2 entfernt. Row Nummer, die Sie gerne starten Sie den Import der Daten in. The Dateiursprung würde, ist 437 : OEM USA standardmäßig , wenn Sie in den Vereinigten States.3 sind . Wählen Sie, ob Sie die Datei in einem abgegrenzten gegen feste Breite zu analysieren wollen . Mit abgegrenzt , müssen Sie festlegen, was das Trennzeichen , um die Datei zu analysieren , wie Tab , Semikolon , ein Komma , ein Leerzeichen oder ein individuelles Trennzeichen ist . Stellen Sie das Trennzeichen Sie gerne auf TRUE verwenden würde , und den Rest der Begrenzer auf .
Zum Beispiel FALSE , wenn wir eine Textdatei auf John Smith Desktop befindet , durch Tabulatoren getrennt analysieren wollen , würden wir verwenden Mit dem folgenden Code :
Workbooks.OpenText Dateiname: = _ "C: \\ Dokumente und Einstellungen \\ Jsmith \\ Desktop \\ info.txt " , Origin : = 437, StartRow _ : = 1, Datentyp: = xlDelimited , TEXTQUALIFIER : = xlDoubleQuote , _ConsecutiveDelimiter : = False , Tab : = True , Semikolon : = False , Comma : = False _ , Raum : = False , Other : = False , FieldInfo : = Array ( 1, 1) , _TrailingMinusNumbers : = True
4
Ende das Makro durch Eingabe von " End Sub " . Speichern Sie das Makro , indem Sie auf die Schaltfläche Speichern in der Symbolleiste. Schließen Sie den Visual Basic -Fenster.
5
Führen Sie das Makro , indem Sie auf der Registerkarte Ansicht in der Symbolleiste. Klicken Sie auf Makros, und wählen Sie das Makro. Klicken Sie auf die Schaltfläche "Ausführen" .