各位大大好，我想要利用程式去控制Excel中圖表X軸的範圍值， 但不知道要如何寫程式。 example:有一個Excel中已有一個圖表，它的X軸是日期，如何用程式去設定 Excel中圖表X軸的範圍值。 var FMsExcel : variant ; begin FmsExcel.Application.workbooks.open('c:\Book1.xls'); FMSExcel.worksheets['Sheet1'].ChartObjects('圖表 26').Activate; //設定X軸最大值及最小值的語法為何？ end;

var RangeExcel:ExcelRange; begin RangeExcel:=ExcelApplication1.Range['A' IntToStr(1),'A' IntToStr(30)]; //設定資料範圍A1~A30 ExcelWorkbook1.ActiveChart.SetSourceData(RangeExcel, xlColumns); ＠瞭解越多.懂得越少＠

引言: var RangeExcel:ExcelRange; begin RangeExcel:=ExcelApplication1.Range['A' IntToStr(1),'A' IntToStr(30)]; //設定資料範圍A1~A30 ExcelWorkbook1.ActiveChart.SetSourceData(RangeExcel, xlColumns); ＠瞭解越多.懂得越少＠

大大你好，請問宣告ExcelRange型態，是不是要先 Uses什麼呢？

參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35017 Delphi 5/6 use "Excel97" 宣告方式： var RangeExcel:Range; Delphi 7 use "ExcelXP" (Excel2000) 宣告方式： var RangeExcel:ExcelRange; ＠瞭解越多.懂得越少＠ 發表人 - chris_shieh 於 2005/04/07 11:58:42

引言: 參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35017 Delphi 5/6 use "Excel97" 宣告方式： var RangeExcel:Range; Delphi 7 use "ExcelXP" (Excel2000) 宣告方式： var RangeExcel:ExcelRange; ＠瞭解越多.懂得越少＠ 發表人 - chris_shieh 於 2005/04/07 11:58:42

謝謝chris_shieh大大的回覆， 但現在又有另一個問題 var RangeExcel:ExcelRange; begin RangeExcel:=ExcelApplication1.Range['A'+IntToStr(1),'A'+IntToStr(30)]; //設定資料範圍A1~A30 ExcelWorkbook1.ActiveChart.SetSourceData(RangeExcel, xlColumns); compiler時會出現錯誤訊息

我想你應該是用CreateOleObject方式 我是用TExcelApplication 所以我想你需要轉換一下 ＠瞭解越多.懂得越少＠

A         B
time      qty
2004/1/1  100
2004/2/1  200
2004/3/1  100
2004/4/1  400
2004/5/1  200
2004/6/1  400
2004/7/1  200
2004/8/1  100
2004/9/1  50

uses Excel2000, ComObj...........;    var
  Excel, WorkBook, WorkSheet, Range: Variant;
begin
  try
    Excel := CreateOleObject('Excel.Application');
    WorkBook := Excel.Workbooks.Open('c:\test.xls');
    WorkSheet := WorkBook.WorkSheets['Sheet1'];
    WorkSheet.Select;
  except
    ShowMessage('無法啟動Excel');
    Excel.Quit;
    Exit;
  end;      Range := WorkSheet.Range['A1:B10'];
  WorkSheet.ChartObjects('圖表 26').Activate;
  Excel.ActiveChart.ChartArea.Select;
  Excel.ActiveChart.SetSourceData(Range, xlColumns);      Excel.Visible := true;
end;

引言: 各位大大好，我想要利用程式去控制Excel中圖表X軸的範圍值， 但不知道要如何寫程式。 example:有一個Excel中已有一個圖表，它的X軸是日期，如何用程式去設定 Excel中圖表X軸的範圍值。 var FMsExcel : variant ; begin FmsExcel.Application.workbooks.open('c:\Book1.xls'); FMSExcel.worksheets['Sheet1'].ChartObjects('圖表 26').Activate; //設定X軸最大值及最小值的語法為何？ end;

謝謝各位大大的意見，我己經找到語法了，如下 var FMsExcel,WorkSheet : variant ; min_date,max_date:string; begin try FMsExcel := CreateOleObject('Excel.Application'); except MessageDlg('您的電腦中無Excel，請洽資訊人員！',mtInformation, [mbYes], 0) ; end; FmsExcel.Application.workbooks.open('c:\test.xls'); //設定 X軸的最大、最小值 Query1.Close; Query1.sql.Clear; Query1.SQL.Add('select getdate()'); Query1.Open; max_date:=formatdatetime('yyyy/mm/dd',Query1.Fields[0].asdatetime); Query1.Close; Query1.sql.Clear; Query1.SQL.Add('select getdate()-40'); Query1.Open; min_date:=formatdatetime('yyyy/mm/dd',Query1.Fields[0].asdatetime); WorkSheet:= FMSExcel.WorkSheets['Sheet1']; WorkSheet.ChartObjects('圖表 26').Activate; FMSExcel.ActiveChart.ChartArea.Select; FMSExcel.ActiveChart.Axes(1).MinimumScale := min_date; FMSExcel.ActiveChart.Axes(1).MaximumScale := max_date; FMSExcel.Application.visible := True ; end;