Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Speichern unter über Inputbox

Betrifft: Speichern unter über Inputbox von: Redneck
Geschrieben am: 30.08.2004 11:34:47

Hallo,
ich möchte eine Datei, über Button, deren Name ich über eine Inputbox vorgebe in variablen Ordnern abspeichern. Welchen Code muß ich verwenden daß sich nach der Inputeingabe das "Speichern unter" Fenster öffnet und der Dateiname schon ausgefüllt dasteht sodaß man den Ordner manuell Auswählen kann.

Zur Inputbox verwende ich folgenden Code in dem allerdings ein Pfad vorgegeben ist, und genau den möchte ich per Speichen unter noch zusätzlich manuell auswählen können:

Dim FName As String
FName = InputBox("Dateinamen eingeben:", _
"WSD", "Test 01.2004.xls")
If Len(Trim(FName)) = 0 Then
Exit Sub
End If
ActiveWorkbook.SaveAs Filename:="\\SFFM1MSQL1\WSD$\WSD-Modul\Archiv\Statistik\" & FName, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ThisWorkbook.Close

Vielleicht kann mir jemand helfen!
Gruß Redneck

  


Betrifft: AW: Speichern unter über Inputbox von: Dan
Geschrieben am: 30.08.2004 11:52:07

Hallo Redneck, waere es so moeglich? :
Option Explicit

Sub a()
    Dim FName As String
    
    FName = InputBox("Dateinamen eingeben:", _
    "WSD", "Test 01.2004.xls")
    
    If Len(Trim(FName)) = 0 Then
    
        Exit Sub
    
    End If
    
    
    Dim retVal, strFilter, strTitle
    
    strFilter = "Excel Datein (*.xls),*.xls"
    strTitle = "Excel Datei speichern"
    retVal = Application.GetSaveAsFilename(initialfilename:=FName, _
                                           filefilter:=strFilter, _
                                           Title:=strTitle)
                                  
    If (retVal <> False) Then
        ActiveWorkbook.SaveAs Filename:="\\SFFM1MSQL1\WSD$\WSD-Modul\Archiv\Statistik\" & FName, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        ThisWorkbook.Close
    End If
    
    
End Sub


Gruss Dan, CZ.


  


Betrifft: AW: Speichern unter über Inputbox von: Redneck
Geschrieben am: 30.08.2004 12:14:06

Hallo Dan,

funktioniert prima genau das wollte, nur, ist es möglich daß anstatt dem Ordner "Eigene Dateien" schon einen anderen Ordner im "Speichern Unter" Fenster erscheint?
Gruß Redneck


  


Betrifft: AW: Speichern unter über Inputbox von: Dan
Geschrieben am: 30.08.2004 12:36:07

Redneck, ja es ist moeglich :
FName = InputBox("Dateinamen eingeben:", _
"WSD", "C:\Temp\Test 01.2004.xls")

So erscheinnt der Dialog mit dem Ordner C:\Temp. Also man muss die Pfad mit dem Datei-Namen mit eingeben.
Gruss Dan, CZ.


  


Betrifft: AW: Speichern unter über Inputbox von: Redneck
Geschrieben am: 30.08.2004 12:49:22

Hallo Dan,
alles klar, funktioniert einwandfrei, vielen Dank
Gruß Redneck


 

Beiträge aus den Excel-Beispielen zum Thema "Speichern unter über Inputbox"