Supportnet / Forum / Windows2000
Excel: Pfadeingabe in ein Textfeld eingeben anstat es immer im makro zu ändern?
Frage
ich habe ein makro erstelt wo ich auf eine datei zugreife und aus diese datei importiere ich die werte die ich brauche.
Problem ist: ich muss in dem Makro code den Pfad von der neu datei immer ändern. ich möchte es ein wenig bedienerfreundlich machen in dem ich den pfad der neue datei in einer fenster eingebe ohne es in den makro code zu ändern.
hier ist mein makro:
Workbooks.OpenText Filename:= _
"Y:\Calc\GE15xle\GE40\100M\CWE\IEC\50Hz\REV0\FAT\10121213.FAT\Rfc@ldd_short\!!31EW2K.efs_dam", _
Origin:=xlWindows, StartRow:=799, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(6, 1), Array(15, 1), Array(26, 1), Array(38, 1), Array(53, 1), _
Array(68, 1)), ThousandsSeparator:=" "
Cells.Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("Load comparison final - GE15XLE - GE40 - betta.xls"). _
Activate
Sheets("Nref_a").Select
Range("A1").Select
ActiveSheet.Paste
Windows("!!31EW2K.efs_dam").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Windows("Load comparison final - GE15XLE - GE40 - betta.xls"). _
Activate
Sheets("FAT comparison").Select
Range("A1").Select
danke für die Hilfe