Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

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

 
edicon ©   (2003-05-17 00:34) [0]

Привет всем! Работаю с Excel.
var
OVStr,
xlApp:OleVariant;
begin
xlApp:=CreateOleObject("Excel.Application"); //соединяюсь
OVStr:="с:\1.xls";
xlApp.WorkBooks.Open(OVStr); // открываю нужный шаблон
xlApp.Cells[3,1].value:=’Привет!’; // заполняю текстом ячейки
OVStr:="с:\3.xls";
xlApp.ActiveWorkBook.SaveAs(OVStr); //Сохраняю получившийся документ

Но мне надо еще заполнить массивом числовых данных нужный диапазон
a2 := VarArrayCreate([0,(R_M),0,(C-1)],varSingle);
это я делаю так
Worksheet.Range["A1",Worksheet.Cells.Item[R_M,C]].Value :=a2;
Но получается это у меня только при создании нового документа т.е.
XLApp.Connect;
XLApp.WorkBooks.Add(xlWBatWorkSheet,0);
WorkBk := XLApp.WorkBooks.Item[IIndex];
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;

А вот как мне сконнектить ExcelApplication с созданным мной файлом 3.xls для заполнения?

xlApp.Quit; // отключаюсь

P.S. Еще один глупый вопрос: вот все говорят что команда по работе с ExcelApplication можно посмотреть в справке VBA. А где там конкретно про это сказано и как это вывести?

Большое СПАСИБО всем откликнувшимся!


 
edicon ©   (2003-05-18 00:35) [1]

неужели никто не знает как их связать???????


 
edicon ©   (2003-05-18 02:05) [2]

Уважаемые мастера ПОМОГИТЕ!!! очень надо!
Спасибо.


 
Романов Р.В. ©   (2003-05-18 09:19) [3]

WorkBk := xlApp.WorkBooks.Open(OVStr);


 
Palladin ©   (2003-05-18 10:24) [4]

люди спят в 2 ночи, а ты тут пустоту вопрошаешь :)


> команда по работе с ExcelApplication можно посмотреть в
> справке VBA.

Самое простое, записать макрос и посмотреть его текст, тогда точно узнаешь что писать...



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

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-95099
Тих
2003-05-11 01:40
2003.05.29
Не могу поместить иконку в трей.


3-94708
Инна
2003-05-07 17:01
2003.05.29
Ошибка


6-94981
Provodnick
2003-02-12 09:00
2003.05.29
Как узнать IP-адрес компьютера в ЛС.


14-95033
Manulo
2003-05-08 13:26
2003.05.29
Пожарным слава!


1-94953
Disa
2003-05-18 09:14
2003.05.29
TImage