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

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]

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

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.046 c