stillfish00

¦^´_ 6# chiahuo
Sub Macro1()
    Dim fileToOpen
    fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="½Ð¿ï¾ÜÀÉ®×")
    If fileToOpen <> False Then
        Workbooks.OpenText Filename:=fileToOpen _
        , origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
        TrailingMinusNumbers:=True
    End If
End Sub