多个vf 数据输出到一个excel
本帖最后由 z315559822 于 2012-11-16 11:31:00 编辑 问题：现在是VF通过读取4个sql存储过程【产值报表、配料产值报表、砂光产值报表、油漆产值报表】，分别输出到4个xls表，希望修改代码为，读取这4个存储过程，然后输出到一个xls文件的4个sheet，而不是4个xls.
set exact on
nd=STR(YEAR(DATE()),4,0)
@8,10 SAY "年度" get nd
@10,10 say "月份" get yf
read
st="driver=sql server;server="+fwq+";uid="+yh1+";pwd="+mm1+";database=Ld"
linka=sqlstringconnect(st)
tt1=sqlexec(linka,"exec 产值报表 ?nd,?yf")
wjm=sys(2003)+'\记录查询\产值报表.xls'
dele file &wjm
copy to &wjm type xl5
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, ;
STRING lpszFile, STRING, STRING, INTEGER
operate= "open"
ShellExecute(0,operate,wjm,0,0,1)
tt1=sqlexec(linka,"exec 配料产值报表 ?nd,?yf")
wjm=sys(2003)+'\记录查询\配料产值报表.xls'
dele file &wjm
copy to &wjm type xl5
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, ;
STRING lpszFile, STRING, STRING, INTEGER
operate= "open"
ShellExecute(0,operate,wjm,0,0,1)
tt1=sqlexec(linka,"exec 砂光产值报表 ?nd,?yf")
wjm=sys(2003)+'\记录查询\砂光产值报表.xls'
dele file &wjm
copy to &wjm type xl5
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, ;
STRING lpszFile, STRING, STRING, INTEGER
operate= "open"
ShellExecute(0,operate,wjm,0,0,1)
tt1=sqlexec(linka,"exec 油漆上线产值报表 ?nd,?yf")
wjm=sys(2003)+'\记录查询\油漆上线产值报表.xls'
dele file &wjm
copy to &wjm type xl5
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, ;
STRING lpszFile, STRING, STRING, INTEGER
operate= "open"
ShellExecute(0,operate,wjm,0,0,1)
st=sqldisconnect(linka)
clear
return
