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

Вниз

Exell и база данных   Найти похожие ветки 

 
KidMan   (2002-09-30 22:24) [0]

Здравствуйте!
Скажите пожалуйста как связаться с каким нить документом екселя и заполнить определенные ячейки его данными... не важно какими... пусто то бум строки из БД или просто значения каких то переменных...?
Заранее благодарю Мастера!


 
KidMan   (2002-09-30 23:55) [1]

Ребят... правда горю... хелп плиииз!


 
Рыжик   (2002-10-01 08:50) [2]

http://www.afalinasoft.com/rus/tips/index.html


 
V-A-V   (2002-10-01 09:39) [3]

Попробуй библиотеку для работы с Wodr и Excel
http://vdovin-av.narod.ru/moduls.html


 
kkot   (2002-10-01 09:54) [4]

http://www.delphikingdom.com/hellowolrd/excelsm.htm


 
Lakich   (2002-10-01 13:11) [5]

//********сначала определим-установлен ли Ексел вообще на данной машине:
if not Form1.IsOLEObjectInstalled("Excel.Application") then
begin
Application.MessageBox("Excel не установлен,экспорт
невозможен !!!"+#13+"Обратитесь к
программистам.","Информация",0);
exit;
end;
//********
// Координаты левого верхнего угла области, в которую будем выводить данные
BeginCol := 1;
BeginRow := 15;
ColCount := 14;
C:=14;
// Создание Excel
XlAp := CreateOleObject("Excel.Application");
// Отключаем реакцию Excel на события, чтобы ускорить вывод информации
XlAp.Application.EnableEvents := false;
// Создаем Книгу (Workbook)
TempWay:=GetCurrentDir+"\Template\";//путь к шаблону
Workbook := XlAp.WorkBooks.Add(TempWay+"Имяфайла.xls");
// Размеры выводимого массива данных
RowCount := Table(или DataSource).RecordCount;
R:=odsGraphPrint.RecordCount;
// Создаем Вариантный Массив, который заполним выходными данными
TabGrid := VarArrayCreate([1, RowCount+1, 1, ColCount], varVariant);
Table.First;i:=0;//Заполняем массив данными
while not Table.Eof do
begin
Inc(i,1);
TabGrid[i,1]:=Table.FieldByName("имя поля").value;
.........
Table.Next;
end;

// Левая верхняя ячейка области, в которую будем выводить данные
Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
// Правая нижняя ячейка области, в которую будем выводить данные
Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount, BeginCol +
ColCount - 1];
// Область, в которую будем выводить данные
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
Range.Value :=TabGrid ;//сам вывод
// Делаем Excel видимым
XlAp.Visible := true;
TabGrid:=UnAssigned;//убираем из памяти массив

//сама функция для определения установлен ли Ексел
function TfmMain.IsOLEObjectInstalled(Name: String): boolean;
var
ClassID: TCLSID;
Rez : HRESULT;
begin
// Ищем CLSID OLE-объекта
Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID);

if Rez = S_OK then // Объект найден
Result := true
else
Result := false;
end;
//ОБЯЗАТЕЛЬНО Uses ComObj,ActiveX,Excel97!!!!!
ну и конечно
var XlAp, Workbook, Range, Cell1, Cell2, TabGrid,R,C : Variant;



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

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.031 c
6-31921
Turalyon
2002-08-09 11:36
2002.10.10
SMTP/POP3 Server


1-31779
Anar
2002-10-01 20:02
2002.10.10
Или я пишу эту программу или Borland отводит меня в психбольницу.


1-31840
PaRL
2002-09-28 16:58
2002.10.10
---|Ветка была без названия|---


3-31622
KIR
2002-09-19 10:23
2002.10.10
Вопрос по FastReport -> MasterHeader


4-32066
kerrik
2002-08-22 22:40
2002.10.10
Как управл. другим прилож., посылая ему комбинации сокр. клавиш?





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