Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Delphi - Excel, автоматическое создание гиперссылки [D5]

Виктор © (2012-06-29 09:57:00)
Тектс макроса (VB) в Excel сделанный руками:

Range("A2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
" http://www.marinetraffic.com/ais/ru/shipdetails.aspx?MMSI=311017900", _
TextToDisplay:="DRAWSKO"

Вопрос? Как это записать в Delphi5 при выводе данных в таблицу Excel?
Спасибо за ответ.

Виктор (2012-06-29 13:27:00) [1]
Спасибо все получилось

AV (2012-06-29 12:07:00) [2]
да,

procedure CreateExcel2(var ExApp: Variant; EnableEvents: boolean = False; DisplayAlerts: boolean = False); overload;

procedure CreateExcel2(var ExApp, WorkBook: Variant; EnableEvents: boolean = False; DisplayAlerts: boolean = False); overload;

procedure CreateExcel2(var ExApp, WorkBook, ActiveSheet: Variant; DeleteOther: Boolean = true; EnableEvents: boolean = False; DisplayAlerts: boolean = False); overload;

AV (2012-06-29 12:03:00) [3]
CreateExcel2(ExcelApp2, WorkBook2, ActiveSheets2);
ExcelApp2.Range['A1','A1'].Select;
ExcelApp2.ActiveSheet.Hyperlinks.Add(
Anchor:=ExcelApp2.Selection,
Address:=' http://www.1.ru',
ScreenTip:='2',
TextToDisplay:='3'
);
ExcelApp2.Visible := True;

procedure CreateExcel2(var ExApp: Variant; EnableEvents: boolean = False; DisplayAlerts: boolean = False);
begin
ExApp := CreateOleObject('Excel.Application');
ExApp.EnableEvents := EnableEvents;
ExApp.DisplayAlerts := DisplayAlerts;
end;
procedure CreateExcel2(var ExApp, WorkBook: Variant; EnableEvents: boolean = False; DisplayAlerts: boolean = False);
begin
CreateExcel2(ExApp, EnableEvents, DisplayAlerts);
WorkBook := ExApp.WorkBooks.Add;
end;
procedure CreateExcel2(var ExApp, WorkBook, ActiveSheet: Variant; DeleteOther: Boolean = true; EnableEvents: boolean = False; DisplayAlerts: boolean = False);
var
i, n: Integer;
begin
CreateExcel2(ExApp, WorkBook, EnableEvents, DisplayAlerts);
if DeleteOther then
begin
n := WorkBook.WorkSheets.Count;
ActiveSheet := WorkBook.WorkSheets[1];
for i := n downto 2 do
WorkBook.WorkSheets[i].delete;
end else
begin
ActiveSheet := WorkBook.ActiveSheet;
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »