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

Вниз

Открытие шаблона Microsoft Excel   Найти похожие ветки 

 
kingsoft ©   (2007-01-16 04:33) [0]

Доброго времени суток уважаемые мастера. Помогите пожалуйста с небольшой проблемой: Как сделать так, чтобы по нажатию на кнопку (Button), открывался уже готовый шаблон Microsoft Excel, из того или иного каталога жёсткого диска.


 
КиТаЯц ©   (2007-01-16 08:11) [1]

ShellExecute ?


 
pavel_guzhanov ©   (2007-01-16 09:41) [2]

XLApp:=CreateOleObject("Excel.Application");
 XLApp.WorkBooks.Open("c:\Blank.xls");


 
kingsoft ©   (2007-01-16 14:35) [3]


> pavel_guzhanov ©   (16.01.07 09:41) [2]
> XLApp:=CreateOleObject("Excel.Application");  XLApp.WorkBooks.
> Open("c:\Blank.xls");

Что то я не понял. Если можно то напишите пожалуйста полный код, и какие кампоненты нужно додавить на форму для работы, этого кода?


 
pavel_guzhanov ©   (2007-01-16 14:54) [4]

компонентов, кроме твоей кнопки, никаких.

uses comObj, Excel_TLB;

procedure TForm1.BInExcelClick(Sender: TObject);
var XLApp:Variant;
begin
  XLApp:=CreateOleObject("Excel.Application");
  XLApp.WorkBooks.Open("c:\Blank.xls");
  XLApp.Visible:=true;
end;



Если у тебя нет файла Excel_TLB.pas, то его нужно импортировать. Делается это так: Projects->Import Type Library, выбираешь в списке "Microsoft Excel 11.0 Object Library (Version 1.5)" и нажимаешь кнопку Create Unit. 11.0 и 1.5 - соответствуют MSExcel 2003, у других версий будут отличаться. Ну и, конечно, в корне диска С должен быть файл Blank.xls, это в том случае, если ты не хочешь ничего менять в приведенном примере.



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

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

Наверх




Память: 0.45 MB
Время: 0.043 c
15-1168878434
властелин колхоза
2007-01-15 19:27
2007.02.04
MessageBox() из сервиса и стили WinXP


2-1168871380
pound
2007-01-15 17:29
2007.02.04
сделать перетаскиваемую форму за любое место


15-1168879297
Ringo
2007-01-15 19:41
2007.02.04
А зачем ваще заканчивать институт?


15-1169034793
Ega23
2007-01-17 14:53
2007.02.04
Ну вот прошёл тестирование


2-1169130268
vitv
2007-01-18 17:24
2007.02.04
Построение запроса





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