Microsoft Excel

Herbers Excel/VBA-Archiv

Speichern ohne Pfadangabe | Herbers Excel-Forum


Betrifft: Speichern ohne Pfadangabe von: Heinz H
Geschrieben am: 16.12.2009 10:07:58

Hallo Leute

Ich habe einen Code der mir die Arbeitsmappe unter einer Pfadangabe speichert.
Nun möchte ich aber die Arbeitsmappe auf mehrere PC's benutzen.

Könnte man das " MyPfad" nicht weglassen,so das es einfach ohne Pfadeingabe gespeichert wird ?

Gruß
Heinz

Option Explicit

Sub cp_wbk()
    Dim wbk_neu As Workbook
    Dim wbk_alt As Workbook
    Dim MyFileName As String
    Dim MyPfad As String
    Dim MyShape As Shape
    Set wbk_alt = ActiveWorkbook
    Set wbk_neu = Workbooks.Add
    wbk_alt.Activate
    MyPfad = "D:\Promente\Test.Stunden\16.12.09\" 'anpassen
    MyFileName = "Stundenliste - " & Range("B3") & " " & _
        Month(Range("A6")) & " " & Year(Range("A6"))
    wbk_alt.Sheets(1).Copy before:=wbk_neu.Sheets(1)
    For Each MyShape In wbk_neu.Sheets(1).Shapes
    If MyShape.AlternativeText <> "Neues Monat anlegen" Then MyShape.Delete
    Next
    wbk_neu.SaveAs MyPfad & MyFileName
    wbk_neu.Close
End Sub

  

Betrifft: AW: Speichern ohne Pfadangabe von: Hajo_Zi
Geschrieben am: 16.12.2009 10:09:54

Hallo Heinz,
ich vermute dann wird dort gespeichert wo die letzte Datei gespeichert wurde und ob das gut ist?

GrußformelHomepage


  

Betrifft: und wo soll dann gespeichert werden??? von: Björn B.
Geschrieben am: 16.12.2009 10:11:33

Hallo Heinz,

Könnte man das " MyPfad" nicht weglassen,so das es einfach ohne Pfadeingabe gespeichert wird ?
wie soll das gehen? Hast du schon mal was "ohne Pfad" gespeichert? Wo steht es dann? Im Nirwana?

Ich verstehe die Frage vielleicht auch falsch, aber jede Datei braucht auch einen Speicherort.
Den musst Du eben ermitteln, mitgeben, auswählen lassen oder wie auch immer, aber ohne wird es wohl kaum gehen.

Gruß
Björn B.


  

Betrifft: AW: An Hajo & Björn von: Heinz H
Geschrieben am: 16.12.2009 10:19:07

Hallo Ihr beiden

Sorry habe vergessen.
Ja Hajo hat recht.
Es sollte immer in den selben Ordner gespeichert werden.

Danke Heinz


  

Betrifft: AW: Speichern ohne Pfadangabe von: Tino
Geschrieben am: 16.12.2009 10:20:33

Hallo,
du kannst die feste Pfadangabe z. Bsp. durch diese ersetzen.

MyPfad = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\")

Jetzt ist es der Pfad wo sich die Excel Datei befindet.

Gruß Tino


  

Betrifft: AW: Danke an Hajo - Björn & Tino von: Heinz H
Geschrieben am: 16.12.2009 10:24:44

Es funktioniert so wie Tino vorgeschlagen.

Recht herzlichen Dank, für Eure Hilfe.

Gruß
Heinz


  

Betrifft: AW: Danke an Hajo - Björn & Tino von: Klaus
Geschrieben am: 16.12.2009 10:45:46

… oder einfacher und kürzer:

MyPfad = ThisWorkbook.Path & Application.PathSeparator

Gruß
Klaus


  

Betrifft: AW: Danke an Hajo - Björn & Tino von: Heinz H
Geschrieben am: 16.12.2009 10:50:10

Hallo Klaus

Ja so funktioniert es auch.

Danke & Gruß
Heinz


  

Betrifft: AW: Danke an Hajo - Björn & Tino von: Tino
Geschrieben am: 16.12.2009 11:15:58

Hallo,
sehr gefährlich diese Variante,
ich habe es schon oft gehabt, dass anstatt bei einem Laufwerk z. Bsp.
C: auf einmal C:\ zurückgegeben wurde aber bei C:\Ordner dieser Separator wieder gefehlt hat.

Daher verwende ich nur die von mir vorgeschlagene Version.


Gruß Tino


  

Betrifft: AW: Danke an Hajo - Björn & Tino von: Heinz H
Geschrieben am: 16.12.2009 11:21:38

Hallo Tino

Danke für deinen Hinweis,werde ihn befolgen.

Gruß
Heinz


  

Betrifft: AW: Danke an Hajo - Björn & Tino von: Klaus
Geschrieben am: 16.12.2009 12:20:20

Hallo Tino,
danke, ein guter Hinweis.

Aber dann einigen wir uns auf

MyPfad = IIf(Right$(ThisWorkbook.Path, 1) = Application.PathSeparator, ThisWorkbook.Path, ThisWorkbook.Path & Application.PathSeparator)

wg der gemischten Umgebung ...
:-)

Gruß
Klaus


  

Betrifft: ok ist recht... von: Tino
Geschrieben am: 16.12.2009 12:31:54

Hallo,
obwohl "\" Standard ist.

Gruß Tino


  

Betrifft: Aber nicht bei http:///-Dateizugriffen! orT von: Luc:-?
Geschrieben am: 16.12.2009 15:28:17

Gruß Luc :-?
PS: Apache...


  

Betrifft: ist ja auch nicht Lokal. oT. von: Tino
Geschrieben am: 16.12.2009 15:33:28




Beiträge aus den Excel-Beispielen zum Thema "Speichern ohne Pfadangabe"