AJUDA COMO ENVIAR UM ARQUIVO TXT PARA O EXCEL


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: AJUDA COMO ENVIAR UM ARQUIVO TXT PARA O EXCEL

Conexao

SÃO PAULO
SP - BRASIL

Postada em 30/07/2007 11:22 hs

OLA.

TENHO UM PROBLEMA GOSTARIA DE PODER ENVIAR UM TXT QUE ESTA NO MEU FORMULARIO DE VB 6 PARA UM DETERMINADO CAMPO DE UMA PLANILHA DE EXCEL

NO FORM TEM UMA

TXTNOME

E UM BOTÃO ENVIAR PARA PLANILIA DE EXCEL

PARA O CAMPO DA PLANILIA D 11

COMO EU PODERIA FAZER ISTO

FAV

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 30/07/2007 14:47 hs

Opa, segue abaixo a instrução:

Antes de mai snada, você deve referenciar a biblioteca do excel nas referencias.

Sub Envia_texto_excel()

Dim Ex as excel.application

Set EX=createobject("Excel.application")

Ex.Workbooks.Open Filename:= "C: este este.xls" 'caminho do arquivo

ex.range("D11").select

ex.activecell.value=txtnome.text

ex.ActiveWorkbook.Save

ex.ActiveWindow.Close

set ex=nothing

End Sub

conexao
não registrado

ENUNCIADA !

Postada em 30/07/2007 14:52 hs

OLA Fabio COMO VAI

NO CASO EU SOU NOVATO VOCE TERIA UM EXEMPLO PRATICO PARA ME PASSA POR

E-MAIL conexaocomvoce@hotmail.com

te agradeço muito

FAV

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 30/07/2007 15:19 hs

Estou sem o VB na minha máquina.

Se você estiver no visual basic tem o menu Projeto ou project se for em ingles, depos referencias ou references se estiver em inglês. irá aparecer uma lista com vários itens selecionados. Você deve ir pela barra de rolagem até o microsoft excel ......

Ai sim referenciou.

Ai é só colocar o que escrevi acima dentro do botão

Dim Ex as excel.application ' Ele prepara uma variável tipo excel project (um arquivo em excel)

Set EX=createobject("Excel.application") ' cria o objeto

Ex.Workbooks.Open Filename:= nomearquivo ' esta função abre o arquivo para editar do excel (onde está o nomearquivo você deve colocar o caminho inteiro do arquivo

ex.range("D11").select 'esta função seleciona a coluna d11 que vc queria

ex.activecell.value=txtnome.text ' esta instrução coloco o valor do txt na celula selecionada

ex.ActiveWorkbook.Save ' salva o arquivo do excel

ex.ActiveWindow.Close 'fecha o arquivo do excel

set ex=nothing ' tira referencia da variável

conexao
não registrado

ENUNCIADA !

Postada em 30/07/2007 15:33 hs

ola Fabio deu certo

teria como colocar mais um codigo para que o excel abra automatico quando acionar o botão gerar excel

washington
não registrado

Postada em 23/07/2008 09:05 hs

estou usando um aplicativo REFLECTION FOR UNIX onde tenho que pegar um dado em uma planilha do excel, fazer a consulta no aplicativo e retornar no excel uma string qualquer.
Entretanto ao executar a macro vejo o erro. type not defined....
Acredito que o problema seja com o tipo EXCEL.APPLICATION... porém já tentei ativar as bibliotecas disponíveis e o problema continua.
O que tenho que fazer? A biblioteca do excel não está completa??
Me ajudem por favor.
Obrigado

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR