Gennemse efter fil og anvend Excel import af faste kolonner.

Hej

Jeg har indspillet nedenstående macro, der åbner tekstfilen 2005.txt og foretager en import ved hjælp af faste kolonner – den virker som den skal.

Sub Import()
    ChDir "C:\Documents and Settings\tvc\Skrivebord"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\tvc\Skrivebord\2500.txt", Origin:=xlWindows _
        , StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array( _
        2, 4), Array(12, 9), Array(15, 1), Array(40, 1), Array(44, 9), Array(49, 1), Array(81, 9), _
        Array(90, 9), Array(95, 1), Array(102, 9), Array(105, 1), Array(116, 9), Array(121, 9), _
        Array(123, 9)), TrailingMinusNumbers:=True
End Sub

Nu vil jeg så gerne kunne vælge hvilken fil det er den skal importere. Jeg har forsøgt med Application.Dialogs(xlDialogOpen).Show, men jeg tror jeg mangler stien til filen (har også prøvet med GetFile).

Er der en der ved hvordan man kan få løst problemet?

TVC