| 发表于:2007-07-11 13:14:461楼 得分:0 |
'生成excel对象 set exl = new excel.application '生成excel空工作表 exl.workbooks.add for i=0 to 表格控件行数-1 for j = 0 to 表格控件列数-1 '将数据写入表格 exl.cells(i + 1, j + 1) = 表格控件.cells(j, i) '大概,根据实际所用的表格控件属性 next next '移动焦点 exl.range( "a1 ").select '显示生成的表格 exl.visible = true | | |
|