Office: Speichern an einen bestimmten Ort

ccbenne · 24. Juni 2010

Grüße euch

ich benutze momentan diesen Code um eine EXCEl Datei zu öffnen und diese unter einen bestimmten Namen zu speichern. Dieser code speichert jedoch in den ordner eigene Dateien. Wie bekomme ich es hin das die Datei in einen unter ordner in eigenen Dateien gespeichert wird???

Code:

Dim wsNew As Workbook
Set wsNew = Workbooks.Add
With wsNew
End With
.SaveAs Filename:=ThisWorkbook.Sheets("Rechner").Range("m4").Value
MsgBox "Die Datei wurde unter " & Sheets("Tabelle1").Range("c20") & " in den Ordner Eigene Dateien abgespeichert."
ActiveWindow.Close
End With
Set wsNew = Nothing
Windows("Mixrechner.xls").Activate
Sheets("Rechner").Select
Range("A1").Select
Range("Rechner!p2").Copy
Range("N4").Select
ActiveSheet.Paste
Eingabe.Show
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

josef e · 26. Juni 2010

Hallo,

meinst du so?

Dim wsNew As Workbook

Set wsNew = Workbooks.Add

With wsNew
.SaveAs Filename:=ThisWorkbook.Path & "\Unterordner\" & ThisWorkbook.Sheets("Rechner").Range("m4").Value
MsgBox "Die Datei wurde unter " & Sheets("Tabelle1").Range("c20") & " in den Ordner Eigene Dateien abgespeichert."
.Close
End With

With Workbooks("Mixrechner.xls").Sheets("Rechner")
.Range("P2").Copy .Range("N4")
End With

Eingabe.Show

Set wsNew = Nothing

Gruß Sepp

M Merlin · 26. Juni 2010

Hallo folgendes auf Modulebene:
Code:

Private Type SHITEMID
cb As Long
abID As Byte
End Type

Private Type ITEMIDLIST
mkid As SHITEMID
End Type

Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByRef ppidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long

Private Const S_OK = 0
Private Const MAX_PATH = 260

Public Enum ShellSpecialFolderConstants
ssfDESKTOP = &H0 '
ssfPROGRAMS = &H2 ' Startmenü\Programme
ssfPERSONAL = &H5 ' Eigene Dateien
ssfFAVORITES = &H6 ' \Favoriten
ssfSTARTUP = &H7 ' Startmenü\Programme\Autostart
ssfRECENT = &H8 ' \Recent
ssfSENDTO = &H9 ' \SendTo
ssfSTARTMENU = &HB ' \Startmenü
ssfDESKTOPDIRECTORY = &H10 ' \Desktop
ssfNETHOOD = &H13 ' \Netzwerkumgebung
ssfFONTS = &H14 ' Windows\Fonts
ssfTEMPLATES = &H15 ' \Vorlagen
ssfCOMMONSTARTMENU = &H16 ' All Users\Startmenü
ssfCOMMONPROGRAMS = &H17 ' All Users\Startmenü\Programme
ssfCOMMONSTARTUP = &H18 ' All Users\Startmenü\Autostart
ssfCOMMONDESKTOPDIRECTORY = &H19 ' All Users\Desktop
ssfAPPDATA = &H1A ' \Anwendungsdaten
ssfPRINTHOOD = &H1B ' \Druckumgebung
ssfCOOKIES = &H21 ' \Cookies
ssfHISTORY = &H22 ' \Lokale Einstell.\Verlauf
ssfCOMMONTEMPLATES = &H2D ' All Users\Vorlagen
ssfCOMMONDOCUMENTS = &H2E ' All Users\Dokumente
End Enum

Public Function GetSpecialFolder(ByVal Folder As ShellSpecialFolderConstants) As String
Dim tIIDL As ITEMIDLIST
Dim strPath As String

If SHGetSpecialFolderLocation(0, Folder, tIIDL) = S_OK Then
strPath = Space$(MAX_PATH)
If SHGetPathFromIDList(tIIDL.mkid.cb, strPath) 0 Then
GetSpecialFolder = Left$(strPath, InStr(1, strPath, vbNullChar) - 1)
End If
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und deine Zeile zum Speichern wäre wie folgt zu ergänzen...
Code:

.SaveAs Filename:=GetSpecialFolder(ssfPERSONAL) & "\UnterOrdner\" & ThisWorkbook.Sheets("Rechner").Range("m4").Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ccbenne · 26. Juni 2010

