HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Speicher unter......

Forumthread: Speicher unter......
10 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Speicher unter......

10.02.2009 20:12:00

Gast

Hallo,
ich versuche den Speicher Unter Dialog so einzustellen, dass das Verzeichnis angezeigt wird.
Aus der Recherche..............


Sub SpeichernUnter()
Dim dlg As Object
Dim Verzeichnis As String
Dim DateiName As String
Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
DateiName = ActiveSheet.Range("N11").Value
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
.InitialFileName = pfad & Dateiname & ".xls"
.Show
End With
If dlg  False Then dlg.Execute
End Sub

Was ist zu tun, dass das ausgelesenen Verzeichnis angezeigt wird?
Gruß Gast

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Speicher unter......

10.02.2009 20:23:00

Gerd
AW: Speicher unter......

10.02.2009 20:31:13

Gast
AW: Speicher unter......

10.02.2009 20:36:10

Gerd
AW: Speicher unter......

10.02.2009 20:41:32

Gast
AW: Speicher unter......

10.02.2009 20:37:00

mariposa
AW: Speicher unter......

10.02.2009 20:49:00

Gast
Verzeichnis = ThisWorkbook.Path ...

10.02.2009 20:43:44

Matthias
AW: Verzeichnis = ThisWorkbook.Path ...

10.02.2009 20:52:00

Gast
und wie gefällt Dir das ?

10.02.2009 21:00:52

Matthias
AW: und wie gefällt Dir das ?

10.02.2009 23:30:24

Gast

AW: Speicher unter......

10.02.2009 20:23:00

Gerd

Hi,
die Variable Pfad ist nicht deklariert und hat keinen Wert.
mfg Gerd

AW: Speicher unter......

10.02.2009 20:31:13

Gast

Hallo Gerd,


Sub SpeichernUnter()
Dim dlg As Object
Dim Verzeichnis As String
Dim DateiName As String
Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
DateiName = ActiveSheet.Range("N11").Value
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
.InitialFileName = Verzeichnis & Dateiname & ".xls"
.Show
End With
If dlg  False Then dlg.Execute
End Sub

Funzt leider auch nicht.
Gruß SP

AW: Speicher unter......

10.02.2009 20:36:10

Gerd

Hi,
im Strin Dateiname fehlt der backslash
mfg gerd

AW: Speicher unter......

10.02.2009 20:41:32

Gast

Hallo nochmal,
jetzt funzt es .............


Sub SpeichernUnter()
Dim dlg As Object
Dim Verzeichnis As String
Dim DateiName As String
Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
DateiName = ActiveSheet.Range("N11").Value
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
.InitialFileName = Verzeichnis & Application.PathSeparator & DateiName & ".xls"
.Show
End With
If dlg  False Then dlg.Execute
End Sub

Herzlichen Dank / SP

AW: Speicher unter......

10.02.2009 20:37:00

mariposa

Hallo Gast,
wie wäre es denn mit dem folgenden (noch anzupassenden) Code (auf diese Weise mache ich´s immer):


Private Sub DateiSpeichern()
varNeueDatei = "Test_Speichern_Unter"
ChDir "D:\"                 'gewünschten Pfad angeben, falls gewünscht
varDateiname = Application.GetSaveAsFilename(varNeueDatei, "Microsoft Excel-Dateien (*.xls), *. _
xls")
If varDateiname = False Then
Exit Sub
End If
ActiveWorkbook.SaveAs varDateiname
End Sub

Rückmeldung wäre nett!
Schöne Grüße
mariposa

AW: Speicher unter......

10.02.2009 20:49:00

Gast

Hallo mariposa,
So funzt es auch..........


Private Sub DateiSpeichern()
Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
ChDir Verzeichnis
DateiName = ActiveSheet.Range("N11")
varDateiname = Application.GetSaveAsFilename(DateiName, "Microsoft Excel-Dateien (*.xls), *.xls  _
")
If varDateiname = False Then
Exit Sub
End If
ActiveWorkbook.SaveAs varDateiname
End Sub

Gruß und Danke SP

Verzeichnis = ThisWorkbook.Path ...

10.02.2009 20:43:44

Matthias

Hallo
warum benutzt Du Left
reicht denn nicht:
Verzeichnis = ThisWorkbook.Path


Sub AlsBoxAnzeigen()
Dim Verzeichnis As String
Dim DateiName As String
Verzeichnis = ThisWorkbook.Path
DateiName = ActiveSheet.Range("N11").Value
MsgBox Verzeichnis & "\" & DateiName & ".xls"
End Sub

Gruß Matthias

AW: Verzeichnis = ThisWorkbook.Path ...

10.02.2009 20:52:00

Gast

Servus Matthias,
ThisWorkbook liegt in einem Unterordner und ist eine xla-Datei , deshalb das Left.
Gruß SP

und wie gefällt Dir das ?

10.02.2009 21:00:52

Matthias

Hallo
aha, ich glaub jetzt hab ichs verstanden.


Sub SpeichernUnter()
Dim dlg As Object
Dim Verzeichnis As String
Dim DateiName As String
Verzeichnis = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1) & "\"
DateiName = Verzeichnis & ActiveSheet.Range("N11").Value & ".xls"
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
.InitialFileName = DateiName
.Show
End With
If dlg  False Then dlg.Execute
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Gruß Matthias