PLANILHA DO EXCEL DENTRO DO VB

LUIZGS 04/12/2010 00:10:11
#358763
Boa noite, alguem tem um exemplo de como trabalhar com planilhas do excel dentro de um form do vb?

obrigado

Luiz
CHARLESTON10 04/12/2010 06:30:18
#358765 Resposta escolhida
Crie uma automação OLE com o Excel, conforme mostra o código a seguir:

Dim Excel As Object
Set Excel = CreateObject([Ô]Excel.Application.8[Ô])
With Excel
.Workbooks.Open filename:=[Ô]C:\caminho\arquivo.xls[Ô]
.Visible = True
.Sheets([Ô]Plan1[Ô]).Select
.Range([Ô]A1[Ô]).Select
MsgBox .activecell.Value
.activecell.Value = 20
End With

Acima, executamos os seguintes passos:

1. Selecionamos a planilha Plan1 e a célula A1;
2. Através de um MsgBox, mostramos o valor na tela da célula selecionada;
3. Em seguida, com a propriedade Value da célula, alteramos o conteúdo da célula ativa (no caso Plan1, A1).
CHARLESTON10 04/12/2010 07:41:13
#358767
Outro Exemplo
Primeiro Passo
Coloque uma referência como [ô]Microsoft Excel [ô]x[ô] Object Library <<
Copie esse codigo a um botão

  Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet


Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add

[ô]Codigo irá preencher a célula (2,2) com o texto[Ô] Olá [Ô],
[ô]E vai preencher a célula (1,3) com o texto [Ô]O Mundo[Ô]
xlWS.Cells(2, 2).Value = [Ô]Olá[Ô]
xlWS.Cells(1, 3).Value = [Ô]Mundo[Ô]

 [ô]A linha a seguir salva a planilha para [Ô]c: \ plan1.xls arquivo[Ô].
xlWS.SaveAS [Ô]c:\plan1.xls[Ô]

xlApp.Quit

[ô]Retira na memoria -> A memória livre
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing

End Sub


espero ter ajudado
LUIZGS 04/12/2010 12:30:14
#358780
bom dia Charleston10, muito obrigado pela ajuda.

Att

Luiz
Tópico encerrado , respostas não são mais permitidas
Voltar