Office: (Office 2007) VBA

Hallo *,

ich habe folgendes Problem. Ich habe eine Datei die aus mehreren Tabellenreitern besteht. Nun möchte ich, dass per Makro alle Reiter einzeln gespeichert werden. Leider bin ich noch nicht wirklich firm in VBA so dass ich das nicht hinbekomme. Kann mir vielleicht jemand helfen ?

Gruß und Dank

SmY

:)

 

Hallo SmY,

wenn Du alle Tabellen in separate Dateien(Mappen) speichern willst, dann z.B. so:

Code:

 

Hallo Uwe,

danke, es funktioniert wunderbar. Ich bin begeistert *Smilie . Das spart mir eine Menge Arbeit.

Mir ist nach diesem tollen Erfolg aber spontan eingefallen, was mir auch noch helfen würde *wink.gif*

1.) Eingabedialog der vor dem Speichern eine zusätzliche Dateinamenbezeichnung zulässt. Also bspw. (Eingabemöglichkeit_Tabellenreitername_Eingabemöglichkeit(i.d.R. Tagesdatum)

2.) Möglichkeit einer Definition zur Ablagespeicherung, also wenn Tabellenreiter = 1 dann Speicherort /Laufwerk/Ordner/Unterordner/1 ...
wenn 2 = usw.
und wenn nicht vorhanden = auch in einen bestimmten Ordner


Geht so etwas ????

Gruß und Dank für die Hilfe

 

Hallo SmY,

erstelle in der Mappe eine neue Tabelle, in der Du die Speicherorte
den Tabellen zuordnest. Ich habe sie im Beispiel "Speichervorgaben" genannt.
Diese Tabelle kannst Du ja, wenn sie stören sollte, danach ausblenden.

Speichervorgaben

	A	B
1	Tabelle	Ordner
2	Tabelle1	E:\Test1\
3	Tabelle2	E:\Test2\
4	Tabelle3	E:\Test3\
5	Sonst in	E:\Test\

Excel Tabellen im Web darstellen >> Excel Code Jeanie[/quote]

 

DANKE für die schnelle Hilfe !!!!*Smilie

 

Hallo ich nochmal, das mit dem Speichern in die jeweiligen Ordner funktioniert doch noch nicht so wirklich. Die Speicherordner liegen auf einem Server. Das Makro speichert obwohl ich den jeweiligen Pfad eingegeben habe jedoch immer in meinen eigenen Dateien. Was mache ich falsch ?

 

Probiere es mal mit dem Einfügen von

ChDir strPfad

vor " With ActiveWorkbook"

Gruß,

Chris

 

Hallo SmY,

ein ChDir ist dazu nicht notwendig.

Netzwerkpfade müssen mit 2 Backslashs beginnen, dann funktioniert das auch.
Wenn die Dateien im Standardordner gespeichert werden, ist das ein Indiz dafür,
dass der Ordner nicht existiert bzw. die Schreibweise falsch ist.

Speichervorgaben

	A	B
1	Tabelle	Ordner
2	Tabelle1	\Server\Backup1\
3	Tabelle2	\Server\Backup2\
4	Tabelle3	\Server\Backup3\
5	Sonst in	\Server\Backup\

 

Hallo, so habe ich es gemacht, aber es funktioniert nicht, wo könnte die Fehlerquelle liegen ?

 

Hallo SmY,

da muss ich leider passen.

Ich habe es extra in meinem Firmennetzwerk getestet,
und da klappt das einwandfrei.
Allerdings habe ich Adminrechte mit vollem Lese-/Schreibzugriff.
Vielleicht gibt es da bei Dir Probleme!?