ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Userform¨ú­È°ÝÃD

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD