Auto-open file in Excel

[BelgianEagle]

Al ik een macro wil starten om een file te openen dan lukt dit niet.

Wat doe ik verkeerd?

With Openfile()
NewFN = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:="Please select a file")
If NewFN = False Then
' They pressed Cancel
MsgBox "Stopping because you did not select a file"

.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = ";"
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileDecimalSeparator = ","
.TextFileThousandsSeparator = "."
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll ToRight:=2
End Sub

 

[smek]

Wat is precies de bedoeling? Bij het opstarten van je macro de gebruiker automatisch een bestand laten selecteren?

 

[BelgianEagle]

Wat is precies de bedoeling? Bij het opstarten van je macro de gebruiker automatisch een bestand laten selecteren?

Ja om daarna de file automatisch te laten verspreiden in verschillende kolommen, want nu staan alle gegevens in 1 veld.

Maar door die With en fieldnames lukt dat niet echt..

 

[smek]

Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\blaat\Bureaublad\Nieuw - Tekstdocument.txt", _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=False, Other:=True, OtherChar:=";", FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
        TrailingMinusNumbers:=True

Moet het niet zoiets worden dan?