Thema Datum  Von Nutzer Rating
Antwort
13.01.2015 14:43:32 Matthias
Solved
Blau Speicherordner auswählen
 13.01.2015 15:26:33 Gast36981
Solved
13.01.2015 16:52:28 Gast731
NotSolved
13.01.2015 16:09:05 Gast67025
NotSolved

Ansicht des Beitrags:
Von:
Gast36981		 Datum:
13.01.2015 15:26:33		 Views:
917		 Rating:
     
Antwort:
 Nein
Thema:
Speicherordner auswählen

Hallo,

 

du ermittelst ganz fleißig ein Ordner, verwendest ihn dann aber nicht.

Wenn du beim Speichern nur den Dateinamen angibst, dann nimmt er quasi irgend einen Ordner, welcher genau bin ich mir nicht sicher.

Kann sein der letzte der für "Windows" aktive ist, oder der letzte in dem Excel was gemacht hat.

Ist aber eigntlich auch egal...

 

Du läßt dir den Pfad, den du auswählst, ja schön in eine Variable schreiben,  und die mußt du vor dem Datei-Namen mit angeben.

Und dann bitte nicht den "Backslash" für nach dem letzten Ordner vergessen.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "G:\PG-D22\_Mitarbeiter\Kettner\"
.Title = "Ordner auswählen"
If .Show Then strPath = .SelectedItems(1)
End With
 
strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
 
ActiveWorkbook.SaveAs Filename:=strPath & "Nr. " & 2 & "_" & Artikel & "_" & Date & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
13.01.2015 14:43:32 Matthias
Solved
Blau Speicherordner auswählen
 13.01.2015 15:26:33 Gast36981
Solved
13.01.2015 16:52:28 Gast731
NotSolved
13.01.2015 16:09:05 Gast67025
NotSolved