Visual Basic 6 é a linguagem de programação e ambiente de desenvolvimento integrado implantado pela Microsoft. A linguagem é popular por seu desenvolvimento rápido de aplicações e recursos de automação . Programadores VB6 são capazes de programar e automatizar uma série de programas da Microsoft, incluindo o Microsoft Office e , em particular, o Microsoft Excel. Os programadores são capazes de fazer referência a objetos relacionados com o Excel em seu código VB6, o que lhes permite automatizar , ler e escrever para o programa. Escrever código VB6 tem algum conhecimento de sua sintaxe de programação , uma vez que o conhecimento é adquirido , escrevendo para o Excel em seu código VB6 leva apenas alguns passos e linhas de código a seguir. Instruções
1

Abra o Visual Basic 6 e selecione " Standard EXE " da nova lista de projetos.
2

Vá para a barra de menu superior , clique em " Project" e em seguida clique em "Add Module. " Isto irá adicionar um módulo de código padrão para o seu projeto VB6.
3

Digite ou copie e cole o seguinte código no módulo , de acordo com Mike Rosenblum de Xtreme VB Talk.

Sub WriteToExcel ()

Dim oExcel Como Excel.Application '< - *** Referência a objeto Application Excel ***

Dim OWB Como Excel.Workbook ' < - - *** Referência para o Excel Workbook objeto ***

Dim OWS Como Excel.Worksheet '< - *** a referência a planilha Excel objeto ***

Set oExcel = Novo Excel.Application

oExcel.Visible = True

Dim oRng1 Como Excel.Range

Dim oRng2 Como Excel.Range

Definir OWB = oExcel.Workbooks . Adicione

Definir OWS = oWB.Worksheets ( "Sheet1" )

Definir oRng1 = oWS.Range ( "A1")

Definir oRng2 = oWS.Range ( " B2: E5 " )

oRng1.Value = " Olá Mundo "

Chame oRng1.Copy (Destination : = oRng2 )

oWB.SaveAs (" Olá World.xls ") ' < - Resultados salvos aqui

Cleanup :

Set OWS = Nothing

If Not OWB é nada Então oWB.Close

. Definir OWB = Nothing

oExcel.Quit

Set oExcel = Nothing

End Sub

O código faz referência a objetos do Microsoft Excel e , em seguida, usa essa conexão para abrir Microsoft Excel, em seguida, escrever a palavra "Olá Mundo" na célula A1 e intervalo B2 : E5 . Em seguida, ele salva o documento como " Olá World.xls " no seu computador e prossegue para fechar o Microsoft Excel.
4

Pressione " F5" para executar o programa .
< Br >