Hilfe in VBA
27.03.2015 13:46:41
Peter
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