Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Где ошибка? 


QWest   (2002-04-02 17:49) [0]

Короче, братва, помогите найти ошибку. Задача: нужно чтобы при нажатии кнопки открывалась уже ранее созданная книга Excel.Я где - то выкопал такой код:
procedure TForm1.Button2Click(Sender: TObject);
var
Workbook: OLEVariant;
Excel: Excel97.TExcelApplication;
begin
Workbook := Excel.WorkBooks.Open("C:\BD_Excel.xls");
end;
Час уже с ним бьюсь,ничего не могу сним сделать.Кто знает в чем дело, или может предложить другой способ очень прошу помочь.



olookin   (2002-04-02 17:55) [1]

Можно так (хоть и не очень, но зато без Variantов):

var disks: array [0..5] of Char = ("A","B","C","D","E","F");
var c,d,dr: array [0..255] of Char;
i: integer;
s: string;

s:="C:\1.xls"; StrPCopy(c,s);
for i:=0 to Length(disks)-1 do begin
s:=disks[i]+":\Program Files\Microsoft Office\Office\Excel.exe";
if FileExists(s) then begin StrPCopy(d,s);
s:=disks[i]+":\Program Files\Microsoft Office\Office\"; StrPCopy(dr,s);
ShellExecute(ModelWindow.handle,"open",d,c,dr,SW_RESTORE); break; end; end;

Все это делает открывает ранее сохраненный Excel-файл.



olookin   (2002-04-02 18:03) [2]

А вообще то надо делать, видимо, так:

var ExcelApplication: Variant;

ExcelApplication:=CreateOleObject("Excel.Application");
ExcelApplication.Application.Workbooks.Open("C:1.xls");

а после работы

ExcelApplication.Quit; ExcelApplication:=0;



QWest   (2002-04-03 16:02) [3]

Я тут отлучился.Ооо! Да тут мне ответов понаписали.Спасибо olookin"у за помощь, сейчас попробую этот код.



QWest   (2002-04-03 16:14) [4]

Уавжаемые,попробовал я было сунуться с нижним кодом, дак меня комп так обложил, что я с ним чуть было не подрался.Короче вопил чета типа: Variant не является отдельным объектом, вообщем бред какой-то... Сам я в этом деле мало смыслю, т. к. в Делфях только 10 дней провел (и то не полных), так что приму любую помощь и предложения по указанному выше вопросу.Заранее благодарен...



QWest   (2002-04-03 16:42) [5]

Ауууууу!!!!Вы где, блин, все??!!!



Digitman   (2002-04-03 18:49) [6]

>QWest
Уймись и не шуми.
Не "вопил чета типа", а - приведи дословно сообщение, которое получаешь при попытке скомпилировать (или выполнить все же ?) этот код




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-46371           Biorobot              2002-04-01 18:54  2002.04.15  
как сделать: неактив. прога учитывала бы нажатие клавиш?


3-46292           ol                    2002-03-26 12:50  2002.04.15  
Как в IB зделать select на select


1-46312           Solod                 2002-04-03 05:01  2002.04.15  
Вопрос о размере раб. стола на разных компах.


1-46425           Dimonka               2002-04-02 18:24  2002.04.15  
Компонент TTreeView


7-46527           Fellomena             2002-01-18 14:06  2002.04.15  
API, System resources and ******* (inside)