返回列表 上一主題 發帖

[發問] Userform取值問題

mdr0465

帖子
163 
主題
45 
精華
0 
積分
246 
點名
27  
作業系統
win7 
軟體版本
ie 
閱讀權限
20 
性別
男 
註冊時間
2015-7-8 
最後登錄
2024-9-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

萬分感激幫忙修改,謝謝

謝謝

mergertosheet_v4 (test).rar (40.24 KB)

收藏 分享

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 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

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題