返回列表 上一主題 發帖

[發問] 請問如何將指定的工作表!另存成一個新的活頁簿(.xls檔)!

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2025-12-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-12 13:54 | 顯示全部帖子

[發問] 請問如何將指定的工作表!另存成一個新的活頁簿(.xls檔)!

本帖最後由 棋語鳥鳴 於 2011-11-12 14:06 編輯

請問如何利用vba新增一個.xls檔，並放入指定區域(B2)，讓新增的檔案名稱為B1的文字!最後將此sheet的內容與工作表名稱放入!(應該說將此SHEET的內容另存至新的活頁簿中)
例:於C:\下產生一個"測試A.xls"，並將此工作表與 測試.rar (12.81 KB) 內容放入!
收藏 分享

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2025-12-8 
2#
發表於 2011-11-12 18:09 | 顯示全部帖子
本帖最後由 棋語鳥鳴 於 2011-11-12 18:13 編輯

回復 2# GBKEE
請問"GBKEE"大大，
1.如何修改此巨集，讓它只另存指定的sheet(單一個sheet)就好，而不要整個檔案都過去(巨集也不要過去)!
2.如何將此檔案變成2003的.xls格式?

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2025-12-8 
3#
發表於 2011-11-12 22:15 | 顯示全部帖子
回復 4# GBKEE
這句不知哪裡出錯==>For Each E In .VBProject.VBComponents                       '活頁簿專案中元件的集合物件
出現錯誤1004:
不信任以程式設計方式存取visual Basic專案

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2025-12-8 
4#
發表於 2011-11-13 06:42 | 顯示全部帖子
現在變成這段==>.SaveCopyAs .Sheets(1).[B2] & .Sheets(1).[B1] & "." & Split(.Name, ".")(1)
陣列索引超出範圍!

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2025-12-8 
5#
發表於 2011-11-13 08:32 | 顯示全部帖子
回復 8# GBKEE
板大:不好意思，又要麻煩您修改了!
1.現在可以轉出檔案了!不過~轉出來格檔案格式不對(檔案與一開始的格式一樣，且不能開啟，要自行改成.xls才能開啟)
2.請問如果我要轉出的sheet為sheet2要如何修改其巨集，檔名和路徑還是在sheet1!

TOP

棋語鳥鳴

帖子
178 
主題
53 
精華
0 
積分
242 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
20 
註冊時間
2011-2-22 
最後登錄
2025-12-8 
6#
發表於 2011-11-13 11:07 | 顯示全部帖子
回復 10# GBKEE

這次測試就ok了~感謝大大不辭辛勞的修改!!

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題