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

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

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

¥»©«³Ì«á¥Ñ mdr0465 ©ó 2021-2-14 17:32 ½s¿è

¦U¦ì¤j¤j§A¦n

§Ú¦bºô¤W¤U¸ü¤F¤@­Óµ{¦¡¥i¥H¥Î¾¤¦X¨Ö´X­Ó¤£¦Pªºexcel,csv,txt ªºÀÉ®×, ¦X«÷¥t¦s¦b¤@­Ó·sªº¬¡­¶Á¡, §Ú¥u¯à¥Î¦³­­ªº¯à¤O»´·L­×§ï¤F,
¨Ã©ñ¦b¦Û³]ªºUserform, ¦ý­×§ï«á¥H¤Uªºµ{¦¡¤£¯à¨ú¦btextbox1ªº­È

If UCase(Windows(WorkName).ActiveSheet.Range("B1")) = "N" Then  ' ±N³o­Órange("B1") §ï¬°¨útextbox1ªº­È
                Workbooks.OpenText Filename:=Fullpath, Origin:=Windows(WorkName).ActiveSheet.Range("b3"), _  ' ±N³o­Órange("B3") §ï¬°¨ú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:=Windows(WorkName).ActiveSheet.Range("b3"), _ ' ±N³o­Órange("B3") §ï¬°¨útextbox3ªº­È
                DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
                Space:=True, OtherChar:=Windows(WorkName).ActiveSheet.Range("b2"), Other:=True '±N³o­Órange("B2") §ï¬°¨útextbox2ªº­È
            End If

¸U¤À·P¿EÀ°¦£­×§ï,ÁÂÁÂ

ÁÂÁÂ

mergertosheet_v4 (test).rar (40.24 KB)

¦^´_ 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 : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD