Wie man Inhalte aus einer Text -Datei in eine Tabellenkalkulation VBA kopieren

Mitglieder-Login

InformationenSpreadsheets

Wie man die Benannte Bereiche in Op… Benannte Bereiche erleichtern den Zellen in OpenOffice.org Calc verweisen , weil Sie ersetzen komple
So erstellen Sie ein Spreadsheet On… Es gibt viele kostenlose Anwendungen, die Sie zum Erstellen von Tabellen Online zu ermöglichen. Die
Wie man einen Tab Getrennt Marke Ein Tabulator getrennt ( getrennt) ist eine Textdatei , die Daten oder Feldern, die durch Tabulatore
Wie prüft man, ob AutoFilter Is On… AutoFilter ist in Microsoft Excel , mit der Benutzer durch die Werte innerhalb einer Tabelle filtern

Software

HOME

* Computer Wissen >> Software >> Spreadsheets >> .

Wie man Inhalte aus einer Text -Datei in eine Tabellenkalkulation VBA kopieren

Microsoft Excel-Makros können Sie automatisieren fast jede Art von Aufgabe , die Steigerung Ihrer Produktivität und Verbesserung Ihrer Effizienz . Geschrieben in VBA , Makros können erstellen, bearbeiten und Entfernen von Daten innerhalb einer Tabelle. Darüber hinaus können Sie Makros verwenden, um Informationen aus einer externen Datenbank oder Datei zu packen. Um Daten aus einer Textdatei manuell importieren , müssten Sie die Datei in einem Textverarbeitungsprogramm öffnen , kopieren Sie den Inhalt und die Paste in Excel . Wenn Sie mit vielen Textdateien handelt, kann dieses Verfahren entmutigend und langwierig. Eine einfache VBA-Funktion kann Ihnen helfen, zu automatisieren . Anleitung
1

Starten Sie Microsoft Excel. Drücken Sie "Strg + N ", um eine neue Arbeitsmappe zu erstellen. Wenn Sie eines Ihrer Arbeitsmappen stattdessen , drücken Sie "Strg + O ", wählen Sie die Datei und klicken Sie dann auf "Öffnen".
2

Presse "Alt + F8 ", um das Dialogfeld Makros zu öffnen. Type " GetFromTextFile " im Feld Makroname und dann klicken Sie auf " Erstellen".
3

Geben Sie den folgenden Code in den VBA-Editor . Ersetzen Sie " C: \\ YOURTEXTFILE.txt " . Mit der genauen Lage der Textdatei , die Sie importieren möchten

Sub GetFromTextFile () Dim

sFile , WholeLine As String
< p > Dim startCell As Range Dim

c As Integer

sep = Chr (13)

Application.ScreenUpdating = False

sFile = "C : \\ YOURTEXTFILE.txt "

öffnen sFile Für Eingang Zugang As # 1 of

Lesen While Not EOF ( 1) german

line Input # 1 , WholeLine

Right ( WholeLine , 1 ) <> Dann September

WholeLine = WholeLine & Sept.

End If

ActiveCell.NumberFormat = "@ "

ActiveCell.Value = WholeLine

ActiveCell.Offset (1 , 0). Wählen

Wend

Close # 1 End Sub

< br > 4

Presse "Alt + Q ", um den VBA-Editor zu schließen und kehren Sie zu Ihrer Arbeitsmappe.
5

Presse "Shift + F11 ", um ein leeres Blatt zu erstellen.
6

Presse "Alt + F8 ", um das Dialogfeld Makros wieder zu öffnen. Wählen Sie "Get FromTextFile " und klicken dann auf "Ausführen ". Dieser kopiert den Inhalt der Textdatei auf dem leeren Blatt .