把数据从access导出excel:先录制一个宏,定义表格的结构,然后用delphi向里面填充从access取出的数据。应该怎样做?

解决方案 »

  1.   

    uses comobj;
    ...
    var
      excelapp:variant;
    begin
      excelapp:=createoleobject('excel.application');
      excelapp.workbooks.open('filename.xls');
      excelapp.run('宏');
      excelapp.visible:=true;
    end;end;
      

  2.   

    哦,真糊涂,只看标题就开始回答,没看里面,呵呵。
    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]