各位大大好，我想用BCB在Folder 裡新建一個Excel，指定WorkBook檔名,在新建指定名字的workBook裡，在建立指定WorkSheet的名字，還有改worksheet的名字，砍掉worksheet的動作。 都有一些存取的相關資料，但是就沒看到有改名稱，新建檔案，改檔名，改SHEET名稱，刪除SHEET等資料。在請各位大大幫忙。 Terence Chiu 發表人 - terencechiu 於 2004/12/28 13:24:09

------
Terence Chiu

重複了刪除 發表人 -

Delphi 的參考看看 Ole語法應該差不多

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExcelXP, OleServer, WordXP;    type
  TForm1 = class(TForm)
    ExcelApplication1: TExcelApplication;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
  Temp_Worksheet: _WorkSheet;
  i:integer;
  idx,_savechange:OleVariant;
  sName:String;
begin
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[0]:=True;
  ExcelApplication1.Caption := 'Test Automation Microsoft Excel';      //create new Excel Workbook
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));      //open existed Excel Workbook
  {ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open('C:\test.xls', EmptyParam,EmptyParam,EmptyParam
                           ,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam
                           ,EmptyParam,EmptyParam,0));
  }      //Delete WorkSheet
  for i := 1 to ExcelWorkbook1.WorkSheets.Count do
  begin
    idx:=i;
    Temp_Worksheet:=ExcelWorkbook1.WorkSheets[idx] as _WorkSheet;
    ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
    sName:=ExcelWorkSheet1.Name;
    if UpperCase(sName)='TEST' then
    begin
      ExcelWorkSheet1.Delete;
      break;
    end;
  end;      //Rename WorkSheet
  for i := 1 to ExcelWorkbook1.WorkSheets.Count do
  begin
    idx:=i;
    Temp_Worksheet:=ExcelWorkbook1.WorkSheets[idx] as _WorkSheet;
    ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
    sName:=ExcelWorkSheet1.Name;
    ExcelWorkSheet1.Name:=sName   '_test';
  end;      //Add a New WorkSheet
  Temp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
  ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
  ExcelWorkSheet1.Select;
  ExcelWorkSheet1.Name:='Test1';      //Save WorkBook
  ExcelWorkbook1.Save;      //Save copy as another WorkBook
  ExcelWorkbook1.SaveCopyAs('C:\test_savecopyas.xls');      //Save as another WorkBook
  ExcelWorkbook1.SaveAs('C:\test_saveas.xls', EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, xlLocalSessionChanges,
                                        EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, 0);      //Close without Save
  _savechange := wdDoNotSaveChanges;
  ExcelWorkbook1.Close(_savechange);      ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;
end;    end.

＠瞭解越多.懂得越少＠