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

← →
Виктор (2012-06-29 09:57) [0]

Тектс макроса (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?
Спасибо за ответ.

← →
AV © (2012-06-29 12:03) [1]

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;

← →
AV © (2012-06-29 12:07) [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;

← →
Виктор (2012-06-29 13:27) [3]

Спасибо все получилось

Delphi - Excel, автоматическое создание гиперссылки Найти похожие ветки