- 帖子
- 19
- 主題
- 2
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2003
- 閱讀權限
- 10
- 註冊時間
- 2010-7-26
- 最後登錄
- 2021-8-5
|
[發問] 求助，如何用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 |
|
發表於 2012-4-22 22:43
| 
