高手请进来 高分奉送!(100分)

  • 主题发起人 主题发起人 lemonloveyan
  • 开始时间 开始时间
L

lemonloveyan

Unregistered / Unconfirmed
GUEST, unregistred user!
开发时使用的是脚本语言,本身不支持TexcelApplication和TwordApplication等
类。所以在输出表的时候无法输出到excel,而只能使用文件操作输出到.TXT,输出时假
如将后缀名该为.XLS,那格式也不对,因为没有分列。
请问用winapi函数或是delphi对文件操作函数能否实现,该怎么做???
或者是可以自定义一个类(父类不可能是脚本不支持的)???
先给50分,之后完成后再加100大洋,不够再加!
 
把文件操作输出为.xml文件呢,再自己在程序中导入到excel文件中.
 
脚本语言?
是网站开发?
脚本也可以调用OFFICE,因为是自动化服务器

 
一个开发平台,支持delphiscript,它也是基于delphi框架的,但是delphi的很多类
它都没有继承过来,所以。。。
现在我已经导出成有规则的TXT文件,要是解决不了的话就另外做一个从TXT-->其它
数据的方法了,那给怎么做呢???
 
下面的方法一定行:
var
msexcel:olevariant;
wbook,wsheet:olevariant;
i,j:integer;
midleString:string;
begin
MsExcel:= CreateOleObject('Excel.Application');
WBook:=MsExcel.Application;
WBook.Visible:= True;
wbook.workbooks.Open('d:/abc.xls');
WSheet:=WBook.ActiveSheet;
i:=0;
while not query1.eof do
begin
for j:=0 to query1.fieldcount-1 do
begin
case query1.dataset.fields[j].datatype of //判断数据格式
ftinteger: midlestring:=inttostr(query1.fields[j].value);
ftDate : midlestring:=datetostr(query1.fields[j].value);
ftfloat : midlestring:=floattostr(query1.fields[j].value);
ftstring : midlestring:=query1.fields[j].value;
end;
WSheet.cells[i+1,j+1].value:=midlestring;
end;
i:=i+1;
query1.next;
end;
end;
 
哦,在线终于等到一个可以回答的,试过了,还真行!
谢谢!!!
 
后退
顶部