11.09.2012, 22:40 | #21 (permalink) |
Member
Регистрация: 08.09.2012
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Остался последний вопрос как сделать так, что бы пользователь сам мог выбрать файл с которым работает программа? Ну знаю что нужно вставить OpenDialog затем кнопку "открыть" затем при нажатии на кнопку открывался файл, как-то так: Код:
procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Execute; end; Код:
unit new; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, comobj, StdCtrls, Excel_TLB, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; excel: variant; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin Excel:= CreateOleObject('Excel.Application'); try Excel.workbooks.open(GetCurrentDir() + '\book2.xlsx'); try Тело excel.visible := true; finally Excel.ActiveWorkbook.Close; end; finally end; end; end. |
12.09.2012, 00:02 | #22 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
Можно сделать что бы пользователь вписывал путь к файлу напрямую в edit (но это долго)
или изучи свойства opendialog'а из сайта который я тебе давал и сразу поймешь что и как. хороший программист должен додумываться сам как и что. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|