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

[Clarck]

Hola buen dia mi problema es que debo guardar datos en excel pero en campos especificos es decir tengo un numero en una columna que puedo usar como llave para cada registro y quiero guardar en otras dos columnas otros datos, creen que es posible de ser asi alguien me puede ayudar con un enlace o un ejemplo.. Gracias

[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!!

[Clarck]

Hola Lokoman gracias por reponder.
He intentado con el codigo que compartiste.
Mi consulta queda asi:

Código vb:

strUp = "UPDATE [Inventario$] SET [Q]='" & Trim(cambio.Text) & "' WHERE [O]='" & _
            Trim(2300) & "'"
 

he asumido que en campo detalle y campo clave son las columnas de excel con las que deseo trabajar o manipular, o me equivoco.

En fin al ejecutar el codigo me da el siguiente error, me falta algun parametro?

error '-2147217904(80040e10)' en ejecucion:
[Microsoft][ODBC Excel Driver] Too few parameters.Expected 2

[Clarck]

Al fin quedo, la solucion quedo asi:

Código vb:

strUp = "UPDATE [Control$] SET [f28]='" & cambio & "' WHERE [f15]=" & wor & " "
ExcelConn.Execute strUp, RegIns
 

donde f28 y f15 son las columnas p y ab respectivamente, donde se encuentran mis datos a comparar y cambiar...

Gracias..

[lokoman]