Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Datei-Info importieren

VBA Datei-Info importieren
09.08.2007 16:54:00
Peter
Ich habe folgendes Makro geschrieben, dass die Datei Artikel.txt als neues Blatt in Excel öffnet.

Sub TextDateiEinlesen()
Workbooks.OpenText Filename:="C:\Artikel.txt", _
DataType:=xlDelimited, Semicolon:=True
End Sub


Wie ist das Programm umzuschreiben, damit die Informationen von Artikel.txt direkt in ein existierendes Excel Blatt importiert werden, ohne dass ein neues Excel Blatt geöffnet wird?

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Datei-Info importieren
09.08.2007 21:46:00
Uduuh
Hallo,
das geht so:

Sub Text_lesen()
Dim intFree As Integer, vntTmp, strTmp As String, lngLast As Long
intFree = FreeFile
Open "C:\Artikel.txt" For Input As intFree
Do Until EOF(intFree)
Line Input #intFree, strTmp
vntTmp = Split(strTmp, ";")
With Sheets(1)
lngLast = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(lngLast, 1), .Cells(lngLast, UBound(vntTmp))) = vntTmp
End With
Loop
Close #intFree
End Sub


Gruß aus’m Pott
Udo

Anzeige
AW: VBA Datei-Info importieren
10.08.2007 10:35:26
Peter
Hallo Udo,
Vielen Dank für deine Unterstützung.
Ich habe noch 2 kleine Ergänzungen.
1) Dein Programm schreibt die Daten der Artikel.txt beginnend mit der 2. Zeile. Wie muss das Programm geändert werden, damit die Daten beginnend mit der 1. Zeile ins Excel geschrieben werden?
2) Eine Zeile im Artikel.txt schaut so aus "Name; Soll; Ist; Differenz". D.h. hinter der Differenz steht kein ";" (Strichpunkt). Wenn ich nun dein Programm starte, do wird "Differenz" nicht ins Excel übertragen. Wie muss nun das Programm geändert werden, damit auch "Differenz" im Excel steht? Leider kann ich hinter "Differenz" keinen ";" anbringen.
Danke im Voraus.
Grüße
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige