小弟寫了一個Form, 其Form有好多RadioGroup, 我想將RadioGroup中的值send入指定Excel的某些格, 應怎樣做??? 還有, 小弟初寫這方面的內容, 可不可給多些資訊給我, 謝謝!

您好： 請參考http://delphi.ktop.com.tw/topic.php?topic_id=29495 ~~應無所住而生其心~~

請問如何實現此行為? 有一個button, 按後可以選擇Excel文件路徑, 之後, 若該excel文件還沒產生, 則新建一個excel文件(到該指定路徑), 若已存在, 則將data放入excel文件的指定位置. 還有, 為何我輸入ExcelApp.WorkSheets[1].Activate;的Activate出錯? 我使用了ComObj, and我怎樣可以讀每某一行的memo資料??? 在delphi中怎樣檢查輸入的是否數字??? 怎樣可以開一個Dialog得到Path, 之後用ExcelApp.WorkBooks.Open去開那個Path??? 發表人 - Mathsniper 於 2005/03/09 20:05:13 發表人 - Mathsniper 於 2005/03/09 21:35:47

var
  XlsFileName: TFileName;
  Excel, WorkBook, WorkSheet: Variant;
  IsNewFile: Boolean;
  Tmp: String;
  Fn, FnExt: String;
begin
  IsNewFile := false;
  OpenDialog1.Filter := 'Microsoft Excel檔案|*.xls';
  OpenDialog1.DefaultExt := 'xls';
  OpenDialog1.Options := [];      if OpenDialog1.Execute then
  begin
    XlsFileName := OpenDialog1.FileName;
    Fn := ExtractFileName(XlsFileName);
    FnExt := ExtractFileExt(XlsFileName);        try
      StrToInt(Copy(Fn, 1, Length(Fn) - Length(FnExt)));
    except
      ShowMessage('Not numeric filename');
      Exit;
    end;        try
      Excel := CreateOleObject('Excel.Application');
    except
      ShowMessage('Can''t start excel');
      exit;
    end;        try
      if FileExists(XlsFileName) then
        WorkBook := Excel.Workbooks.Open(XlsFileName)
      else
      begin
        WorkBook := Excel.Workbooks.Add();
        IsNewFile := true;
      end;          WorkBook.Sheets.Add;
      WorkBook.WorkSheets[1].Name := 'First';          WorkBook.Sheets.Add;
      WorkBook.WorkSheets[1].Name := 'Second';          WorkSheet := WorkBook.WorkSheets['First'];
      WorkSheet.Activate;
      WorkSheet.Range['A1'].Value := 'First Sheet';
      Tmp := WorkSheet.Range['A1'].Value;          WorkSheet := WorkBook.WorkSheets['Second'];
      WorkSheet.Activate;
      WorkSheet.Range['A1'].Value := Tmp;
    finally
      if IsNewFile then
        Excel.ActiveWorkbook.SaveAs(XlsFileName, xlNormal, '', '', False, False)
      else
        Excel.ActiveWorkbook.Save;          Excel.Quit;
    end;
  end;
end;