返回列表 上一主題 發帖

[發問] Userform取值問題

[發問] 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

萬分感激幫忙修改,謝謝

謝謝

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

        靜思自在 : 並非有錢魷是快樂,問心無愧心最安。
返回列表 上一主題