暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 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
可以參考此檔案...
 自動輸出和改名稱.rar (17.86 KB)
|
|
發表於 2011-5-6 13:58
| 
