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

Вниз

Открытие шаблона 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.044 c
15-1168733277
_silver
2007-01-14 03:07
2007.02.04
Планируется новая версия CDM


15-1168891620
DemonP
2007-01-15 23:07
2007.02.04
Инсталляция BDE


15-1168972025
AFKer
2007-01-16 21:27
2007.02.04
И это есть тот самый Delphimaster который я знал???


15-1168618008
Ega23
2007-01-12 19:06
2007.02.04
Товарищи ораклисты!


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