Microsoft Excel

Herbers Excel/VBA-Archiv

speichern unter | Herbers Excel-Forum


Betrifft: speichern unter von: Peter
Geschrieben am: 14.12.2009 09:05:00

guten morgen an alle,

momentan habe ich mal´ wieder folgendes Problem. Ich möchte einer Schaltfläche den Makro
speichern_unter zuweisen. Das Problem ist der Makro an sich.

Es soll dann zum Speichern der Datei, auf dem Laufwerk folgendes Verzeichnis geöffnet werden
L:abc\def\ghi\jkl\ dann gebe ich einen neuen Namen ein, mache einen Klick auf Speichern und die Datei
wird gespeichert.
Das Laufwerk welches ich in dem Makro anspreche öffnet sich aber nicht - es öffnet sich immer der Ordner
aus dem die Orginaldatei geladen wurde.

was mache ich da verkehrt ... oder ... ?!?!

Gruß Peter

  

Betrifft: AW: speichern unter von: werni
Geschrieben am: 14.12.2009 09:10:06

Hi Peter

Pfad = L\:abc\def\ghi\jkl\
Datei = Peter.xls
save as: Pfad & Datei

ungetestet
Gruss Werner


  

Betrifft: Natürlich zuerst den Doppelpunkt von: werni
Geschrieben am: 14.12.2009 09:19:58

... und dann den Backslash

Gruss Werner


  

Betrifft: AW: speichern unter von: Peter
Geschrieben am: 14.12.2009 09:20:39

morgen Werner,

den Doppelpunkt hatte ich, bei der Frage nur vergessen.
Hier ist der Makro soweit wie ich ihn habe

Sub SpeichernUnterDialogAufrufen()
Application.Dialogs(xlDialogSaveAs).Show "L:\abc\def\ghi\jkl\"
End Sub
Es öffnet sich immer das Verzeichnis, in dem der Orginalvodruck liegt
in dem ausgewählten soll die Datei unter anderem Namen abgespeichert werden.


Gruß Peter


  

Betrifft: ChDir "L:\abc\def\ghi\jkl\" von: werni
Geschrieben am: 14.12.2009 09:24:00

Gruss Werner


  

Betrifft: AW: ChDir "L:\abc\def\ghi\jkl\" von: Peter
Geschrieben am: 14.12.2009 09:44:40

es ändert sich nichts - es wird immer das Verzeichnis geöffnet aus welchem die Datei geladen wurde


Gruß Peter


  

Betrifft: AW: ChDir "L:\abc\def\ghi\jkl\" von: Mike
Geschrieben am: 14.12.2009 09:44:41


Hey Werner,

schlag mich auch seit längerem mit dem "Speichern unter"-Problem
rum. Auch mit einem vorgängigen ChDir oder ChDrive funktionierts
leider nicht .. :-/

Gruss
Mike


  

Betrifft: AW: ChDir "L:\abc\def\ghi\jkl\" von: Tino
Geschrieben am: 14.12.2009 10:02:33

Hallo,

Auch mit einem vorgängigen ChDir oder ChDrive
Nicht oder sondern und.

erst ChDrive danach ChDir.

Gruß Tino


  

Betrifft: ja .. ChDir "L:\abc\def\ghi\jkl\" von: Mike
Geschrieben am: 14.12.2009 10:09:22


Hey Tino,

ja, genauso ists definiert, trotzdem funktionierts nicht.

Gruss
Mike


  

Betrifft: AW: speichern unter von: Tino
Geschrieben am: 14.12.2009 09:39:42

Hallo,
versuche es mal so

ChDrive "L:"
ChDir "L:\abc\def\ghi\jkl\"
Application.Dialogs(xlDialogSaveAs).Show

Gruß Tino


  

Betrifft: AW: speichern unter von: Peter
Geschrieben am: 14.12.2009 09:49:33

Morgen Tino - Morgen Mike

es funktioniert auch nicht - so wie es aussieht hat der Mike ja dasselbe Problem


  

Betrifft: also bei mir gehtes unter von: Tino
Geschrieben am: 14.12.2009 10:00:24

Hallo,
Vista mit xl2007 und auch unter XP mit xl2003.

Gruß Tino


  

Betrifft: sehr komisch .. geht es unter von: Mike
Geschrieben am: 14.12.2009 10:10:51


Hmm, das ist sehr komisch!! Bei mir wills mit XP und Ex03 nicht
funktionieren.

Gruss
Mike


  

Betrifft: AW: sehr komisch .. geht es unter von: Peter
Geschrieben am: 14.12.2009 10:22:20

Hallo Mike,

dem muß ich mich anschließen ! Es ist nichts zu machen !


Gruß Peter


  

Betrifft: eine andere Möglichkeit. von: Tino
Geschrieben am: 14.12.2009 10:43:35

Hallo,
hier noch eine Möglichkeit.

Dim strPfad As String

strPfad = "L:\abc\def\ghi\jkl\"

ChDrive strPfad
ChDir strPfad

strPfad = Application.GetSaveAsFilename(ThisWorkbook.Name, _
          "Excel 97-2003 Arbeitsmappe (*.xls),*.xls", 2, "Speichern unter")

If strPfad <> CStr(False) Then
 ThisWorkbook.SaveAs strPfad
End If
Gruß Tino


Beiträge aus den Excel-Beispielen zum Thema "speichern unter"