Code: Select all
Close @All
DbOpen(type=macrobond) xx as mb
WfCreate(wf=c:\temp\tmp.wf1) d7 1/1/2008 2/29/2012
Fetch(d=mb) jpbank0714 sebank0106
Close mb
Shell If Exist c:\temp\test.bnk Del c:\temp\test.bnk
DbCreate(type=aremos) c:\temp\test.bnk
For %1 jpbank0714 sebank0106
Copy tmp::Untitled\{%1} ::test::{%1}
Next
WfSave tmp
Close @All