VBA Excel 2007: GetOpenFilename funktioniert nicht.

hendrik.fritsch
Gast

« am: 12.01.12, 16:21:07 »

Hi Leute!

Ich mach im Februar Ferienarbeit in einem Betrieb, und soll da ein Makro schreiben, mit dem man eine CSV Datei in Excel einliest.

Alles funzt sogar jetzt schon..., blos im Moment muss man den Pfad der CSV per Hand eingeben, da der Aufruf des Dialogs net klappt.

Ich rufe den Dialog so auf:

Private Sub btnDurchsuchen_Click()
txtPfad.Text = Application.GetOpenFilename("CSV-Dateien (*.csv)|*.csv|Textdateien (*.txt)|*.txt|Alle Dateitypen (*)|*", 1, "Wählen Sie eine Datei", , False)
End Sub

Aber immer gibt es einen Laufzeitfehler!

Kann mir jemand helfen?

Danke im Voraus

Moderator informieren

Antworten zu VBA Excel 2007: GetOpenFilename funktioniert nicht.:

Mario (3.480)
Special-Member

6x Beste Antwort

19x "Danke"

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #1 am: 23.01.12, 15:10:28 »

Hat dir diese Antwort geholfen?

Hi,

alle Dateinamen werden durch einen "*" angegeben, und alle Dateitypen ebenfalls durch einen "*". D.h. im Weiteren: Wenn du alles anzeigen lassen willst ist die Syntax "*.*" und nicht nur "*", wie du es hast. Bei Textdateien hast du ja auch *.txt

Gruß,
Mario

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #2 am: 23.01.12, 16:22:18 »

Und das hilft?

Ich werde es gleich ausprbieren.

Vielen Dank für deine Antwort, ich dachte schon es gibt gar keine Antwort mehr...

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #3 am: 23.01.12, 17:01:24 »

Hi Mario,

Es hätte mich sehr gewundert, wenn es funktioniert hätte, denn Excel kann es doch sch********** egal sein, welche Dateien es anzeigt.

Mit der Syntax *.* kann man allerdings z.B. die Datei "noname" nicht öffnen, da deine Syntax einen Punkt braucht.
Also hab ich * benutzt.

Es kommt immernoch der selbe Laufzeitfehler:

Laufzeitfehler '1004':
Die Methode 'GetOpenFilename' für das Objekt "_Application" ist fehlgeschlagen

Trotzdem Danke für deine Antwort.

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #4 am: 04.02.12, 14:56:52 »

Hat denn keiner eine Idee? ???

Das Praktikum ist schon am 20.

Moderator informieren

Dr.Nope (54.968)
Global Moderator

1120x Beste Antwort

2092x "Danke"

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #5 am: 04.02.12, 15:31:29 »

Hat dir diese Antwort geholfen?

Also ich weiß nicht, wie Du auf die | kommst, da muss ein Komma hin, dann geht der Dateidialog zumindest mal auf. Also so:

Code: [Auswählen]

txtPfad.Text = Application.GetOpenFilename("CSV-Dateien (*.csv),*.csv,Textdateien (*.txt),*.txt,Alle Dateitypen (*.*),*.*", 1, "Wählen Sie eine Datei", , False)

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #6 am: 04.02.12, 18:04:10 »

Da müssen Kommas hin ??? ??? ??? ??? ???

In Visual Basic 2010 müssen nähmlich | hin....

Unendlich Dank erst mal

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #7 am: 04.02.12, 18:14:15 »

UNGLAUBLICH nach zig Versuchen funktioniert es!!!!

Habs grad mal getestet.

Übrigens: Der Dateityp MUSS einen Punkt enthalten, also *.* und nicht *

PS: Wenn man Abbrechen drückt, steht im Feld "Flsch"

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #8 am: 04.02.12, 18:14:58 »

*Falsch

Moderator informieren

Dr.Nope (54.968)
Global Moderator

1120x Beste Antwort

2092x "Danke"

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #9 am: 04.02.12, 20:08:17 »

Hat dir diese Antwort geholfen?

1 Leser hat sich bedankt

Beim Eingeben siehst Du doch die Syntax, das hätte Dir auffallen müssen (Komma). Nicht einfach copy/paste machen...

2012-02-04_20h06_50.png (3.92 KB, 552x55 - angeschaut 1007 Mal.)

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #10 am: 04.02.12, 22:34:28 »

Wo sieht man denn auf dem Bild bitte die Syntax des Filefilter-Parameters?
Das war nicht copy+paste, ich bin fest davon ausgegangen, dass es wie in vb ist, dem ist wohl doch nicht so...

« Letzte Änderung: 04.02.12, 22:36:52 von .hendrik »

Moderator informieren

Dr.Nope (54.968)
Global Moderator

1120x Beste Antwort

2092x "Danke"

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #11 am: 04.02.12, 22:38:19 »

Hat dir diese Antwort geholfen?

Du siehst dort, dass die Syntax mit , da steht, das ist der Unterschiede sonst würde da ja | stehen. Wann die angezeigt wird ist klar oder? Sobald Du die klammerauf gedrückt hast.

Moderator informieren

hendrik.fritsch
Gast

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

« Antwort #12 am: 04.02.12, 23:13:05 »

Ach is ja egal ich verstehs doch

Moderator informieren

« was brauche ich alles für Python?		Windows XP: Titel:Wie schreibe ich ein Programm? »

VBA Excel 2007: GetOpenFilename funktioniert nicht.

Antworten zu VBA Excel 2007: GetOpenFilename funktioniert nicht.:

Re: VBA Excel 2007: GetOpenFilename funktioniert nicht.

Mehr zu VBA Excel 2007: GetOpenFilename funktioniert nicht.