Converter VB em Delphi (Rotina do Excel)
18/02/2003
0
Galera boa tarde !!! H E L P
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:de17d9d141]Comando gerado na macro:[/b:de17d9d141]
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=´´, subAddress:= _ ´Plan2!A1´
[b:de17d9d141]Como devo montar no Delphi, tento assim e da erro no Anchor: [/b:de17d9d141]
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:de17d9d141]Comando gerado na macro:[/b:de17d9d141]
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=´´, subAddress:= _ ´Plan2!A1´
[b:de17d9d141]Como devo montar no Delphi, tento assim e da erro no Anchor: [/b:de17d9d141]
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
Clique aqui para fazer login e interagir na Comunidade :)