VB E EXCEL

USUARIO.EXCLUIDOS 14/07/2005 05:13:25
#94048
Como Abrir uma Planilha do Excel e gravar uma variavel na célula h10 por exemplo?
TROVAM 14/07/2005 07:28:51
#94051
No VB vá em Projetos, Referencias e clique em Microsoft Excell ??.?? Object Library

E faça da seguinte maneira...

Sub GravaExcell()
Dim ObjExcell As Object

Set ObjExcell = CreateObject("Excell.Application")

With ObjExcell
.Visible = True 'Habilita Visualização do Excell
.Workbooks.Add 'Aciona um novo arquivo no Excell

.Range("H10").Select
.ActiveCell.FormulaR1C1 = "renato"
End With

Set ObjExcell = nothing
End Sub

Até mais...
JEAN.JEDSON 14/07/2005 08:02:11
#94056
TROVAM...
neste caso vc está criando um excel, e não está salvando, certo?

JUCA_KAMIKAZE
o arquivo já existe? é necessário salvar o arquivo novamente?
TROVAM 14/07/2005 12:35:27
#94134
Nesse caso está criando um novo arquivo, para salvar basta colocar a seguinte linha:

.ActiveWorkbook.SaveAs FileName:="C:\Medida.xls", FileFormat:=xlNormal, _
PassWord:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Para abrir um arquivo e escrever use a seguinte rotina:

Sub GravaExcell()
Dim ObjExcell As Object

Set ObjExcell = CreateObject("Excell.Application")

With ObjExcell
.Visible = True 'Habilita Visualização do Excell
. Workbooks.Open Filename:="C:\Temp\Teste.xls" 'Abre o arquivo

.Range("H10").Select 'Seleciona Célula H11
.ActiveCell.FormulaR1C1 = "renato" 'Escreve no Excell

.ActiveWorkbook.Save 'Salva as alterações
End With

Set ObjExcell = nothing
End Sub

Até mais...
Tópico encerrado , respostas não são mais permitidas
Voltar