Grüß dich Sepp

leider funzt das nicht so. Meine Funktion holt sich den Dateinamen aus der Zeile :

"MsgBox "Die Datei wurde unter " & Sheets("Tabelle1").Range("c20") & " in den Ordner Eigene Dateien abgespeichert."

Bei deiner Möglichkeit speichert er in dem Ordner ab wo die Hauptdatei hinterlegt ist und unter einen absolut nicht gewollten Namen und nicht unter "Eigene Dateien" dort habe ich ein Ordner der "Mixrechner" heißt. Dorthin soll die Datei gespeichert werden mit dem NAmen aus "C20".

ebs17 · 26. Juni 2010

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.SaveAs Filename:=ThisWorkbook.Sheets("Rechner").Range("m4").Value
MsgBox "Die Datei wurde unter " & Sheets("Tabelle1").Range("c20") & " in den Ordner Eigene Dateien abgespeichert."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

- Wenn Du den Inhalt der Zelle M4 als Speicherpfad verwendest, dann sollte die Zelle auch den gewünschten Inhalt enthalten (vollständiger Pfad).
- Deine Meldung (MsgBox) hat mit Deinem Tun nicht viel zu tun. Aus der Meldung kann sich die Funktion nichts holen, außerdem kommt die Meldung nach der Speichern-Anweisung.
- Dein With-Block ist unkorrekt.

ccbenne · 26. Juni 2010

Als Speicehrfad nehme ich M4 nicht sondern als Dateinamen.

Dieser Code läuft super aber er speichert ihn nur unter eigene Dateien und nicht wie gewollt im ord´ner Mixrechner der unter eigene Dateien steht.

Der Code wurde teilweise gekürzt um unwichige Elemente nicht zu verwenden. Die MSG BOX zeigt vor dem schließen den Benutzer der Datei an das die Datei unter den Dateinamen der aus M4 ausgelesen wird gespeichert wurde.

jinx · 26. Juni 2010

Moin, ccbenne,

und was ist so schwer daran, den Speicherpfad um die Angabe des Unterordners zu ergänzen? Für wichtiger würde ich eine Prüfung halten, ob es das Verzeichnis überhaupt gibt und es ggf. anlegen zu lassen...

Code:

Dim wsNew As Workbook
Dim strSubDir As String

Set wsNew = Workbooks.Add

strSubDir = ThisWorkbook.Sheets("Tabelle1").Range("c20")
If Left(strSubDir, 1) Application.PathSeparator Then
strSubDir = Application.PathSeparator & strSubDir
End If
If Right(strSubDir, 1) Application.PathSeparator Then
strSubDir = strSubDir & Application.PathSeparator
End If

With wsNew
.SaveAs FileName:=ThisWorkbook.Path & strSubDir & ThisWorkbook.Sheets("Rechner").Range("m4").Value
MsgBox "Die Datei wurde unter " & strSubDir & " in den Ordner Eigene Dateien abgespeichert."
.Close
End With

With Workbooks("Mixrechner.xls").Sheets("Rechner")
.Range("P2").Copy .Range("N4")
End With

Set wsNew = Nothing

Eingabe.Show
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dir wird zum wiederholten Male aufgezeigt, wie man ohne Copy&Paste Werte umschreibt - vielleicht solltest Du das einfach mal in den Code übernehmen.

@M Merlin:
sehr schön, aber ich schätze mal, dass Eigene Dateien unter Extras/Optionen/Allgemein als Standardarbeitsordner eingestellt ist.

ccbenne · 26. Juni 2010

moin

ich lerne VBA noch.....

werde deinen Vorschlag versuchen...

Danke

Office: Speichern an einen bestimmten Ort

Speichern an einen bestimmten Ort

Speichern an einen bestimmten Ort

Speichern an einen bestimmten Ort

Speichern an einen bestimmten Ort

Speichern an einen bestimmten Ort - Similar Threads - Speichern bestimmten Ort

Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

Serienbrief, bestimmte Seiten als PDF speichern

VBA bestimmte Tabellenblätter separat speichern

Bestimmten Bereich mit Makro in pdf speichern

Aktuelle Kalenderwoche nach bestimmtem Schema in variable Speichern

Arbeitsmappe als PDF speichern, bestimmte Sheets

Bericht als PDF speichern an bestimmten Ort