Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c
14-1122368337
Calm
2005-07-26 12:58
2005.08.21
Хороший(!) просмотрщик DJVU. Где взять?


5-1093435790
velial
2004-08-25 16:09
2005.08.21
Обращение к Delphi


11-1105031213
Fanny
2005-01-06 20:06
2005.08.21
Права на запись в реестр


14-1122669555
Kerk
2005-07-30 00:39
2005.08.21
Что-то старею.. всего 01-45, а я уже спать хочу...


8-1113616597
Ivanov
2005-04-16 05:56
2005.08.21
Image из .pak - файла




   Наверх