求助，如何用VBA把拆分工作表及存檔日期 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 求助，如何用VBA把拆分工作表及存檔日期

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

[發問] 求助，如何用VBA把拆分工作表及存檔日期

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

11^# 跳轉到 »

發表於 2012-4-23 13:11 | 只看該作者

本帖最後由 register313 於 2012-4-23 13:12 編輯

回復 10# threelin

fs = ipath & n & sh.Name & ".xls"

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 10
註冊時間: 2010-7-26
最後登錄: 2021-8-5

12^#

發表於 2012-4-23 15:12 | 只看該作者

回復 11# register313

感謝register313 的幫忙。:)

剛才又發現一個問題，c 、e 、g三個表的資料是連結到其它表格的
拆成獨立檔案後，在c 、e 、g　三個表中，儲存格還是會有連結路徑

請教您
該如何修改成，先將c 、e 、g　三個表中的數值選擇性貼上後，再拆分成三個獨立檔案，謝謝您。

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

13^#

發表於 2012-4-23 18:26 | 只看該作者

回復 12# threelin

Sub ex()
n = Sheets("g").[A1]
sht = Array("c", "e", "g")
ipath = ThisWorkbook.Path & "\"
For Each sh In Sheets(sht)
sh.Copy
With ActiveWorkbook
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
fs = ipath & n & sh.Name & ".xls"
.SaveAs fs
.Close
End With
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 134
主題: 27
精華: 0
積分: 168
點名: 0
作業系統: WINXP
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
來自: 雲林
註冊時間: 2010-10-6
最後登錄: 2018-5-13

論壇贊助勳章

14^#

發表於 2012-4-23 23:50 | 只看該作者

看到各位先進的詳細解答,讓小弟受益不少,真是太感謝了^^

小學生 Rank: 1

帖子: 19
主題: 2
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 10
註冊時間: 2010-7-26
最後登錄: 2021-8-5

15^#

發表於 2012-4-24 11:10 | 只看該作者

回復 13# register313

感謝register313大大，已經可以了，謝謝您。;P

靜思自在 : 君子為目標，小人為目的。

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