返回列表 上一主題 發帖

有關另存新檔問題..

victorl

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

TOP

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
2#
發表於 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

victorl

帖子
65 
主題
0 
精華
0 
積分
120 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-15 
最後登錄
2010-7-16 
3#
發表於 2010-6-7 22:33 | 顯示全部帖子
回復 10# GBKEE


    感謝  GBKEE 版大指教， Object相關一直都是小弟我比較弱的塊，還希望  版大能不吝指正並提點，因為說實在的相關教材實在有限。

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題