----------------------------------------> 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