Delphi+Excel
Привет народ!
Есть трабл, кто знает жду ответа...
Soft: Delphi7,Office 2000,2003,XP
1.Как внести в ячейку формулу (так что бы она работала, пробывал копировать =A1+A2, после внесения формула определяется как текст)?
2.Как изменить свойства ячейки?
3.Как объеденить ячейки?
Все манипуляции производятся из Delphi...
Для ввода текста или числа ипользовал:
MyExcel.Worksheets[z].Cells[x,y].Value :=знач.
заранее благодарен...
Есть трабл, кто знает жду ответа...
Soft: Delphi7,Office 2000,2003,XP
1.Как внести в ячейку формулу (так что бы она работала, пробывал копировать =A1+A2, после внесения формула определяется как текст)?
2.Как изменить свойства ячейки?
3.Как объеденить ячейки?
Все манипуляции производятся из Delphi...
Для ввода текста или числа ипользовал:
MyExcel.Worksheets[z].Cells[x,y].Value :=знач.
заранее благодарен...
Цитата:
Originally posted by ProgSS
Привет народ!
Есть трабл, кто знает жду ответа...
Soft: Delphi7,Office 2000,2003,XP
1.Как внести в ячейку формулу (так что бы она работала, пробывал копировать =A1+A2, после внесения формула определяется как текст)?
2.Как изменить свойства ячейки?
3.Как объеденить ячейки?
Все манипуляции производятся из Delphi...
Для ввода текста или числа ипользовал:
MyExcel.Worksheets[z].Cells[x,y].Value :=знач.
заранее благодарен...
Привет народ!
Есть трабл, кто знает жду ответа...
Soft: Delphi7,Office 2000,2003,XP
1.Как внести в ячейку формулу (так что бы она работала, пробывал копировать =A1+A2, после внесения формула определяется как текст)?
2.Как изменить свойства ячейки?
3.Как объеденить ячейки?
Все манипуляции производятся из Delphi...
Для ввода текста или числа ипользовал:
MyExcel.Worksheets[z].Cells[x,y].Value :=знач.
заранее благодарен...
Все верно, ты вносишь формулу, как простой текст, формула вноситься:
ExcelApp.Range['A11', 'A11'].Formula := '=Sum(A1:A10)'; - к примеру
какие именно св-ва?
изменить выравнивание, например, можно так:
ExcelApp.Cells[2, 1].HorizontalAlignment := xlright;
Объединение ячеек:
ExcelApp.Range['B3:D3'].Mergecells := True;
:D
смайл влез без просьбы :)
смайл влез без просьбы :)
Цитата:
Originally posted by ProgSS
1.Как внести в ячейку формулу (так что бы она работала, пробывал копировать =A1+A2, после внесения формула определяется как текст)?
1.Как внести в ячейку формулу (так что бы она работала, пробывал копировать =A1+A2, после внесения формула определяется как текст)?
MyExcel.Worksheets[z].Cells[x,y].formula :='=A1+A2'
А почитать Ёкселевский хелп слабо?
Цитата:
Originally posted by wanja
MyExcel.Worksheets[z].Cells[x,y].formula :='=A1+A2'
А почитать Ёкселевский хелп слабо?
MyExcel.Worksheets[z].Cells[x,y].formula :='=A1+A2'
А почитать Ёкселевский хелп слабо?
Да не слабо, тока у меня его нет... Или в самом Excel'e?... Лично у меня в Delphi подобного хелпира нет...
Цитата:
Originally posted by Kai
Все верно, ты вносишь формулу, как простой текст, формула вноситься:
ExcelApp.Range['A11', 'A11'].Formula := '=Sum(A1:A10)'; - к примеру
какие именно св-ва?
изменить выравнивание, например, можно так:
ExcelApp.Cells[2, 1].HorizontalAlignment := xlright;
Объединение ячеек:
ExcelApp.Range['B3:D3'].Mergecells := True;
Все верно, ты вносишь формулу, как простой текст, формула вноситься:
ExcelApp.Range['A11', 'A11'].Formula := '=Sum(A1:A10)'; - к примеру
какие именно св-ва?
изменить выравнивание, например, можно так:
ExcelApp.Cells[2, 1].HorizontalAlignment := xlright;
Объединение ячеек:
ExcelApp.Range['B3:D3'].Mergecells := True;
На счёт смайла "весело", на счёт подсказки "Спасибо", на счёт "Какие свойства?" -"Рамка,Цвет фона и текста,Шрифт..."
Ну а вообще, я тебе благодарен... шли номер аськи на май (ProgSS@mail.ru) поболтаем...
Вот ещё пара вопросов...
1. Как создать новый лист в готовом файле (желательно с определёнными свойствами пр."Графики, Рисунки...")?
2. Как вообще создать чистый XML файл, а то копировать из папки в папку чёта не прилично...?
пока всё...
1. Как создать новый лист в готовом файле (желательно с определёнными свойствами пр."Графики, Рисунки...")?
2. Как вообще создать чистый XML файл, а то копировать из папки в папку чёта не прилично...?
пока всё...