怎样在delphi里面调用excel的宏? 把数据从access导出excel:先录制一个宏,定义表格的结构,然后用delphi向里面填充从access取出的数据。应该怎样做? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses comobj;...var excelapp:variant;begin excelapp:=createoleobject('excel.application'); excelapp.workbooks.open('filename.xls'); excelapp.run('宏'); excelapp.visible:=true;end;end; 哦,真糊涂,只看标题就开始回答,没看里面,呵呵。1、先解读access表中的字段名、字段个数写入excel某几个字段,一般都写在sheet2中,不过嫌麻烦的话也可以写在sheet1中,比如cell[1,200]、cell[1,201]...cell[1,n]2、执行宏,读出cell[1,200]、cell[1,201]...cell[1,n]的值,然后画表格。3、循环遍历access表,并对excel写入。4、清除cell[1,200]、cell[1,201]...cell[1,n] paradox 远程播放语音的问题 如何在listview中按行显示所添加物品状态的图标????解决即给分 谁有新思维超市POS进销存系统的控件,大家一起研究哇。 怎样确定选择的菜单是第几级菜单? 请猛禽接分 原帖http://expert.csdn.net/Expert/topic/2368/2368797.xml?temp=.1806757 大家帮我看看这句SQL语句什么地方出错了 关于学生综合信息管理系统的开发 显示格式的一个问提 那有看到dll中函数的工具。 关于adotable的enablecontrols,disablecontrols 请问要得到图片的负片效果,该怎么办?
...
var
excelapp:variant;
begin
excelapp:=createoleobject('excel.application');
excelapp.workbooks.open('filename.xls');
excelapp.run('宏');
excelapp.visible:=true;
end;end;
1、先解读access表中的字段名、字段个数写入excel某几个字段,一般都写在sheet2中,不过嫌麻烦的话也可以写在sheet1中,比如cell[1,200]、cell[1,201]...cell[1,n]
2、执行宏,读出cell[1,200]、cell[1,201]...cell[1,n]的值,然后画表格。
3、循环遍历access表,并对excel写入。
4、清除cell[1,200]、cell[1,201]...cell[1,n]