麻辣家族討論版版 » Excel程式區 » 只選兩個工作表的值與格式另存新檔

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

[發問] 只選兩個工作表的值與格式另存新檔

中學生 Rank: 2

帖子: 215
主題: 70
精華: 0
積分: 290
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-1-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-8-23 15:33 | 只看該作者

[發問] 只選兩個工作表的值與格式另存新檔

this workbook內有多張工作表, 想取attendance report (**想只存值與數字格式, 不包括程式**)及ee data 另存一個新WORKBOOK 名為leave reocord
下列出現未能知道COPY屬性的錯誤, 求教?

Sub saveanother_leave()
Dim xPath As String
Dim Arr As Variant
xPath = Application.ActiveWorkbook.Path
Arr = Array("attendance report", "ee data")
Sheets(Arr).Copy = Application.NewWorkbook
ActiveWorkbook.SaveAs xPath & "Leave Record" & ".xls"
ActiveWorkbook.Close
End Sub

複製代碼

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-8-23 17:08 | 只看該作者

回復 1# missbb

Sub saveanother_leave()
Dim xPath As String
Dim Arr As Variant
xPath = ThisWorkbook.Path & "\"
Arr = Array("attendance report", "ee data")
Sheets(Arr).Copy
ActiveWorkbook.SaveAs xPath & "Leave Record" & ".xls"
ActiveWorkbook.Close
End Sub

複製代碼

中學生 Rank: 2

帖子: 215
主題: 70
精華: 0
積分: 290
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-1-29

3^#

發表於 2015-8-23 18:36 | 只看該作者

回復 2# lpk187

因ATTENDANCE DATA是有很多FORMULA, 想同時只COPY 值與數字格式, 是要SAVE 新檔之後做, 還是可以同時做 ?

靜思自在 : 對父母要知恩，感恩、報恩。

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