Опять Ёксель

← →
Vikuksa (2002-10-17 14:26) [0]

Добрый день, проблемка вот в чем:

ExcelApplication настроен на Excel97.pas, як его настроить на Excel2000.pas

← →
Smithson (2002-10-17 14:31) [1]

Я такое так и не победил. Сделал в итоге так:

var S: String;
Word, Doc: Variant;
begin
// Выгрузить в Word
try
Word := GetActiveOLEObject("Word.Application");
except
Word := CreateOLEObject("Word.Application");
end;
AHTMLExecute(Sender);

Правда, c вордом, но фигня такая же.

← →
Vikuksa (2002-10-17 14:36) [2]

Smithson © (17.10.02 14:31)

У мя такой прикол:

мне надо после передачи данных, построить график основываясь на них же.
Я пишу в ёкселе макрос построения графика, открываю его и все бэйсиковские ком-ды перевожу в дельфи, НО т.к. у мя ексель 2000-й
то некоторые свойства в апликэйшене нет!

← →
Игорь Шевченко (2002-10-17 14:38) [3]

GetActiveOleObject("Excel.Application.9")

← →
News_a (2002-10-17 15:04) [4]

// Это простой пример можешь любые данные передавать в Excel
//и рисовать потом график
var t1, t2 :Variant;
rang2: range;
begin
ExcelApplication1.Connect;

with ExcelApplication1 do
begin
Workbooks.Add(EmptyParam,0);
Worksheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
Visible[0]:=true;
ExcelWorksheet1.ConnectTo(ActiveSheet as _WorkSheet);

ExcelWorksheet1.Cells.Item[1 ,1]:=1;
ExcelWorksheet1.Cells.Item[2 ,1]:=2;
ExcelWorksheet1.Cells.Item[3 ,1]:=3;

ExcelWorksheet1.Cells.Item[1 ,2]:=1;
ExcelWorksheet1.Cells.Item[2 ,2]:=2;
ExcelWorksheet1.Cells.Item[3 ,2]:=3;

t1:=ExcelWorksheet1.Cells.Item[1,1];
t2:=ExcelWorksheet1.Cells.Item[3,2];
rang2:=ExcelWorksheet1.Range[t1,t2];
Charts.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelChart1.ConnectTo(ActiveChart as _Chart);
ExcelChart1.ChartType:= xlLine;
ExcelChart1.SetSourceData(rang2, xlcolumns);
ExcelChart1.Disconnect;
end;
ExcelWorksheet1.Disconnect;
ExcelApplication1.Disconnect;
end;

← →
Vikuksa (2002-10-18 13:49) [5]

Люди я решивши пойти таким путем:

var i, j: integer;
FExcel, vrang : OleVariant;
Source, SourceX, SourceY : range;
str : string;
begin
FExcel := CreateOleObject("Excel.Application");
FExcel.Workbooks.Add;
FExcel.Visible := true;
for i:= 0 to h do
for j:= 0 to w do
begin
if i=0 then FExcel.WorkBooks[1].WorkSheets[1].Range[CHR(65)+IntToStr(j+2),CHR(65)+IntToStr(j+2)].Value := j+1;
FExcel.WorkBooks[1].WorkSheets[1].Range[CHR(66+i)+IntToStr(j+2),CHR(66+i)+IntToStr(j+2)].Value := mas[i,j];
end;
FExcel.WorkBooks[1].WorkSheets[1].ChartObjects.Add(150, 10, 400, 300);
str := CHR(65)+"2:"+CHR(68)+IntToStr(w);
vrang := FExcel.Workbooks[1].Worksheets[1].Range[str];

НА ЭТОЙ СТРОЧКЕ ОН ЗАПИНАЕТСЯ
FExcel.ActiveChart.SeriesCollection.Add[vrang];

FExcel.ActiveChart.SeriesCollection.Item[1].XValues := vrang;
FExcel.ActiveChart.ChartType := xlXYScatterSmoothNoMarkers;

ЧЁ ТУТ НЕ ТАК?

← →
Игорь Шевченко (2002-10-18 13:59) [6]

А Excel.Application.9 не помогает в CreateOleObject ?

← →
Vikuksa (2002-10-18 14:02) [7]

Опять Ёксель Найти похожие ветки