Visual Basic para Aplicaciones - Abrir Hoja Excel.....

Q TAL A TODOS....

MI DUDA ES QUE QUIERO ABRI UNA HOJA ESPECIFICA DE UN LIBRO DE EXCEL, PARA Q PUEDA ENVIAR DATOS DESDE VB A ESA HOJA PERO Q SEA LA Q YO QUIERO COMO LE HAGO. ABRIR EL ARCHIVO LA LO HACE Y ENVIO DATOS ESO LO HACE BIEN PERO NO A LA HOJA Q YO QUIERO.

SI ALGUIEN ME PUEDE AYUDAR, LE AGRADECERE MUCHO.

GRACIAS. ADIO.

Usa Worksheets(Indice), donde indice es el numero de la hoja donde quieres escribir, ve el siguiente ejemplo desde VB

Saludos...

Private Sub cmdExcel3_Click()
Dim objExcel As Object
Dim objLibro As Object
Dim strRuta As String

On Error Resume Next

Set objExcel = GetObject(, "Excel.Application")
If Err.Number = 429 Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
End If

'Ruta de un archivo de Excel existente
strRuta = App.Path & "\Prueba.xls"

'Verificamos que exista el archivo
If Len(Dir(strRuta)) > 0 Then
'Abrimos un libro existente
Set objLibro = objExcel.WorkBooks.Open(strRuta)
'Escribimos en la celda A1 de la primer hoja
objLibro.C1).Range("A1").Value = "Esto lo puse desde VB"
'Guardamos el libro
objLibro.Save
objLibro.Close
Else
MsgBox "El archivo no existe"
End If

objExcel.Quit
Set objLibro = Nothing
Set objExcel = Nothing

End Sub