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

Вниз

закрепленее - в Excel   Найти похожие ветки 

 
Chort ©   (2006-08-17 11:02) [0]

Подскажите как при программном экспорте Access в Excel сделать для первых двух строк таблицы Excel закрепленее - в Excel это делается так :
Полностью выделяется третья строка и нажимаем Окно- Закрепить области. Помогите кто знает.
Вот код
procedure TForm1.Excel1Click(Sender: TObject);

var
XLApp,Sheet,Colum:Variant;
index,i:Integer;
begin
XLApp:= CreateOleObject("Excel.Application");
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:="Экспорт";
Colum:=XLApp.Workbooks[1].WorkSheets["Экспорт"].Columns;
Colum.Columns[1].ColumnWidth:=10;
Colum.Columns[2].ColumnWidth:=20;
Colum.Columns[3].ColumnWidth:=20;
Colum.Columns[4].ColumnWidth:=20;
Colum.Columns[5].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets["Экспорт"].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=15;
Sheet:=XLApp.Workbooks[1].WorkSheets["Экспорт"];
Sheet.Cells[1,4]:="экспорт базы данных ";
Sheet.Cells[2,1]:="Номер";
Sheet.Cells[2,2]:="Название программы";
Sheet.Cells[2,3]:="Название файла";
Sheet.Cells[2,4]:="Производитель";
Sheet.Cells[2,5]:="Язык";
index:=3;
DataModule1.BookTable.First;
for i:=0 to DataModule1.BookTable.RecordCount-1 do
begin
Sheet.Cells[index,1]:=DataModule1.BookTable.Fields.Fields[0].AsString;
Sheet.Cells[index,2]:=DataModule1.BookTable.Fields.Fields[1].AsString;
Sheet.Cells[index,3]:=DataModule1.BookTable.Fields.Fields[2].AsString;
Sheet.Cells[index,4]:=DataModule1.BookTable.Fields.Fields[3].AsString;
Sheet.Cells[index,5]:=DataModule1.BookTable.Fields.Fields[4].AsString;
Inc(index);
DataModule1.BookTable.Next;
 end;


 
Сергей М. ©   (2006-08-17 11:04) [1]

Запиши соотв.макрос и подсмотри как в нем это делается.


 
umbra ©   (2006-08-17 11:40) [2]

var
 mywindow: variant;
{..................................}
mywindow := XLApp.Workbooks[1].Windows[1];
mywindow.SplitRows := 2;
mywindow.FreezePanes := true;
mywindow := Unassigned;
{..................................}


 
Chort ©   (2006-08-17 11:49) [3]

to umbra
Спасибо. Компилится нормально. при запуске экспорта выдает ошибку Method "SplitRows" not suported by automation object. Вот такая петрушка.


 
umbra ©   (2006-08-17 12:40) [4]

очепятка вышла - SplitRow надо. Но можно было и в справку посмотреть.


 
Chort ©   (2006-08-17 17:25) [5]

to umbra
Точно. Спасибо! Если не секрет, то откуда вы это знаете?


 
umbra ©   (2006-08-17 17:36) [6]

1) из справки экселевской
2) записываю макросы в экселе, копирую в буфер, вставляю в код на делфи,
   заменяю в коллекциях все круглые скобки на квадратные. Обычно работает :)


 
Chort ©   (2006-08-17 19:38) [7]

Если можно со второго пункта подробнее, уж очень интересно.


 
umbra ©   (2006-08-17 20:10) [8]

открываете эксель, выбираете в меню "Сервис\макрос\Начать запись", выполняете нужные действия, жмете "Прекратить запись", жмете Alt-F11 - открывается редактор вижуалбейсика, открываете Модуль1 - и читаете код для операций, которые вы выполнили. В код на делфи переносите все названия нужных методов и свойств


 
Chort ©   (2006-08-17 23:03) [9]

to umbra
Спасибо!Немного разобрался.



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

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

Наверх





Память: 0.46 MB
Время: 0.05 c
3-1151502224
antoxa2005
2006-06-28 17:43
2006.09.10
Вопросик. Сколько клиентов можно подк MS SQL 2005 Server Express


2-1156253429
AlexanderMS
2006-08-22 17:30
2006.09.10
Зачем нужен const?


1-1153926632
Grant
2006-07-26 19:10
2006.09.10
Время жизни объекта.


1-1153486310
Untermensch
2006-07-21 16:51
2006.09.10
А есть ли встроенные в Delphi функции шифрования, и где их искать


15-1155749638
VictorT
2006-08-16 21:33
2006.09.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
Английский Французский Немецкий Итальянский Португальский Русский Испанский