Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Word-VBA Dateiauswahldialog aus vorgegebenem Ordner

Mitglied: BaseBubble

BaseBubble (Level 1) - Jetzt verbinden

13.11.2019 um 14:02 Uhr, 169 Aufrufe, 3 Kommentare

Hallo in die Runde!

Ich bastle gerade an einem kleinen Word-VBA-Projekt, in dem es nötig ist, eine Datei auszuwählen. Das habe ich inzwischen auch schon hinbekommen. (Leider geht es in Word nicht so einfach wie in Excel).
Was ich bei dem Dateiauswahldialog jedoch noch gerne hätte, wäre ein vorgegebener Ordner, der von dem Dialog schon gleich angeboten werden sollte, sowie eine Einschränkung auf bestimmte Dateiendungen (z. B. *.docx)

Hier der Code, den ich bisher habe:

...
Dim dlgQuelle As Dialog
Dim varstrQuellordner$
Dim varstrQuelldatei$

'Dialog Dateiauswahl
Set dlgQuelle = Dialogs(wdDialogFileOpen)
With dlgQuelle
If .Display() Then
varstrQuellordner = CurDir()
varstrQuelldatei = .Name
MsgBox "Die Datei '" & varstrQuelldatei & "' wird verarbeitet."
Else
MsgBox "Abbruch durch Benutzer", vbCritical
GoTo Ende
End If
End With
...

Großes Danke schon mal und schöne Grüße
B.
Mitglied: Kraemer
LÖSUNG 13.11.2019 um 14:28 Uhr
01.
Public Function Dateiname() As String
02.
Dim f As Office.FileDialog
03.
Set f = Application.FileDialog(msoFileDialogFilePicker)
04.

05.
With f
06.
    .Title = "Mein Dialog"                    'Fenstertitel
07.
    .AllowMultiSelect = False                 'Nur eine Datei auswählbar
08.
    .ButtonName = "Auswählen"                 'Button Beschriftung
09.
    .Filters.Clear                            'erst alle Filter löschen
10.
    .Filters.Add "Excel-Dateien", "*.xl*"     'dann eigene anlegen
11.
    .Filters.Add "Word-Dateien", "*.do*"
12.
    .Filters.Add "Access-Dateien", "*.mdb; *.accdb"
13.
    .FilterIndex = 2                          'einen Filter vorselektieren
14.
    .InitialFileName = "D:\"                  'Startverzeichnis
15.
    .Show
16.
End With
17.

18.
If f.SelectedItems.Count > 0 Then
19.
    Dateiname = f.SelectedItems(1)
20.
End If
21.

22.
End Function
Quelle nach 2 Sekunden googlen: https://www.vba-tutorial.de/applikation/dateidialog.htm
Bitte warten ..
Mitglied: BaseBubble
13.11.2019 um 14:40 Uhr
Hallo!

Habe es inzwischen selbst herausgefunden.
Günstiger ist, nicht Dialogs zu nehmen sondern Application.FileDialogs

Danke!
Bitte warten ..
Mitglied: BaseBubble
13.11.2019 um 14:41 Uhr
Ach! Nicht gesehen, dass inzwischen geantwortet wurde... Danke!
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
VBA Word IBAN zerschneiden
gelöst Frage von InSpeeMicrosoft Office8 Kommentare

Hallo, wie kann ich mit VBA eine IBAN in 4er Schritten zerschneiden, sodass die IBAN so aussieht: DExx xxxx ...

VB for Applications

Excel-VBA nach Word-VBA übersetzen (V. 2010)

gelöst Frage von spinnifexVB for Applications2 Kommentare

Hallo Admins, wie kann ich folgendes XL-Makro nach Word übersetzen, wobei die Zelladresse "A1" als Textmarke "Anzahl" angesprochen werden ...

VB for Applications

VBA in Word 2010 bzw 2013(16)

gelöst Frage von ahstaxVB for Applications11 Kommentare

Hallo, wir haben hier folgendes Word-Makro: Es wird bei der Abarbeitung eines Dokuments durch eine Bürosoftware ausgeführt (überprüft!). Anschließend ...

VB for Applications

Word VBA - Bestimmte Ebene einer Nummerierung markieren

gelöst Frage von BaseBubbleVB for Applications3 Kommentare

Hallo! In einer Word-Datei mit Nummerierungen möchte ich via VBA die zweite Ebene der Nummerierungen markieren (und dann weiterbearbeiten ...

Neue Wissensbeiträge
Windows Installation

Windows Install ISO mit übergroßer Install.wim auf FAT32 übertragen

Tipp von Lochkartenstanzer vor 4 TagenWindows Installation11 Kommentare

Moin Kollegen, Viele von euch werden sicher aus praktischen Gründen nicht nur DVDs oder "virtuelle" CD-Laufwerke (Zalman, IODD) zum ...

Datenschutz

Gehe zurück auf Los, ziehe keine 4.000 Mark. E-Privacy (erstmal) gescheitert

Information von certifiedit.net vor 5 TagenDatenschutz

Webbrowser

Firefox 71 verfügbar mit Picture in Picture Funktion

Information von sabines vor 5 TagenWebbrowser2 Kommentare

Die neue Firefox Version 71 unterstützt, zunächst nur für Windows, Picture in Picture. Damit kann ein Video in einem ...

E-Mail
SPF beim Versenden testen
Tipp von StefanKittel vor 7 TagenE-Mail3 Kommentare

Hallo, wenn man einen SPF für einen Exchange, oder anderen Mail-Server, konfigiruert muss man das ja auch testen. Ganz ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik CRS305 4Port SFP+ Router-Switch, VMWare und Fritzbox (Netzwerk Internetproblem)
Frage von SickcultureRouter & Routing21 Kommentare

Auf der Suche nach Antworten im Netz kommt man unweigerlich auf eure Seite und die deutsche Mikrotik Blog Seite. ...

Router & Routing
Fritz VPN und WoL mit Mikrotik HEX RB750Gr2 möglich?
gelöst Frage von SionzrisRouter & Routing20 Kommentare

Hallo erstmal und danke fürs anklicken :) Ich habe folgendes Setup geplant und scheitere zurzeit an der Realisierung vom ...

Windows Server
Netzwerk Planung Homeoffice
Frage von siopoqruipWindows Server17 Kommentare

Hallo, ich plane zurzeit ein kleines Netzwerk. 5-8 User jeder mit eigenem Laptop (Lenovo T590) Windows 10 Professional Homeoffice ...

LAN, WAN, Wireless
Ca. 120 Ubiquiti Unifi AP-AC Pro in einem Netz
Frage von aditzLAN, WAN, Wireless17 Kommentare

Hallo Ubiquiti-Spezialisten, geplant ist ein flächendeckendes WLAN für ein Altenheim mit den oben genannten APs. Ich habe mal auf ...