MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Office - Allgemein
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 16.02.2018, 15:31   #1
drambeldier
MOF Koryphäe
MOF Koryphäe
Standard Off2007 - FileDialog

Moin,

beim Aufruf von FileDialog wird im vorbelegten Datei-Eingabefeld der Dateiname abgeschnitten, genauer gesagt erst ab der 5. Stelle angezeigt. Ein Klick ins Auswahlfenster stellt die komplette Ansicht her.

Das passiert allerdings nur im Excel; im Access, woher ich die Prozedur kopiert habe, klappt alles. Riecht also nach unterschiedlichem Verhalten je nach Objektbibliothek.

Im ObjectCatalog taucht FileDialog mehrfach auf. Kann ich bestimmte Biblitheken gezielt ansprechen?

ps: Der Code soll kein Geheimnis bleiben:
Code:

Function Datei_gewählt(InitialFileName As String, Optional Title As String) As String
    
    Dim FD As FileDialog

    Set FD = Application.FileDialog(msoFileDialogFilePicker)

    With FD
        .InitialFileName = InitialFileName
        .InitialView = msoFileDialogViewDetails
        If Title <> "" Then .Title = Title
        .AllowMultiSelect = False
        If .Show = True Then
            Datei_gewählt = .SelectedItems(1)
        Else
            Datei_gewählt = InitialFileName
        End If
    End With
    Set FD = Nothing
End Function
Angehängte Grafiken
Dateityp: png FileDialog.PNG (42,1 KB, 17x aufgerufen)

__________________

Gruß
Ralf

Geändert von drambeldier (16.02.2018 um 16:47 Uhr). Grund: ps
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.02.2018, 16:36   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

wäre da das Excel Forum nicht besser?

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.

Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.02.2018, 19:53   #3
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Ralf,

vor ein paar Tagen kam eine ähnliche Frage, die hier gelöst wurde. Du musst nur auf den FilePicker abstellen.

__________________

Hang loose, haklesoft

Geändert von haklesoft (16.02.2018 um 19:55 Uhr).
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.02.2018, 09:17   #4
drambeldier
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Moin,

danke erstmal, hilft mir aber nicht weiter. Der einzige Unterschied, den ich sehe, ist
Code:

Dim FD as Object
anstatt
Code:

Dim FD as FileDialog
Am Verhalten hat sich nichts geändert :-(

Bei dem erwähnten Strang war ich übrigens dabei ;-)

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2018, 15:04   #5
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Ralf,

ich habe es lokal (Win 10/64, Office2010/32) ausprobiert. Typischerweise gebe ich im .InitialFileName nur den Pfad vor. Aber wenn ich einen FileName vorgebe, habe ich auch den beschriebenen Effekt. Abhängig von der Länge des FileNames werden mehr ober weniger Zeichen nach links verschoben.

Dürfte sich um eine Macke der letzten Updates handeln, sonst wäre das bekannt.

__________________

Hang loose, haklesoft
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.02.2018, 18:37   #6
drambeldier
Threadstarter Threadstarter
MOF Koryphäe
MOF Koryphäe
Standard

Danke. Mir kommt das ganze Ding eh ziemlich unausgegoren vor. Mit Filepicker lassen sich Folder suchen, mit Folderpicker Dateien. Folderpicker klebt bei Auswahl des Volumes einen Backslash hintendran, bei Auswahl eines Folders nicht.

__________________

Gruß
Ralf
drambeldier ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:49 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.