Makro for import av .txt filer til excel

[noccy]

Hei!

 

Jeg prøver å lage en makro for import av tekstfiler til excel. Tekstfilene er like hver gang, så jeg vil at instillingene i tekstimportveiviseren skal være de samme.

 

Jeg har laget denne makroen ved å "ta opp" en import. Det jeg ønsker er å kunne starte makroen, bli bedt om angi fil som skal importeres, og deretter bruke de innetillingen jeg har bestemt tidligere. Den første delen av makroen må altså inneholde en kommando som gir et "bla i gjennom" vindu... Noen forslag?

 

 

Sub Import()

 

Workbooks.OpenText Filename:= _

"c:test.txt" _

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

:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, 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

[Yoda]

Yepp, denne sub'en bør gjøre susen.

 

Sub FilOpen()

'

 

ChDir "Området der filene dine er lagret"

 

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 valg fil på variabel ValgtFil'

ValgtFil = vrtSelectedItem

Next vrtSelectedItem

Else

End If

End With

Workbooks.OpenText Filename:= _

ValgtFil _

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

:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, 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

 

EDIT: Satte opp hele sub'en

 

Yoda

[noccy]

Takker så mye nok en gang =)

 

:smile: