Hvor er feilen??

[noccy]

Hei!

 

Hvor er filen her?? Når jeg har valgt en fil får jeg en runtime error.....

 

 

Sub Test()

 

ChDir "c:"

 

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Dim vrtSelectedItem As Variant

With fd

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

'Setter valgt fil på variabelen ValgtFil'

ValgtFil = vtrSelectedItem

Next vrtSelectedItem

Else

End If

End With

Workbooks.OpenText Filename:= _

ValgtFil, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _

:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _

True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array( _

1, 5), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, _

2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2))

 

 

 

End Sub

[noccy]

oppps

 

Så det selv vtr vrt....