necesito ayuda con VisualBasic y excel

rodrigogm78
06 de Abril del 2004
Me gustaría poder trabajar con Visual Basic conta excel pero no tengo ni idea de como hacerlo.
Me pregunto si teneis algún codigo que me sirva como ejemplo o si sabeis d alguna dirección o manual, tutorial...

phileas fogg
06 de Abril del 2004
Hola rodrigo lo acabo de poner en un mensaje de abajo pero si te sirve ahi te va:

Private Sub Command2_Click()
'Declaramos nuestra aplicación excel
Set mConn = New Connection
mConn.Open "DSN=TIP", "Rafael", ""
Dim ap As New Excel.Application
Dim rsexcel As Recordset
Set rsexcel = New Recordset
Dim noesn As Integer

'Creamos el documento
ap.Workbooks.Open "c:desarrollostarifariostarifario.xlt"
'Quitamos las alertas que provengan de EXCEL:
ap.DisplayAlerts = False
'Añadimos un libro a nuestro fichero
'ap.Workbooks(1).Worksheets.Add
'y seleccionamos dicho libro
ap.Worksheets(1).Select

noesn = 0
'ap.Cells(5, 1) = ap.Cells(5, 1) & ": Celular Performance"
ap.Cells(14, 7) = Left(Trim(Me.txtfolio), 4) & ":" & Right(Trim(Me.txtfolio), 2)
ap.Cells(14, 12) = Format(Date, "mmmm d, yyyy")
While noesn < Me.MSFlexGrid1.Rows
rsexcel.Open "select * from tarifario t,promo p where t.pq_id=p.pm_id and tf_foliosiact=" + "'" + Me.MSFlexGrid1.TextMatrix(noesn, 0) + "'", mConn, adOpenKeyset, adLockOptimistic
If Not rsexcel.EOF Then
ap.Cells((noesn + 17), 2) = Trim(rsexcel!tf_nombre)
ap.Cells((noesn + 17), 5) = Trim(rsexcel!tf_numero)
ap.Cells((noesn + 17), 7) = Trim(rsexcel!pm_clvcomision)
ap.Cells((noesn + 17), 11) = Trim(rsexcel!tf_fechaacti)
ap.Cells((noesn + 17), 13) = Trim(rsexcel!pm_plan) & " " & Trim(rsexcel!pm_tipo)
End If
rsexcel.Close
noesn = noesn + 1
Wend
'Me.TXTNOMBRE = "AA"
ap.Workbooks(1).SaveAs Me.TXTRUTA & Me.TXTNOMBRE & Me.TXTEXT
'Cerramos todo
ap.Workbooks.Close
ap.Quit
Set ap = Nothing

End Sub

Saludos