procedure TForm1.Button1Click(Sender: TObject);
var
  ex, wb, ws, ch: Variant;
begin
  ex := CreateOleObject('Excel.Application');
  wb := ex.WorkBooks.Open('c:\1.xls');
  ws := wb.WorkSheets['Sheet1'];
  ex.Visible := true;
  ch := ex.Charts.Add;
  // xlColumnClustered = 51  長條圖
  ch.ChartType := 51;
  // xlColumns = 2
  ch.SetSourceData(Source:=ws.Range['A1:B7'], PlotBy:=2);
  // xlLocationAsObject = 2
  ch.Location(Where:=2, Name:='Sheet1');
end;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Variant ex, wb, ws, ch;
  ex = CreateOleObject("Excel.Application");
  wb = ex.OlePropertyGet("WorkBooks").OleFunction("Open", "C:\\1.xls");
  ws = wb.OlePropertyGet("WorkSheets", "Sheet1");
  ex.OlePropertySet("Visible", true);
  ch = ex.OlePropertyGet("Charts").OleFunction("Add");
  ch.OlePropertySet("ChartType", 51);
  ch.OleFunction("SetSourceData", ws.OlePropertyGet("Range","A1:B7"), 2);
  ch.OleFunction("Location", 2, "Sheet1");
}

#include     

引言: 您好 我已經將那個檔案

#include 
#pragma hdrstop
#include 
~~~~~~~~~~~~~~~~~~~~~~
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

可使還是會出現以下的錯誤耶!! 謝謝!! Build [C Error] Unit1.cpp(5): E2209 Unable to open include file 'Comobj.h' [C Error] Unit1.cpp(21): E2268 Call to undefined function 'CreateOleObject'

#include 
#include 

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Variant ex, wb, ws, ch;
  ex = CreateOleObject("Excel.Application");
  wb = ex.OlePropertyGet("WorkBooks").OleFunction("Open", "C:\\1.xls");
  ws = wb.OlePropertyGet("WorkSheets", "Sheet1");
  ex.OlePropertySet("Visible", true);
  ch = ex.OlePropertyGet("Charts").OleFunction("Add");
  ch.OlePropertySet("ChartType", 51);
  ch.OleFunction("SetSourceData", ws.OlePropertyGet("Range","A1:B7"), 2);
  ch.OleFunction("Location", 2, "Sheet1");
//以下為釋放:
  ex.OleFunction("Quit");
  ex = Unassigned;
}