Office: Eine beliebige Quelldatei öffnen

Hallo zusammen,

wie kann ich mit VBA in Excel eine Eingabeaufforderung erstellen, in der eine Datei ausgesucht werden soll. Diese Datei soll dann geöffnet werden und im Makro benutzt.

Danke und viele Grüße
Till *Smilie

:)

 

Hallo Till,

Vielleicht so ?
Code:

Die fette Codezeile kannst Du jetzt mit Deinem Code ersetzten. Der Filename ist im String sFileToOpen.

 

Oh .. eine Zusatzfrage:

Wie kann ich eine Eingabeaufforderung erstellen, in der ein ORDNER ausgewählt werden kann?

Die Datei und der Ordner sollen mit dem kompletten Pfad in einer Variable gespeichert werden.

Kann mir bitte jemand helfen?

Vielen Dank! *tongue.gif*

Till

 

Cool, danke EtoPHG!

Hasteauch ne Idee für den Ordner?

Viele Grüße
Till *Smilie

 

Ah noch ne interessante Frage, wie kann ich einen Pfad vorgeben, von dem aus gesucht wird ... also der Pfad, bei dem die eingabeaufforderung startet?

 

Hallo Till,

Denn Order findest du mit der Funktion CurDir(), also
strNeuerOrdner = CurDIr() in dem Bereich wo die Datei gefunden wurde, würde den Ordner im String strNeuerOrdner ablegen.

 

Ne ich meine eine Eingabeaufforderung, in der ein Ordner und nicht eine Datei ausgewählt wird.

 

Hallo Till,
In dem Dialog den ich Dir geschickt habe, kann auch nur ein Ordner ausgewählt werden. Das funktioniert ja wie ein kleiner Explorer. Wenn also kein File zurückgegeben werden, ist u.U. trotzdem der Ordner oder Drive und Ordner gewechselt.

Ein Dialog um nur das Verzeichnis zu wechseln ist mir nicht bekannt und wär mir ehrlich gesagt zu aufwändig zum selber schreiben.

 

Alles klar, danke Dir ! *Smilie

 

Hallo zusammen,

hierzu habe ich nochmal eine Frage:

Mit der Zeile:
Code:

schreibe ich ja den Dateinamen incl. Pfad in die Variable "sFileToOpen".

Wie bekomme ich aus der Variablen nur den Dateinamen heraus? Ohne Pfad, geht das? Oder gibts da nen besseren Weg.?

Danke und viele Grüße
Till *Smilie

 

moin,moin

versuche mal das

dat = Right(sFileToOpen, InStrRev(sFileToOpen, "\"))

ist aber um die Uhrzeit nicht getestet von mir

 

Moin Chris,

danke dass Du mir schon so früh hilfst!
Aber irgendwie klappt dein Tipp nicht so richtig :-/

Er schneidet den String, der in sFileToOpen steht einfach irgendwo mittendrin ab. Hast noch ne Idee? Nichtmal bei "\".

Viele Grüße
Till *Smilie

 

Ah ja ok, ich verstehe.

Er gibbt die Position des letzen "\" im String an. Diese zühlt er dann aber von rechts und schneidet den String da ab.

Man müsste also die gesamtzahl der Elemente im String minus die Position des letzten "\" nehmen und dann hat man die Stellen, nach denen er von rechts abschneiden muss.

Nur wie geht das?
Ich brauche die Funktion, die die Gesamtzahl aller Elemente im String ausgibt.

Viele Grüße
Till *Smilie

 

moin,moin

*rolleyes.gif* *stupid sry,

dat = Right(sFileToOpen, Len(sFileToOpen) - InStrRev(sFileToOpen, "\"))

so müsste es gehen vermute ich mal
in 15 min habe ich wieder einen PC mit Office,

im Moment bin ich auf einem reinen Internetrechner *frown.gif*

 

Ok, ich hatte es jetzt so gemacht, weil ich die Funktion nicht wusste .. bisschen stümperhaft, aber geht auch:

dat = Right(sFileToOpen, (InStrRev(sFileToOpen, ".") + 3) - InStrRev(sFileToOpen, "\"))

Aber Deine Lösung ist natürlich viel eleganter, die werd ich auch verwenden :-)

1000 Dank!!!