Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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?

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

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

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige