Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.56 MB
Время: 0.035 c
1-92477
Magic
2002-10-17 13:19
2002.10.28
Типы потомки от стандартных


8-92624
~E~R~R~O~R~
2002-06-15 16:55
2002.10.28
Звук


1-92461
Romych
2002-10-17 09:16
2002.10.28
StringGrid- или чтот похожее


1-92498
k
2002-10-18 14:51
2002.10.28
Template


1-92509
arc
2002-10-18 16:17
2002.10.28
Компонент





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский