Umwandlung der textfiles

Forumthread: Umwandlung der textfiles

19.06.2008 12:35:00

jessica

Hallo,
hab wieder eine Herausforderung für Euch!
Es gibt 38 textfiles, die in Excel umgewandelt werden müssen:
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS13_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS02_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS03_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS04_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS06_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS08_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS09_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS10_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS11_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS12_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS01_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS14_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS16_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS17_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS18_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS19_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS20_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS38_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS25_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS26_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS27_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS28_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS29_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS30_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS31_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS34_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS35_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS36_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS37_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS21_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS40_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS41_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS43_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS44_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS45_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS46_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS47_200805.txt
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\TelefonlisteGS55_200805.txt
Abgespeichert sollen sie unter dem folgenden Pfad:
file:\\W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Excel-Dateien
Mit dem gleichen Name aber nun als .xls-Dateien.
Wird das Ganze mit Hilfe einer Schleife gelöst?
Vielen Dank vorab für Euere Hilfe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umwandlung der textfiles

19.06.2008 13:45:21

Ramses
AW: Umwandlung der textfiles

19.06.2008 15:47:24

jessica
AW: Umwandlung der textfiles

19.06.2008 16:02:00

Rudi

AW: Umwandlung der textfiles

19.06.2008 13:45:21

Ramses

Hallo
"...Wird das Ganze mit Hilfe einer Schleife gelöst?..."
Ja ;-)
Gruss Rainer

AW: Umwandlung der textfiles

19.06.2008 15:47:24

jessica

Ha, ha,
wie lustig!

AW: Umwandlung der textfiles

19.06.2008 16:02:00

Rudi

Hallo,
natürlich macht man das mit einer Schleife!


Sub tt()
Dim strDatei As String
Const strQuelle As String = _
"W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Text-Dateien\"
Const strZiel As String = _
"W:\Prz-VARVERGUETVSB-AE\Listen%20für%20Outbound\05-2008\Excel-Dateien\"
strDatei = Dir(strQuelle & "Telefonliste*.txt")
Do While strDatei  ""
Workbooks.OpenText strQuelle & strDatei, xlWindows, 1, , , , True
With ActiveWorkbook
.SaveAs strZiel & Replace(strDatei, ".txt", ".xls"), xlWorkbookNormal
.Close
End With
strDatei = Dir
Loop
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Forumthread: Umwandlung der textfiles

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread