Inserindo valores no Microsoft Excel


Autor/fonte: Victor Dimitrov



Digg del.icio.us

Esta rotina é muito útil para aqueles que querem desenvolver cálculos constantes e também mostra como o Microsoft Excel é completamente integrado ao Visual Basic.

Para inserir o código abaixo, adicione a referencia apropriada, que está especificada logo abaixo:

"Microsof Excel X.0 Object Library"

No Form, adicione um Progress Bar para ver o status da transferencia de dados:

Dim a As String
Dim b As String
Dim c As String
Dim i As Integer
Dim excl As New Excel.Application
Dim pasta As New Excel.Workbook

Set xl = CreateObject("excel.application")
Set xlw = xl.Workbooks.Add

For i = 1 To 10
a = "A"
b = "B"
c = "C"
Range(a & i).Formula = Str(i)
Range(b & i).Formula = text1.Text
Range(c & i).Formula = text2.Text
ProgressBar1.Value = i
If i = 10 Then
ProgressBar1.Value = 100
End If
Next i

xlw.Close True, "c:\teste.xls"
ProgressBar1.Value = 0




Enviado por xKuRt em 27/09/2006 às 14:46


Avaliação

Esta publicação ainda não foi avaliada!


Avaliar:


A avaliação de publicações é restrita a membros cadastrados e logados no nosso site.



Comentários

Este artigo ainda não foi comentado ou o(s) comentário(s) que foi(ram) enviado(s) a ele ainda não foi(ram) publicado(s).


Envio de comentário:




  

Segunda, 20 de Outubro de 2014




Top 5 membros

Últimos membros online

Últimos membros cadastrados



Capa do livro
Começando A Progamar Em C++ - Para Leigos


Capa do livro
Informática para Concursos


Capa do livro
Introdução à Arquitetura de Mainframe e ao Sistema Operacional z/OS





Hostnet

IMD