Board logo

標題: [發問] 將資料複製到∼ 另一個excel檔中，如何關閉單一的excel檔，而不全面關閉 [打印本頁]
作者: 7777    時間: 2013-3-19 19:53     標題: 將資料複製到∼ 另一個excel檔中，如何關閉單一的excel檔，而不全面關閉

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

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

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

拜託 各位大大指點一下

[attach]14403[/attach]
作者: GBKEE    時間: 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 要如何改善?? 你沒說!
作者: 7777    時間: 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

已解決∼ 感謝!!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)