Forums Neueste Beiträge
 

mehrere Files bearbeiten

28/11/2007 - 22:20 von Erik Gronwald | Report spam
Hallo,

ich hab folgendes Problem: ich möchte alle Files (html) die in einem
Ordner liegen nacheinander öffnen, ein Makro laufen lassen und die
Dateien dann unter gleichem Namen als txt (tabs getrennt) abspeichern.
Wie bekomme ich das hin?
Für Hilfe im voraus schonmal vielen Dank.

Viele Grüße
Erik
Der Horizont vieler Menschen ist ein Kreis mit Radius Null - und das
nennen sie ihren Standpunkt
(Albert Einstein)
 

Lesen sie die antworten

#1 stefan onken
29/11/2007 - 11:29 | Warnen spam
On 28 Nov., 22:20, Erik Gronwald wrote:
Hallo,

ich hab folgendes Problem: ich möchte alle Files (html) die in einem
Ordner liegen nacheinander öffnen, ein Makro laufen lassen und die
Dateien dann unter gleichem Namen als txt (tabs getrennt) abspeichern.
Wie bekomme ich das hin?
Für Hilfe im voraus schonmal vielen Dank.

Viele Grüße
Erik



hallo Erik,
teste mal dieses Makro. Den Pfad an deine Bedingungen anpassen. Bei:
Dein Makro fügst du den Namen deines Makro ein. Wenn die htm-Dateien
anschließend gelöscht werden sollen, entferne das ' vor dem Kill.

Sub DateienÄndern()
pfad = "D:\test\"
Dateiname = Dir$(pfad & "*.htm")
Do While Dateiname <> ""
Workbooks.Open pfad & Dateiname
'Dein Makro
ActiveWorkbook.SaveAs _
Filename:=pfad & Replace(Dateiname, "htm", "txt"), _
FileFormat:=xlText
ActiveWorkbook.Close False
'Kill pfad & Dateiname
Dateiname = Dir$()
Loop
End Sub


Gruß
stefan

Ähnliche fragen