bei Datenimport neue Tabellenbl. autom. erkennen
30.10.2008 11:25:00
Stefan
Ich hab mal wieder ne kleine Frage
Ich möchte Tabellenblätter aktualiesieren aus CSV_Dateien die den selben Namen haben zb.
Tabellenblattname im File xy = 7000001
Dateiname=700001.csv
Hab das jetzt so gelöst:
ChDir "G:\Controlling\FiBu\Reporting\03 monatlich\05 Interne Berichte\ICP"
Workbooks.Open Filename:= _
"G:\Controlling\FiBu\Reporting\03 monatlich\05 Interne Berichte\ICP\700001.csv"
Cells.Select
Selection.Copy
Windows("xy.xls").Activate
Sheets("700001").Select
Cells.Select
ActiveSheet.Paste
Windows("700001.csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Schön wäre es wenn das Makro automatisch alle Tabellenblätter durchgeht und die dazugehörige .csv Datei findet.
Im Moment kopiere ich den Code immer und ersetzte dann manuell 700001 durch z.b 700804.....nicht sehr elegant.. :-(
Hoffe jemand hat ne Idee..
Vielen Dank.