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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-4-22 22:43 | 只看該作者

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

大家好，

請教大家，兩個問題

（1）工作薄中有a b c d e f g，共7個sheet，我只想拆出c e g這3個sheet為獨立的檔案，其他4個不拆分。

（2）存檔日期，成指定為sheet g 中，A1的數值(A1=20120408)。

請教大家，該如何修改下面的VBA，才能實現我想要的功能，感謝大家幫忙

Sub test()
Dim sht As Worksheet, ipath As String, iname As String
ipath = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
      iname = sht.Name
      sht.Copy
      With ActiveWorkbook
  .SaveAs Filename:=ipath & iname & "  " & sht1.Range("a1") & ".xls"
      .Close
      End With
Next
Application.ScreenUpdating = True
End Sub

threelin

小學生 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

TOP

p6703

中學生 Rank: 2

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

論壇贊助勳章

14^#

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

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 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

複製代碼

TOP

threelin

小學生 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　三個表中的數值選擇性貼上後，再拆分成三個獨立檔案，謝謝您。

TOP

register313

　頭銜: 麻辣路人甲

大學生 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"

TOP

threelin

小學生 Rank: 1

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

10^#

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

回復 9# Hsieh

謝謝版主您的回覆，我明白了。

　請教您，如果是把日期放在前面，是不是不可行，還是有其它的寫法？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

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

回復 8# threelin
ipath=Thisworkbook.Path & "\"
ipath是存檔位置
例如:Thisworkbook是存放在D:\TEMP
ipath就是"D:\TEMP\"
若n="e"
n & ipath就成了"eD:\TEMP\"

所以n & ipath這樣是找不到這個資料夾，所以出錯

學海無涯_不恥下問

TOP

threelin