Oberfläche anpassen

Bild

Betrifft: Oberfläche anpassen
von: Frank
Geschrieben am: 20.04.2005 19:33:29
Hallo Excelgemeinde,
Ich habe mir in VBA eine Oberfläche gestaltet wo sich eine Laufwerks-,Ordner- und Dateibox befindet.
Ich möchte nun folgendes - die Datei die in der dateibox selektiert wurde soll beim betätigen der Schaltfläche öffnen ausgeführt werden.
Stehe irgendwie auf dem Schlauch - kann mir jemand bei der Befehlzeile für die Schaltfläche Öffnen (mit den vielen Fragezeichen) unter die Arme greifen??
Gruß Frank
Option Explicit
Private Dateiname As String


Private Sub AuswahlLaufwerk_Change()
    AuswahlOrdner.Path = AuswahlLaufwerk.Drive
    AuswahlDatei.Path = AuswahlOrdner.Path
End Sub


Private Sub AuswahlOrdner_Change()
    AuswahlDatei.Path = AuswahlOrdner.Path
End Sub


Private Sub AuswahlDatei_Click()
    SchaltflOeffnen_Click
End Sub


Private Sub SchaltflOeffnen_Click()
???????????????????????????????????????????????
End Sub

Bild

Betrifft: AW: Oberfläche anpassen
von: ransi
Geschrieben am: 20.04.2005 20:52:58
hallo frank
ich kann deine codebeispiele nicht nachvollziehen.
Glaube aber nicht das du
workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad, OpenConflictDocument)
suchst.
alternativ schau dir mal "Shell-Funktion" in der VBA-Hilfe an.
ransi
Bild

Betrifft: AW: Oberfläche anpassen
von: Frank
Geschrieben am: 21.04.2005 08:27:00
hallo ransi,
mit der Shell Applic. habe ich so meine Probleme.
Es wird nur excel geöffnet.
Ich habe mal ein Bild von der Oberfläche hier reingehangen.
Gruß Frank


Private Sub SchaltflOeffnen_Click()
          Dateiname = File1.Path
          Dateiname = Shell("h:\Microsoft Office\Office10\EXCEL.EXE", 1)  
End Sub

https://www.herber.de/bbs/user/21465.xls
Bild

Betrifft: AW: Oberfläche anpassen
von: Frank
Geschrieben am: 21.04.2005 08:31:22
hallo ransi,
mit der Shell Applic. habe ich so meine Probleme.
Es wird nur excel geöffnet.
Ich habe mal ein Bild von der Oberfläche hier reingehangen.
Gruß Frank

Private Sub SchaltflOeffnen_Click()
          Dateiname = File1.Path
          Dateiname = Shell("h:\Microsoft Office\Office10\EXCEL.EXE", 1)  
End Sub


https://www.herber.de/bbs/user/21465.xls
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Oberfläche anpassen"