Sub ki030()
Dim fff1 As String
fsitei = "テキストファイル指定"
fff = Application.GetOpenFilename(Title:=fsitei)

   Workbooks.OpenText Filename:=fff, DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 2), Array(5, 2), Array(10, 1), _
        Array(15, 1), Array(20, 1), Array(25, 1))
End Sub