jcchiang

¦^´_ 1# mdr0465

¸Õ¸Õ¬Ý
If UCase(TextBox1) = "N" Then
                Workbooks.OpenText Filename:=Fullpath, Origin:=TextBox3, _
                StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
                , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
                TrailingMinusNumbers:=True
            Else
                Workbooks.OpenText Filename:=Fullpath, Origin:=TextBox3, _
                DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
                Space:=True, OtherChar:=TextBox2, Other:=True
            End If