Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Office Verzeichnis Dialog ohne Verweis auf ObjectLibrary
 
Folgender vba Makro Code erstellt einen Ordner Dialog in Microsoft Office Anwendungen
Office, Word, Access, Excel, PowerPoint, Outlook
 
Dabei kann man anschliessend einen Ordner auswählen und übernehmen, ohne zusätzlich unter Verweise eine Referenz zu Microsoft Office 15.0 Object Library zu erstellen

 

Option Compare Database
Option Explicit On
 
Function fxVerzeichnis_waehlen(sPath_Start, sTitel) As String
'----------------< Dialog-Aufruf (public) >---------------------
' Zeigt ein Dialogfeld Datei öffnen an. Gibt den kompletten
' Verzeichnispfad zurück.
 
Dim sReturn As String
 
'--< Import-Dialog >--
Dim objFolderdialog As Object 'As FileDialog
Set objFolderdialog = Application.FileDialog(4)
'Const msoFileDialogFolderPicker = 4
'Const msoFileDialogFilePicker = 3
objFolderdialog.AllowMultiSelect = False
objFolderdialog.ButtonName = "->Verzeichnis übernehmen"
objFolderdialog.Title = "Verzeichnis auswählen.."
objFolderdialog.InitialView = 9
'Const msoFileDialogViewTiles = 9
'Const msoFileDialogViewDetails = 2
objFolderdialog.InitialFileName = sPath_Start
objFolderdialog.AllowMultiSelect = False
If Not objFolderdialog.Show() = True Then
sReturn = ""
fxVerzeichnis_waehlen = sReturn
Exit Function
End If
'--< Import-Dialog >--
 
 
'-< check >-
'</ Ordner ist leer >
If objFolderdialog.SelectedItems().Count = 0 Then
sReturn = ""
End If
'</ Ordner ist leer >
'-</ check >-
 
sReturn = objFolderdialog.SelectedItems(1)
'sReturn = objFolderdialog.SelectedItems.Item(1)
 
'< out >
fxVerzeichnis_waehlen = sReturn
'</ out >
End Function

 
Mobile
SQL
»
SQL Server unter MSDN installieren
»
SQL Befehle
»
SQL Server Express Edition installieren und starten
»
SQL: Bit Spalte mit Standardwert erstellen
»
SQL Fehler: Cannot insert the value NULL into column IDDetail
»
SQL Server: Standard Vorgabe aktuelle Zeit
»
Instr(..) in SQL Server
»
Access, SQL : Duplikate oder doppelte Ergebnisse ausblenden mit DISTINCT
»
Verschachtelte, komplexe Abfragen mit Detailfeldern erweitern
»
Verschachteln von komplexen Abfragen

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de