各位大大好，我利用ExcelChart來產生Excel圖表，共要產生三條折線， 如果資料來源是連續的話，語法如下： ExcelChart1.SetSourceData(ExcelWorksheet1.Range['B2','D4'],TOleEnum(xlRows));  //資料來源 但如果資料來源是跳行的話，語法不知道如何定義？請各位大大幫忙。

變更 Excel 內容 ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

引言: 變更 Excel 內容 ********************* 如果您滿意答案,請結案 *********************

如果Excel的內容不能變更，一定要以跳行選取的方式，無法做到嗎？

Hi, 在 delphi 中包裝的 SetSourceData 似乎無法做 range 的跳行選取, 我改用 ole object 的方式可以達到, 請自行試試, 程式如下,    

uses ... comobj ...    var
  ex, wb, ws, ch: Variant;
const
  xlLineMarkers = 65;
  xlRows = 1;
  xlLocationAsObject = 2;
begin
  ex := CreateOleObject('Excel.Application');
  wb := ex.WorkBooks.Open('c:\2.xls');
  ws := wb.Sheets['Sheet1'];
  ch := wb.Charts.Add;
  ch.ChartType := xlLineMarkers;
  ch.SetSourceData(Source:=ws.Range['C2:D2,C4:D4,C6:D6'], PlotBy:= xlRows);
  ch.Location(Where:= xlLocationAsObject, Name:='Sheet1');
  ex.Visible := true;
end;