Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

excel   Найти похожие ветки 

 
suslic   (2002-07-29 12:36) [0]

Хочу работать из своей программки с Excel файлом:
1) читать из него
2) писать в него.
Подскажите как сделать. А именно:
какую компоненту использовать для связи,
какую для отоброжения в моей программке,
как обращаться к ячейкам.

Спасибо.


 
BAY   (2002-07-29 12:53) [1]

Как вариант ранее связывание:
Компонента TExcelApplication
Затем:

var
WB : _WorkBook;
WS : _WorkSheet;
//Процедура открывает xls файл
Procedure OpenWB(N : String);
begin
If Assigned(FExcel.Excel) then
WB := FExcel.Excel.WorkBooks.Open(N,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
end;

//Переводит фокус на n-й лист
Procedure SelectWS(n : Integer);
begin
if Assigned(WB) then
WS := WB.WorkSheets.Get_Item(n) as _WorkSheet;
end;


begin
OpenWB(<имя файла>);
SelectWS(<Номер листа>);
//Теперь доступ к ячейкам чз WS.Cells.Item[i,j] :
WS.Cells.Item[i,j].Value := MyVar;
MyVar := WS.Cells.Item[i,j].Value;
end;


 
suslic   (2002-07-29 16:36) [2]

Спасибо, но:
1)при компиляции пишет
[Error] Unit1.pas(32): Undeclared identifier: "FExcel"

2)ему не нравиться адрес файла OpenWB(c:\aa\1.xls);
пишет
[Error] Unit1.pas(47): Undeclared identifier: "c"
[Error] Unit1.pas(47): "END" expected but ")" found

3)и как мне отобразить содержимое ячеек с A1 по c10.
Через какую компоненту отображать,
с помощью какой компоненты связать, и с чем связать???


 
koks   (2002-07-29 17:22) [3]

Зайди на сайт "Королевство Delphi". Читай там статьи "По волнам интеграции I , II , III). Там есть все ответы на твои вопросы.


 
3JIA9I CyKA   (2002-07-29 20:10) [4]

Можно так


uses ComObj;

procedure Phuck;
var EA, WB, WS : Variant;
begin
EA := CreateOleObject("Excel.Application");
WB := EA.WorkBooks.Add;
WS := WB.WorkSheets[1];
WS.Range["A1:bB4"].ColorIndex := 3;
WS.Cells[1,1].Value := 1.2345;
end;


 
ValWhite   (2002-08-04 15:35) [5]

megadethВот тут про Delphi&Excel: http://www.afalinasoft.com/rus/tips/index.html
достаточно хорошо и с примерами.


 
BAY   (2002-08-05 07:38) [6]

suslic (29.07.02 16:36)
1)FExcel - название формы, где лежит Excel : TExcelApplication
2)В кавычки взять надо: OpenWB("c:\aa\1.xls");

Удачи.



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
1-71131
MikeFW
2002-08-13 10:47
2002.08.22
Работа с Excel


3-70989
diww
2002-07-31 13:07
2002.08.22
как сделать запрос?


6-71277
StAL
2002-05-13 20:13
2002.08.22
Вопрос


1-71206
[BAD]Angel
2002-08-09 13:07
2002.08.22
Мастера, помогите!!!


4-71448
mcs
2002-06-16 15:33
2002.08.22
создать большой файл





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский