----------------------------------------> From: [EMAIL PROTECTED]> To: [EMAIL 
PROTECTED]> Subject: RE: [lista-delphi] Exportar p/ o Excel> Date: Mon, 22 Oct 
2007 13:47:59 +0000>>> Valeu Robson ... mas nao consegui usar ...>> segue o 
texto q retornou no VBA>> 
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _> 
DisplayAsIcon:=False, Left:=304.5, Top:=119.25, Width:=72, Height:=18 _> 
).Select>>> Como ficaria?>> vlw.>>> ----------------------------------------> 
Date: Mon, 22 Oct 2007 11:28:35 -0300> From: [EMAIL PROTECTED]> To: [EMAIL 
PROTECTED]> CC: [EMAIL PROTECTED]> Subject: Re: [lista-delphi] Exportar p/ o 
Excel>> No Excel, vá no menu ferramentas, macro, gravar nova macro e pressione 
o> botão "ok" da tela que aparece.>> Ai vc pega um campo de formulário, altera 
valor e formatação. Vá no menu> ferramentas, macro, parar gravação.>> Então vc 
vai novamente no menu ferramentas, macro, macros e pressiona o> botão editar da 
tela que aparece da macro que vc gravou.>> Pronto! Está lá o código que vc 
precisa passar para o Delphi. Isso> funciona pra qualquer coisa que vc precisar 
fazer no excel pelo Delphi.>> Magnun Oliveira escreveu:>> Com o seguinte 
codigo, eu exporto determinado valor pra uma planilha do Excel, na celula 
B5:>>>> begin>>>> Arquivo := 'C:\Arquivo.xls';>>>> planilha:= 
CreateoleObject('Excel.Application');>> planilha.Workbooks.Add(Arquivo);>> 
planilha.visible := true;>>>> planilha.Cells[5, 2] := 'Magnun';>>>> ...>>>>>> 
Porem eu preciso exportar alguns dados pra um arquivo do excel, que contem 
aqueles controles (VBA).>>>> Por ex: tem um controle q é uma caixa de texto 
nomeada: TextBox1.>>>> Como eu faço pra referenciar ele?>>>>>> Obrigado.>>>> 
_________________________________________________________________> Receba as 
últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! 
É GRÁTIS!> http://alertas.br.msn.com/

_________________________________________________________________
Conheça o Windows Live Spaces, a rede de relacionamentos conectada ao Messenger!
http://spaces.live.com/signup.aspx

Responder a