Datei öffnen Application.GetOpenFileName
15.11.2005 03:26:04
Klaus
Vielleicht ne blöde Frage für Euch, für mich aber im Moment nicht lösbar - und es kommen sicher noch ein paar Fragen dazu ....
Ich habe folgendes Makro:
Sub Test()
Workbooks.OpenText Filename:= _
"A:\20050728\EVN_RKN1012791441_004976211515_072005.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 2), Array(7, 2), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1)), _
TrailingMinusNumbers:=True
End Sub
(aufgezeichneter Code beim öffnen einer CSV Datei!)
und möchte nun, dass wenn das Makro aufgerufen wird nicht eine bestimmte Datei geöffnet wird, sondern das Dialogfenster zur Dateiöffnung. Das ist ja der Code "Application.GetOpenFileName"
Wenn ich den Code alleine eingebe dann funktioniert das auch, wenn ich das aber zusammen mit den o.g. Code eingebe, dann erhalte ich einen Fehler!
Könnte mir bitte jemand den Code so abändern das er funktioniert!?!?!?!?
Vielen lieben Dank!
Grüße
Klaus