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,还是不行。
另外各位大侠对我上面的代码有什么建议
改动,希望能修改贴出来,
小弟新手,万分感谢!
...全文
45 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

5124

社区成员

Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
帖子事件
创建了帖子
2004-05-07 09:50
社区公告
暂无公告