用VBA导出EXCEL的有关问题,

用VBA导出EXCEL的问题,急,在线等!
我在VBA中有一个窗体,基本上和VB中的窗体一样,我不知道大家用过没有,第一次用我也不太会,所以,要请教大家

在窗体上查询出来的数据放在list中显示出来,因为VBA中没有像datagrid的那的控件,所以只能用list控件或报表控件


查询出来的结果,我想把他另存为EXCEL文件,请各位高手帮忙,最好写代码出来,在此先谢了!

[解决办法]

VBScript code

dim wk as worksheetdim i as integerset wk=worksheets("sheet1")do while len(wk.cells(i,1))>0    listbox1.add wk.cells(i,1)    i=i+1loopworksheets.add ,,1set wk=worksheets("sheet2")i=1do while i<=listbox1.listcount    wk.cells(i,listbox1.list(i-1))    i=i+1loopwk.saveas "c:\abc.xls"
[解决办法]
不懂帮顶