Sub ki027()
   fff = Application.GetOpenFilename(Title:="ファイル指定")
   
timck = Timer
   Workbooks.OpenText Filename:=fff, DataType:=xlDelimited, Comma:=True, _
   FieldInfo:=Array(Array(1, 2), 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), Array(14, 2), _
    Array(15, 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), _
    Array(20, 2), Array(21, 2), Array(22, 2), Array(24, 2), Array(25, 2))
MsgBox "マクロ処理時間(秒)⇒　" & Timer - timck
End Sub

Sub ki027a()
timck = Timer
   fff = Application.GetOpenFilename(Title:="ファイル指定")
   Workbooks.OpenText Filename:=fff, Comma:=True
MsgBox "マクロ処理時間(秒)⇒　" & Timer - timck
End Sub