Anzeige
Archiv - Navigation
1416to1420
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
Inhaltsverzeichnis

Hilfe in VBA

Hilfe in VBA
27.03.2015 13:46:41
Peter
Hallo Ihr Spezialisten!
ich benötige dringend Hilfe in VBA.
Ich möchte mehrere Textdateien in eine Tabelle einfügen. Habe hierfür eine VBA Anleitung gefunden. Diese anbei.
Sub Datei_einlesen1()
Dim Pfad$
Worksheets("Tabelle1").Select
Range("A1").Select
x = Sheets(1).UsedRange.Rows.Count
d = Dir("C:\Users\Peter\Desktop\Test Serienbrief\2015_03_22\SC*.txt")
Do While d  ""
'Open "C:\Users\Peter\Desktop\Test Serienbrief\2015_03_22\" & d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Cells(x, 1) = Replace(temp, vbTab, ";")
x = x + 1
Loop
Close #1
d = Dir
Loop
End Sub

Die Excel-Datei soll jedoch an mehreren PC mit unterschiedlichen Usern funktionieren und die entspechenden Ordner auf den Desktops der User abgelegt werden. Nur benötige ich die Hilfe, wie die User im Pfad variabell eingefügt werden können.
Besten Dank für Eure Hilfe.
Gruss Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige