返回列表 上一主題 發帖

[發問] 將資料複製到∼ 另一個excel檔中，如何關閉單一的excel檔，而不全面關閉

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-19 19:53 | 只看該作者

[發問] 將資料複製到∼ 另一個excel檔中，如何關閉單一的excel檔，而不全面關閉

將資料複製到∼ 另一個excel檔中，如何關閉單一的excel檔，而不全面關閉

轉檔()
        '的目的是要，在原始的 2.xls檔中的固定資料，
     可以複製到
     報表1 or 報表2......報表6
        等不同的檔案。

請問 1.如何可以 關閉單一的excel檔，而不全面關閉。(保留 2.xls檔)
       2.似乎....有可以 (改善的....)

拜託 各位大大指點一下

319.gif (12.84 KB)

319.gif

收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-3-20 05:26 | 只看該作者
回復 1# 7777
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Wb As Workbook
  4.     For Each Wb In Workbooks
  5.         If UCase(Wb.Name) <> "2.XLS" Then Wb.Close
  6.     Next
  7. End Sub
複製代碼
2 要如何改善?? 你沒說!
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

7777

帖子
125 
主題
33 
精華
0 
積分
223 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-12-26 
3#
發表於 2013-3-20 11:13 | 只看該作者
回復 2# GBKEE

感謝 GBKEE大大 協助

後來 覺得之前 GBKEE大大的
http://forum.twbts.com/viewthread.php?tid=3572
ActiveWorkbook.Close False                  '關掉作用中的活頁簿
Workbooks("某某某xls").Close True          '關掉指定的活頁簿
不存檔 Close False ,  存檔 Close true

更為 恰到好處
所以 就改為 以下處理了

    Workbooks("報表" & [Q1] & ".xls").Close True   '關掉指定的活頁簿   不存檔 Close False ,  存檔 Close true

已解決∼ 感謝!!!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題