返回列表下一主題上一主題發帖

用參數進行工作表的複製問題

mimic1

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 2
點名: 0
作業系統: win10
軟體版本: office2013
閱讀權限: 10
註冊時間: 2015-9-18
最後登錄: 2015-9-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2015-9-24 23:32 | 只看該作者

用參數進行工作表的複製問題

[版主管理留言]

GBKEE(2015/9/25 07:06): 附檔看清楚

本帖最後由 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 ()確認正確
但是我卻沒有辦法用讀出的值
來進行兩個活頁簿中工作表的複製