导航
  • 主页
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

excel问题?

newmankind 2004-05-07 09:50:28
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj,oleCtrls,comCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var
i,j:integer;
name:array[1..300] of integer;
SavePath:OleVariant;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ExcelID,ExcelApp:variant;
var i,j:integer;
begin
ExcelID := CreateOleObject( 'Excel.Application');
ExcelID.Visible := True;
ExcelID.caption := 'sadlf';
ExcelID.WorkBooks.Add;
ExcelID.WorkBooks.Open( 'e:\Excel1.xls' );
ExcelApp := CreateOleObject( 'Excel.Application');
ExcelApp.Visible := True;
ExcelApp.caption := 'sadlf';
ExcelApp.WorkBooks.Open( 'e:\Excel2.xls' );
(*for i:=1 to 262 do
for j:=1 to 14 do
//Name[i]:= quotedStr(ExcelID.Cells[i,1].Value);

begin
ExcelApp.Cells[j,6].Value :=ExcelID.Cells[i,j].Value;
end;
ExcelApp.SaveAs( 'e:\Excel\11.htm' );
ExcelApplication.DisConnect ; *)
ExcelApp.Cells[1,6].Value :=ExcelID.Cells[1,1].Value ;
ExcelApp.SaveAs( 'e:\excel\as.xls' );

end;

end.
以上代码实现的从一个excel表中按行提取数据在另一个表中以保存,然后保存为网页形式,
准备用for循环实现
但是现在在保存这遇到了问题,死活过不去,saveas这用的不正确么?
就是保存不了
其中use 中加入了
oleCtrls,comCtrls,还是不行。
另外各位大侠对我上面的代码有什么建议
改动,希望能修改贴出来,
小弟新手,万分感谢!
...全文
35 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
newmankind 2004-05-09

呵呵
回复
judicainiao 2004-05-09
散分呗
回复
newmankind 2004-05-09
此问题已解决
ExcelApp.workbooks[1].SaveAs( 'e:\excel\as.xls' )
这种情况怎么结贴
回复
truelang 2004-05-07
up
回复
internetcsdn 2004-05-07
也有此问题.

帮DING
回复
夜o猫 2004-05-07
不是用saveas,而是用save
回复
发动态
发帖子
Delphi
创建于2007-08-02

4813

社区成员

Delphi 开发及应用
申请成为版主
社区公告
暂无公告