[求助] EXCEL 寫左自動迴圈未做完就停左

事源我有一個macro 自動從A  (Template)  去 另存新檔 比如 A1,A2,A3,A4.... 直到完成, 每另存新檔都會開返A黎LOAD 但我如果咁run法會開左住左好多個EXCEL 檔 可能會引致HANG 機,
但當我打算寫多個指令如果 去到A2 就CLOSE 左 A1, 事實上A1 就係CLOSE左 但迴圈自己停左係度,請問有咩指令可以解決呢? 謝謝

我新加個指令大約係咁
IF X = 1 Else
workbooks(A(X)-1).close
end if
workbooks(A原本FILE).ACTIVE

回覆 1# dominicyu


唔好用 ActiveWorkbook.Save, 改用ActiveWorkbook.SaveCopyAs, 咁activeworkbook個名就唔會因為save左第二個名而改變, 亦唔洗load返原本個file, 更唔會出現之後所產生既問題.

TOP

回覆 2# myricky


    謝謝Ching我試下先

TOP

回覆  dominicyu


唔好用 ActiveWorkbook.Save, 改用ActiveWorkbook.SaveCopyAs, 咁activeworkbook個名就 ...
myricky 發表於 2016-6-15 23:58



    Ching 如果我個Template會 Del某些 Sheet 先另存 用Savecopyas 會變 template無左D sheet 請問有冇其他解決方法

TOP

Ching 如果我個Template會 Del某些 Sheet 先另存 用Savecopyas 會變 template無左D sheet 請問有冇 ...
dominicyu 發表於 2016-6-16 16:01


你可以試下
vba code寫係Template1 file, 內容大概如下

***
open template2 file
edit, add / delete sheets etc
savecopyas abc1, abc2, abc3 etc
close template 2 file (savechanges:=False)
***
loop...

TOP

本帖最後由 myricky 於 2016-6-17 00:08 編輯
你可以試下
vba code寫係Template1 file, 內容大概如下

***
open template2 file
edit, add / delete sh ...
myricky 發表於 2016-6-16 23:35



如果唔想不停load template2 file, 亦可以將code改為

**
add new workbook
activate template1 workbook
copy需要用既worksheet去new workbook
係new workbook edit 你要做既野
save as abc1...abc2...abc3 etc
close
**
loop

咁就唔需要用template2 file了.

TOP

如果唔想不停load template2 file, 亦可以將code改為

**
add new workbook
activate template1 workboo ...
myricky 發表於 2016-6-16 23:46


岩岩先有時間試 請問師兄如果我而家咁Run 會唔會Save As開左好多個?

TOP

岩岩先有時間試 請問師兄如果我而家咁Run 會唔會Save As開左好多個?
dominicyu 發表於 2016-6-21 19:14


唔會, 同時最多只有兩個workbook.

TOP