Private Sub btn_OpenFileClick() ' Focus auf Textfeld mit Dateinamen setzen Textfeld1.SetFocus ' Shell-Objekt erzeugen Dim objShell Set objShell = CreateObject("shell.application") ' Datei maximized öffnen, Dateiname steht in Textfeld1.Text objShell.ShellExecute Textfeld1.Text, "", "", "open", 3 ' Shell-Objekt wieder zerstören Set objShell = Nothing End Sub
Kategorien
-
Neueste Beiträge
- [ABAP] Excel-Daten mit XCO API (xco_cp_xlsx) lesen
- [ABAP] Daten einer internen Tabelle als Excel-Datei speichern (xco_cp_xlsx)
- [ABAP] JSON -> ABAP (xco_cp_json)
- [ABAP] ABAP -> JSON (xco_cp_json)
- [ABAP] String nach SYMSG-Struktur konvertieren
- [ABAP] Unix-Timestamp erzeugen
- [ABAP] SALV-Grid: Eventhandler für Doppelklick auf eine Zelle (double_click)
- [SAP] ABAP-Code nachgenerieren bzw. aktivieren
- [ABAP] Feldkatalog aus Tabellendefinition erstellen
- [ABAP] XML in interne Tabelle wandeln