返回列表 上一主題 發帖

[發問] VBA修改 : 複製有函數的工作表，並另存到新的工作簿

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 2020-6-24 09:17 | 顯示全部帖子
回復 5# edmondsforum

With xName.UsedRange
                    .Value = .Value
End With
改為
With ActiveSheet.UsedRange
        .Value = .Value
End With

因為xName被設定為原檔案的Sheet了,所以是將原檔案的改為值

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2020-6-24 17:38 | 顯示全部帖子
回復 10# edmondsforum
for...next變數是I,不是xWeek

With ActiveWorkbook
                            ActiveSheet.Name = "第" & I & "週"
                            .SaveAs xPH & "第" & I & "週.xlsx", CreateBackup:=False
                            .Close
                        End With

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題