hi,
versuchs mit
Application.GetOpenFilename
Application.GetSaveAsFilename
...
Sam
Eine kurze Frage:
Ist es in Excel möglich Commandbuttons "Datei öffnen" und "Datei speichern" zu erstellen mit Hilfe des Zusatzsteuerelements CommonDialog. Also, Ich kann es meiner Toolbox hinzufügen, doch beim Versuch es in Userform einzubinden bekomme ich die Meldung "Das Steuerelement konnte nicht erstellt werden, da es nicht korrekt lizenziert wurde!". Wenn das nicht geht, könnte ich so ein -open- and -save- Dialog über zusätzliche Schaltfläche in der Symbolleiste durch eine Makrozuweisung erreichen?
Also, für jede Hilfe bin ich im Voraus sehr dankbar!
Bis dann
Viiiiieeelen Dank!
Sorry for Störung, aber Ich komme einfach nicht weiter. Also von VisualBasic
kenne ich das etwas anderes, da geht so was ziemlich einfach mit:
With CommonDialog1
.DialogTitle = "Datei öffnen"
.Filter = "Text Dateien(*.txt;*.doc;*.xls;*.dot) |*.dot;*.txt;*.doc;*.xls|Alle Dateien(*.*)|*.*|Bilder(*.bmp;*.ico;*.jpg)|*.bmp;*.ico;*.jpg"
.InitDir = "\\r41a-server\clausur"
'bestimmt den Pfad zum öffnen
.ShowOpen
End With
Nun ist das in Excel doch anderes. Ich will aber auch nicht genauen Pfad zu einer einzigen Datei haben sondern ein Verzeichnis wie "Eigene Dateien" oder so...
Wenn einer doch Hilfe weiss, bitte schreibt zurück.
Besten Dank!
störung gibt's hier nicht, dafür ist ja ein Forum hier. Du findest in der Recherche sehr viel über GetOpenfilename - (Buchstabe "G" :-)
z.B.:
Sub FileOpen()
Dim varFile As Variant
varFile = Application.GetOpenFilename("Textdateien (*.txt),*.txt")
If varFile = False Then Exit Sub
Workbooks.Open varFile
End Sub
Also, mit getopenfilename bekommst du den gesamten Pfad und Dateinamen zurück und es wird in der Variablen varFile gespeichert. Versuchs, und wenn du weitere Fragen hast, just write!
lg
Sam
ein riesen Dankeschön!