麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] Userform取值問題 [打印本頁]

作者: mdr0465 時間: 2021-2-14 17:31 標題: Userform取值問題

本帖最後由 mdr0465 於 2021-2-14 17:32 編輯

各位大大你好

我在網上下載了一個程式可以用黎合併幾個不同的excel,csv,txt 的檔案, 合拼另存在一個新的活頁薄, 我只能用有限的能力輕微修改了,
並放在自設的Userform, 但修改後以下的程式不能取在textbox1的值

If UCase(Windows(WorkName).ActiveSheet.Range("B1")) = "N" Then  ' 將這個range("B1") 改為取textbox1的值
            Workbooks.OpenText Filename:=Fullpath, Origin:=Windows(WorkName).ActiveSheet.Range("b3"), _  ' 將這個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"), _ ' 將這個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 '將這個range("B2") 改為取textbox2的值
         End If

萬分感激幫忙修改,謝謝

謝謝

作者: jcchiang 時間: 2021-2-18 15:31

回復 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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)