標題: 用參數進行工作表的複製問題 [打印本頁]

---

作者: mimic1    時間: 2015-9-24 23:32     標題: 用參數進行工作表的複製問題

本帖最後由 GBKEE 於 2015-9-25 07:04 編輯

' 讀取檔名
    Dim Copywb As String
    Copywb = TextBox1.Value   
    MsgBox (Copywb)
' 讀取工作表
    Dim Copyws As String
    Copyws = ComboBox1.Value
    MsgBox (Copyws)
' 複製工作表
   Workbooks(Copywb).Sheets(Copyws).Copy before:=Workbooks("A.xls").Sheets("Sheet2")

請問
我從兩個下拉選單中讀出值，並用MsgBox ()確認正確
但是 我卻沒有辦法用讀出的值
來進行兩個活頁簿中工作表的複製

---

作者: 准提部林    時間: 2015-9-25 10:59

回復 1# mimic1


Msgbox 當然可以讀取〔文字〕，它不執行任何工作的！
倒是 Workbooks(Copywb) 這檔案是否有〔先〕開啟？

---

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