|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.05.2013, 11:01 | #1 |
Регистрация: 22.05.2013
Сообщений: 6
|
Открытие Excel и Word
Нужно произвести открытие файла, в папке у меня и Word файлы, и Excel.
написал такой код: procedure TForm2.sBitBtn1Click(Sender: TObject); var MSWord:OLEvariant; Excel:OLEvariant; begin MsWord := CreateOleObject('Word.Application') ; Excel:= CreateOleObject('Excel.Application' ); if not MSWord.Documents.Open('C:\proc\File s\'+sDBEdit1.Text+'.doc') then Excel.Documents.Open('C:\proc\Files \'+sDBEdit1.Text+'.xls'); MsWord.Visible := True; Excel.Visible := True; end; посылает меня, но если я к примеру пишу : MsWord := CreateOleObject('Word.Application') ; MSWord.Documents.Open('C:\proc\File s\'+sDBEdit1.Text+'.doc') MsWord.Visible := True; то открытие производится только Worda. Подскажите или наведите на цель если к примеру нет Word файла то ищется Excel с таким же именем... Надеюсь понятно разъяснил. |
22.05.2013, 11:42 | #2 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Для чего Вам их нужно открыть? Если не для работы в нём через Delphi, то просто используйте ShellExecute
|
22.05.2013, 12:40 | #3 | ||
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Цитата:
Цитата:
Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
||
22.05.2013, 13:29 | #4 |
Регистрация: 22.05.2013
Сообщений: 6
|
if not
ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.doc'),nil, nil, SW_SHOWNORMAL)) then ShellExecute(Form2.Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.xls'),nil, nil, SW_SHOWNORMAL); не могу довести до совершенства, ошибка с операндом [Error] Unit22.pas(122): Type of expression must be BOOLEAN |
22.05.2013, 13:59 | #5 | |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Цитата:
|
|
22.05.2013, 13:59 | #6 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 01.12.2006
Сообщений: 514
|
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Цитата:
Пишу на Delphi за еду
|
|
22.05.2013, 19:54 | #7 |
Регистрация: 22.05.2013
Сообщений: 6
|
что то я всё равно разобраться не могу
|
23.05.2013, 08:37 | #8 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Ну сделай тогда что-то типа этого, раз сам думать не хочешь.
Код:
|
23.05.2013, 11:08 | #9 | |
Регистрация: 22.05.2013
Сообщений: 6
|
Цитата:
ShellExecute(Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.doc'),nil, nil, SW_SHOWNORMAL); ShellExecute(Handle, 'open', PChar('C:\proc\Files\'+sDBEdit1.Tex t+'.xls'),nil, nil, SW_SHOWNORMAL); тоже без ошибочно работает... |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Открытие Excel и Word | Mr. Джон | БД в Delphi | 1 | 22.05.2013 10:58 |
Открытие документа Word из Excel | ольгаг | Microsoft Office Excel | 3 | 19.09.2011 19:01 |
открытие шаблона Word из Excel | ольгаг | Microsoft Office Excel | 2 | 18.09.2011 21:16 |
ОТКРЫТИЕ WORD | пОЛЯрная | Помощь студентам | 2 | 22.11.2010 11:38 |
открытие Word | Влажимир | Общие вопросы Delphi | 7 | 14.04.2008 16:38 |