返回列表下一主題上一主題發帖

[發問] 將檔案的sheet2資料, 直接另存成新檔

melvinhsu1105

小學生 Rank: 1

帖子: 15
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: WINDOWS
軟體版本: XP
閱讀權限: 10
性別: 男
註冊時間: 2011-4-26
最後登錄: 2011-5-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-5-6 10:41 | 只看該作者

[發問] 將檔案的sheet2資料, 直接另存成新檔

請問各位先進及板主,

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

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 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

可以參考此檔案...