本帖最後由 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
萬分感激幫忙修改,謝謝
謝謝 |