"sheeet1"為不固定字串及數字,如何另存新檔
- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
Sub test()
Dim xlSht As Worksheet, sFile As String
For Each xlSht In Sheets(Array(Sheet1.Name, Sheet2.Name, Sheet3.Name))
With xlSht
sFile = ThisWorkbook.Path & "\" & .Name & ".xls"
If Dir(sFile) <> "" Then Kill sFile
.Copy
ActiveWorkbook.SaveAs sFile
End With
Next
End Sub |
|
|
|
|
|
|
|
發表於 2010-10-20 10:36
| 