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, 28 de Julho de 2014




Top 5 membros

Últimos membros online

  • 1em 27/07 às 20:44
  • xKuRtem 27/07 às 15:13
  • JCanecaem 26/07 às 19:02

Últimos membros cadastrados



Capa do livro
Excel Avançado


Capa do livro
Programando em NCL


Capa do livro
Gestão de Tecnologia da Informação - Governança de Ti - Arquitetura e Alinhamento entre Sistemas de Informação e o Negócio





Hostnet

IMD