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