12
返回列表 上一主題 發帖

有關另存新檔問題..

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-6-7 10:37 | 只看該作者

有關另存新檔問題..

請問各位版大如範例..
我要另存新檔而檔名會自動用儲存格B1與B3儲存格內容作為檔名
指定路徑為D槽 001.rar (6.48 KB)
不知VBA要如何寫請各位版大指導謝謝...
收藏 分享

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
2#
發表於 2010-6-7 10:51 | 只看該作者
ActiveWorkbook.SaveAs Filename:="D:\" & range("B1").value & range("B3").value  & ".xls"

TOP

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
3#
發表於 2010-6-7 11:18 | 只看該作者
回復 2# victorl


    謝謝大大指導但為何執行後會自動開啟新檔文件

TOP

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
4#
發表於 2010-6-7 11:32 | 只看該作者
ActiveWorkbook


我用ActiveWorkbook.Close但會關掉文件
請大大指導

TOP

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
5#
發表於 2010-6-7 12:41 | 只看該作者
EXCEL 另存新檔內訂就是關閉舊檔開啓新檔
加入 Workbooks.Open "D:\ 原來檔名.xls"

TOP

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
6#
發表於 2010-6-7 13:20 | 只看該作者
回復 5# ANGELA


    謝謝大大指導但還是不行ㄝ

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
7#
發表於 2010-6-7 13:44 | 只看該作者
請問你是想要另存新檔再開啟原檔案嗎?
請參考
    Orig = ThisWorkbook.Path & "\" & ThisWorkbook.Name '取得原檔案路徑及名稱
    ActiveWorkbook.SaveAs Filename:="D:\" & Range("B1").Value & Range("B3").Value & ".xls" ' 依要求B1&B3內容另存新檔
    newfile = ActiveWorkbook.Name
    Workbooks.Open Filename:=Orig ' 開啟原檔案
    Workbooks(newfile).Close ' 關閉另存之檔案
註. 另存新檔之前的變更不會存在於原檔案喔

TOP

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
8#
發表於 2010-6-7 15:38 | 只看該作者
回復 7# victorl


    謝謝大大指導已經可以..小弟受益匪淺.
再請問一下如儲存格B3到B33要自動秀出日期表單讓我可以挑選要如何寫..
請指導謝謝

TOP

gca78000

帖子
53 
主題
16 
精華
0 
積分
74 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2000 
閱讀權限
20 
性別
男 
註冊時間
2010-6-6 
最後登錄
2015-12-10 
9#
發表於 2010-6-7 15:51 | 只看該作者
回復 8# gca78000


    再請問大大一下.
如另存新檔後要把內的 vba程式碼也消除要如何寫
請指導謝謝...

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
10#
發表於 2010-6-7 16:25 | 只看該作者
本帖最後由 GBKEE 於 2010-6-7 16:30 編輯

回復 7# victorl
直接將檔案複製即可 不必開開關關
  1. Sub Ex()
  2. Dim D
  3. Set D = CreateObject("Scripting.FileSystemObject")
  4. ActiveWorkbook.Save
  5. D.CopyFile ActiveWorkbook.FullName, "D:\" & Range("B1") & Range("B3") & ".xls"
  6. End Sub
複製代碼

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
12
返回列表 上一主題