麻辣家族討論版版 - Powered by Discuz! Board

標題: "sheeet1"為不固定字串及數字,如何另存新檔 [打印本頁]

作者: yueh0720 時間: 2010-10-20 10:17 標題: "sheeet1"為不固定字串及數字,如何另存新檔

假設我有三個工作表為 "sheet1"; "sheet2"; "sheet3" (但這三個工作表名稱不是固定字串及數字,會變更成其他名稱)
另存新檔後自動分開成三個檔案並以這三個工作表命名
該如何處理??

作者: et5323 時間: 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

作者: yueh0720 時間: 2010-10-20 13:45

存檔路徑修改成 ActiveWorkbook.SaveAs Filename:="E:\test\"
出現錯誤訊

作者: GBKEE 時間: 2010-10-20 13:53

存檔路徑修改成 ActiveWorkbook.SaveAs Filename:="E:\test\"
出現錯誤訊
yueh0720 發表於 2010-10-20 13:45

E:\test 這資料夾存在嗎?

作者: yueh0720 時間: 2010-10-20 14:55

E:\test 這資料夾存在

作者: Hsieh 時間: 2010-10-20 14:58

回復 6# yueh0720

sFile = ThisWorkbook.Path & "\" & .Name & ".xls"
改成
sFile = "E:\test\" & .Name & ".xls"

作者: yueh0720 時間: 2010-10-25 13:32

可以了,謝了版主

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)