返回列表 上一主題 發帖

另存新檔問題

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
1# 跳轉到 »
發表於 2016-2-25 00:49 | 顯示全部帖子
回復 4# GBKEE


    不好意思能請問
Ａ是原檔案，在這Ａ檔案中執行『另存新檔』，產生Ｂ檔案．．以此類推．．
要問的問題是：在Ａ檔案另存新檔後(產生２檔案)，能停留在Ａ檔案嗎？（因每次『另存新檔』後，工作均停留在每次產生新檔案）要如何停留在Ａ的原檔案呢？？

TOP

sillykin

帖子
169 
主題
41 
精華
0 
積分
219 
點名
0  
作業系統
WIN10 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2012-7-31 
最後登錄
2023-9-15 
2#
發表於 2016-7-3 21:01 | 顯示全部帖子
Dim xPath As String
Dim Arr As Variant

Arr = Array("申請書", "契約書")
Sheets(Arr).Copy

ActiveWorkbook.SaveCopyAs Filename:= _
      "C:\" & TextBox1 & "(" & (Year(Date) & Month(Date)) & Day(Date) & ")" & "(" & TextBox2 & ")" & ".xlsm"
ActiveWorkbook.Close


       Unload Me
想請問為何執行上述程式，為另存二個sheet ,並存為一個新檔，但會多出一個新的檔案，小弟是否有地方用錯呢？？？？

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題