"sheeet1"為不固定字串及數字,如何另存新檔
- 帖子
- 45
- 主題
- 19
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-9
- 最後登錄
- 2015-4-14
|
"sheeet1"為不固定字串及數字,如何另存新檔
假設我有三個工作表為 "sheet1"; "sheet2"; "sheet3" (但這三個工作表名稱不是固定字串及數字,會變更成其他名稱)
另存新檔後自動分開成三個檔案並以這三個工作表命名
該如何處理?? |
|
|
|
|
|
|
|
- 帖子
- 128
- 主題
- 13
- 精華
- 1
- 積分
- 118
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- Office2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 四川成都邛崃
- 註冊時間
- 2010-9-13
- 最後登錄
- 2017-5-12
|
2#
發表於 2010-10-20 10:36
| 只看該作者
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 |
|
|
|
|
|
|
|
- 帖子
- 45
- 主題
- 19
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-9
- 最後登錄
- 2015-4-14
|
3#
發表於 2010-10-20 13:45
| 只看該作者
存檔路徑修改成 ActiveWorkbook.SaveAs Filename:="E:\test\"
出現錯誤訊 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2010-10-20 13:53
| 只看該作者
存檔路徑修改成 ActiveWorkbook.SaveAs Filename:="E:\test\"
出現錯誤訊
yueh0720 發表於 2010-10-20 13:45 
E:\test 這資料夾存在嗎? |
|
|
|
|
|
|
|
- 帖子
- 45
- 主題
- 19
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-9
- 最後登錄
- 2015-4-14
|
5#
發表於 2010-10-20 14:55
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 45
- 主題
- 19
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-9
- 最後登錄
- 2015-4-14
|
7#
發表於 2010-10-25 13:32
| 只看該作者
|
|
|
|
|
|
|
