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

Вниз

Отркытие Excel файла сразу на нужном листе?   Найти похожие ветки 

 
Сергей Сергеевич   (2005-07-07 20:37) [0]

Добрый день всем.
Как открыть Excel файл на нужном листе через ShellExecute ?


 
Ученик   (2005-07-08 00:05) [1]

:-)


procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0, "open", "iexplore.exe", "file:///C:/test.xls#Лист2!A1", "", SW_SHOWMAXIMIZED)
end;


 
Сергей Сергеевич   (2005-07-08 00:26) [2]

Спасибо большое..А можно узнать откуда эта информация...


 
Ученик   (2005-07-08 07:18) [3]

>Сергей Сергеевич   (08.07.05 00:26) [2]
Excel-Вставить-Гиперссылка


 
Сергей Сергеевич   (2005-07-11 15:31) [4]

Вот так работает  ShellExecute(0, "open","iexplore.exe", "file:///C:/test.xls#Лист2!A1", "", SW_SHOWMAXIMIZED)
А так не работает
//  ShellExecute(0, "open", "EXCEL.exe",  "file:///C:/test.xls#Лист2!A2", "", SW_SHOWMAXIMIZED);

Хотя нужен второй случай...
В первом случае,когда открывать через эксплорер дополнительно вылазит диалог сохранения файла или загрузки из места хранения...:(


 
msguns ©   (2005-07-11 17:18) [5]

А почему именно через ShellExecute ?


 
menart ©   (2005-07-11 18:51) [6]

копай в сторону OleObject


 
Ученик   (2005-07-11 22:58) [7]

>Сергей Сергеевич   (11.07.05 15:31) [4]
 Вызов Excel.exe не получился, файл открывается на той странице, которая была активна при сохранении файла, поэтому первый ответ был с :-), если вызов через ShellExecute не принципиален, то можно использовать


uses
 ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
 Excel: Variant;
begin
 Excel := CreateOleObject("Excel.Application");
 Excel.WorkBooks.Open("c:\test.xls").Sheets["Лист2"].Select;
 Excel.Visible := True
end;




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

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

Наверх




Память: 0.48 MB
Время: 0.046 c
4-1119339646
ANB
2005-06-21 11:40
2005.08.21
Что передать в качестве окна для SetForegroundWindow ?


14-1122753871
syte_ser78
2005-07-31 00:04
2005.08.21
Что значит "инсталировать"?


1-1122971216
webpauk
2005-08-02 12:26
2005.08.21
Handle формы


14-1122377821
Knight
2005-07-26 15:37
2005.08.21
Астрономы есть?


6-1112850836
artemon
2005-04-07 09:13
2005.08.21
ServerSocket.Socket.Connections[] ...