【结贴】不能保存。**

逆水的鱼

var
  fxls,docs :Object;
  FApp,FDocs,lcells ispatchHelper;
  lFileName: String;
begin
  lFileName := 'C:\Data.xls';
  fxls := ComObj.CreateOleObject('excel.Application');

  FApp := DispatchHelper.Create(fxls);
  FApp.PropertyPut('Visible', [True]);
  docs := FApp.PropertyGet('Workbooks',[]);
  FDocs := DispatchHelper.Create(docs);

  FDocs.InvokeMethod('Add',[True]);
  lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [5,5]));
  lcells.PropertyPut('value',['ceshi']);
  FApp.InvokeMethod('save',[lFileName]);
  FApp.InvokeMethod('quit',[]);


请测试。

lisb

没有Save这个方法吧，你查查微软的vba吧

逆水的鱼

查了呀！  有。
请帮忙给看一下。

逆水的鱼

请帮忙给看一下。

jiahaiming

楼主，我测试果你的例子了，可以保存，只是不知为什么多生成了一个文件。

建议楼主还是查找一下微软的帮助文档吧。

hanker_to_sun

我也有这个问题，就是不想让他出那个保存对话框，直接保存。
我查过vba的文档了，但是里面除了save之外，像SaveAs，Saved等方法都用不成，期待解决方案。

lixy

http://www.jinlei.info/?q=node/10
给你百度了一个。。。

lisb

var
  fxls,docs,ActiveDocs :Object;
  FApp,FDocs,lcells,FActiveDocs: DispatchHelper;
  lFileName: String;
begin
  lFileName := 'C:\Data.xls';
  fxls := ComObj.CreateOleObject('excel.Application');

  FApp := DispatchHelper.Create(fxls);
  FApp.PropertyPut('Visible', [True]);
  docs := FApp.PropertyGet('Workbooks',[]);
  FDocs := DispatchHelper.Create(docs);
  FDocs.InvokeMethod('Add',[True]);
  lcells := DispatchHelper.Create(FApp.PropertyGet('cells', [5,5]));
  lcells.PropertyPut('value',['ceshi']);
  ActiveDocs := FApp.PropertyGet('ActiveWorkbook',[]);
  FActiveDocs := DispatchHelper.Create(ActiveDocs);
  FApp.PropertyPut('DisplayAlerts',[False]);
  FActiveDocs.InvokeMethod('Saveas',[lFileName]);
  FApp.InvokeMethod('quit',[]);
end;

hanker_to_sun

您好，我照着您写的改了一下我的代码，但是走到保存这句的时候
FActiveDocs.InvokeMethod('Saveas',[lFileName]);
就会报错。感觉是'Saveas'这里的问题，因为原先我写的是save时没有问题，只是弹出一个另存为的对话框。

我用的是office2007，应该和我的office版本没有关系吧。


而且我刚刚把任务管理器打开，发现里面excel的进程有很多个，每次执行完这一句
FApp.InvokeMethod('quit',[]);
虽然能关掉窗口，但是进程始终开着，十分占系统资源，顺便问下这个怎么解决啊。

lisb

我这里是office2003测试没有问题，可能和office版本有关，具体的你再查一下吧。