標題: [發問] 將 檔案的sheet2資料, 直接另存成 新檔 [打印本頁]

---

作者: melvinhsu1105    時間: 2011-5-6 10:41     標題: 將 檔案的sheet2資料, 直接另存成 新檔

請問各位先進及板主,

小弟, 在參考網上某位先進的vba語言, 在利用 將 檔案的sheet2資料, 直接另存成 新檔.  雖有成功另存成新檔, 但不知為何有以下的訊息及錯誤訊息, ,望請解惑
[attach]6005[/attach]
[attach]6006[/attach]

---

作者: mark15jill    時間: 2011-5-6 11:55

回復 1# melvinhsu1105

因怕讀不到EXCEL檔案 所以有另外附帶 程式碼..

Sub 按鈕1_Click()

    Sheets("sheet2").Copy   '這是要複製的活頁簿名稱
    Application.DisplayAlerts = False
    ActiveWorkbook.VBProject.VBComponents(2).Name = "Sheet1"


    ActiveWorkbook.SaveAs Filename:="C:\Users\user\Desktop\輸出測試.xls", _  '這是輸出位置和檔案名稱的地方
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        Sheets("Sheet2").Select  '這是複製後的活頁簿名稱
        Sheets("Sheet2").Name = "sheet1" '這是要改的名稱
        ThisWorkbook.Close savechanges:=True
End Sub





可以參考此檔案...

[attach]6008[/attach]

---

作者: GBKEE    時間: 2011-5-6 13:58

回復 1# melvinhsu1105
我的版本是2003
勾選  信任存取 Visuai Basic 專案   試試看
如圖

[attach]6014[/attach]

---

作者: melvinhsu1105    時間: 2011-5-6 14:29

回復 3# GBKEE


感謝, 先進,

對,我剛是參照您的檔. 也感謝您的指導.

---

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