Главная страница
    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.141 c
4-1147686278
klever
2006-05-15 13:44
2006.09.10
Как отобразить дату создания файла в формате dd/mm/yyyy


15-1156171909
imbalacedees
2006-08-21 18:51
2006.09.10
Картинки


9-1134888099
CrZarkon*
2005-12-18 09:41
2006.09.10
Milkshape


2-1156164174
XTD
2006-08-21 16:42
2006.09.10
Как создать дочернее окно?


3-1151580901
KygECHuK
2006-06-29 15:35
2006.09.10
Работа с ClientDataSet





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