Macros do Excel no Delphi ?
18/02/2003
0
Galera bom dia !!!
Estou tendo uma certa dificuldade na hora de pegar comandos do visual basic gerado em macros do excel e convertelos para o delphi, pois de dentro do delphi eu gero planilhas no excel, e estou precisando usar o recurso de hiperlink mas nao consegui entender como montar este comando no delphi, por favor se alguem puder me ajudar ficarei muito grato, estou nisso a dois dias e já estou quase desistindo.
[b:dc43798c3a]Comando gerado na macro:[/b:dc43798c3a]
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=´´, subAddress:= _ ´Plan2!A1´
[b:dc43798c3a]Como devo montar no Delphi, tento assim e da erro no Anchor:[/b:dc43798c3a]
XLApp := CreateOleObject(´Excel.Application´);
XLApp.Visible := True;
XLApp.Workbooks.Open(´c:\fluxo\Modelo Fluxo de Caixa.xls´);
// XLApp.Workbooks[1].WorkSheets[1].Name := ´Fluxo de Caixa - Previsão´;
Sheet := XLApp.Workbooks[1].WorkSheets[´FluxoCaixa´];
Column := XLApp.Workbooks[1].WorkSheets[´FluxoCaixa´].Columns;
Sheet.Cells[05,02].Hyperlinks.Add(Anchor := Selection,
Address := ´´, SubAddress := ´Plan3!A1´);
Por favor me ajudem !!!
Marcelo Giratto
Estou tendo uma certa dificuldade na hora de pegar comandos do visual basic gerado em macros do excel e convertelos para o delphi, pois de dentro do delphi eu gero planilhas no excel, e estou precisando usar o recurso de hiperlink mas nao consegui entender como montar este comando no delphi, por favor se alguem puder me ajudar ficarei muito grato, estou nisso a dois dias e já estou quase desistindo.
[b:dc43798c3a]Comando gerado na macro:[/b:dc43798c3a]
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=´´, subAddress:= _ ´Plan2!A1´
[b:dc43798c3a]Como devo montar no Delphi, tento assim e da erro no Anchor:[/b:dc43798c3a]
XLApp := CreateOleObject(´Excel.Application´);
XLApp.Visible := True;
XLApp.Workbooks.Open(´c:\fluxo\Modelo Fluxo de Caixa.xls´);
// XLApp.Workbooks[1].WorkSheets[1].Name := ´Fluxo de Caixa - Previsão´;
Sheet := XLApp.Workbooks[1].WorkSheets[´FluxoCaixa´];
Column := XLApp.Workbooks[1].WorkSheets[´FluxoCaixa´].Columns;
Sheet.Cells[05,02].Hyperlinks.Add(Anchor := Selection,
Address := ´´, SubAddress := ´Plan3!A1´);
Por favor me ajudem !!!
Marcelo Giratto
Mgiratto
Curtir tópico
+ 0
Responder
Posts
18/02/2003
Anonymous
estou trabalhando com um documento no word que contém uma tabela, preciso inserir uma linha no meio desta tabela via delphi....
como faço, pode me ajudar....????
como faço, pode me ajudar....????
Responder
Clique aqui para fazer login e interagir na Comunidade :)