返回列表 上一主題 發帖

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

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

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

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

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

拜託 各位大大指點一下

319.gif
2013-3-19 19:52
319.gif
50 字節以內
不支持自定義 Discuz! 代碼

回復 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

回復 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

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題