Como guardar en una celda especifica de excel 2003 especifica usando visual basic 6?

[lokoman]

Hola!!
Adapta este código al tuyo, lo he utilizado y me funciona:

Código vb:

Dim strUp As String
        Dim RegIns As Integer
 
        Set ExcelConn = New ADODB.Connection
 
        With ExcelConn
            .Provider = "MSDASQL"
            .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & Trim(Ruta_Archivo_Excel) & ".xls; ReadOnly=False;"
            ExcelConn.Open
        End With
 
        strUp = "UPDATE [NOMBRE_HOJA$] SET [CAMPO_DETALLE]='" & Trim(txtValor_Campo_Detalle.Text) & "' WHERE [CAMPO_CLAVE]='" & _
            Trim(txtValor_Campo_Clave.Text) & "'"
 
        ExcelConn.Execute strUp, RegIns
 
        If RegIns = 1 Then
            MsgBox "Registro actualizado.", vbInformation
        Else
            MsgBox "No se actualizó el registro." & vbNewLine & "Verificar datos.", vbExclamation
        End If
 
        ExcelConn.Close
        Set ExcelConn = Nothing
 

Nos cuentas!!