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
»
Vba Makro Code: So erstellt man ein Excel Workbook und Sheet zur Laufzeit ohne Excel Verweis
»
Office Verzeichnis Dialog ohne Verweis auf ObjectLibrary
»
Ändern von vba Code zu Late Binding ohne dll-Verweis Dim Excel Word as Object
»
Excel Datei mit Schutz mit erlaubtem Farbformatierungen, Kommentaren und Sperren von Formelfeldern
»
Excel vba Fehler: Laufzeitfehler 1004 Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden
»
Excel Datei schützen
»
Excel Blatt schützen: Protect Parameter
»
Excel vba : Alle Worksheets auflisten
»
Vba: Sonderzeichen austauschen korrigieren
»
Gelöst: Excel vba copy paste values 100e Fehler

.

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