Excel97: Application.Dialogs(xlDialogOpen)

Inde i 'With' skal der punktum foran hver property:

With App
    .Filename = "*.txt"
    .FieldInfo = Array(Array(1, 2), Array(2, 1))
    .OtherChar = ">"
App.Show
End With

Jesper:
Hvis man sætter et punktum foran som du foreslår, sker følende:

"Run-time error '438': Object doesn't support this proberty or method"

Det er fordi xlDialogOpen ikke understøtter nogen af de felter, du har forsøgt med, men derimod disse (taget fra min engelske Excel97's online help):

xlDialogOpen    file_text, update_links, read_only, format, prot_pwd, write_res_pwd, ignore_rorec, file_origin, custom_delimit, add_logical, editable, file_access, notify_logical, converter

Der er ingen tvivl om, at der skal være punktum foran inden i 'With'.

med xlDialogOpen har du ikke mulighed for FieldInfo, med ellers kan du gøre således:

Sub test()
Dim file_text As String, otherch As String
file_text = "*.txt"
otherch = ">"
Application.Dialogs(xlDialogOpen).Show file_text, , , 6, , , , xlWindows, otherch
End Sub

Jesper det ser ud som om Bak er enig med dig om dette.
Jeg har testet den stump Bak har skrevet, det virker.
Nu mangler jeg bare at styre hvordan filen bliver åbnet.
Her er et eksempel på hvordan filen ser ud:
CIRCLE 1
<X>    0.051
<Y>    -0.041
<Z>  -154.422
<D>    10.548
<Fo>    0.030
CIRCLE 2
<X>  -29.954
<Y>    -0.029
<Z>  -154.432
<D>    10.543
<Fo>    0.029
Jeg skal kun bruge værdien ud for <D> Punktummet skal opfattes som komma.
Har i nogle ideer?

FileToOpen = Application.GetOpenFilename("TXT files (*.txt), *.txt")
    If FileToOpen <> False Then
    Workbooks.OpenText Filename:= _
        FileToOpen, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:=">", FieldInfo:=Array(Array(1, 1 _
        ), Array(2, 1)), DecimalSeparator:=".", ThousandsSeparator:=","
Else
End
End If