Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизОпять Ёксель Найти похожие ветки
← →
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]Игорь Шевченко © (18.10.02 13:59)
не-а
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.018 c