vba - visual - Cargar archivo con ADODB para Web-DAV "no se puede encontrar ningún objeto o datos de acuerdo con el nombre..."

adodb.recordset vba excel

Question

Tengo una aplicación MS Access 2007 VBA que se ejecuta en Windows 7. Una función crucial es cargar archivos en un servidor WebDAV. El siguiente código funciona perfectamente en una PC, pero falla en otras PC (y sí, cada una está configurada de la misma manera).

Aquí hay una traducción de translate.google.com del mensaje de error Norwegion que aparece cuando falla en las otras PC:

Run-time error ''-2147217895 (80040e19)'': can not find any objects or data in accordance with the name, range or selection criteria within the scope of this operation

Falla en esta línea de código:

objRecord.Open fil, "URL=" & URL, adModeReadWrite, adCreateOverwrite, adDelayFetchStream, sUsername, sPwd

El código de función completo está debajo. En realidad, es solo la reutilización del código en http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/26b8e905-33d0-438b-98a7-bb69053b931e/ . ¡Cualquier sugerencia sería muy apreciada!

Function DAVPUT(ByVal URL As String, ByVal fil As String) As Boolean ''
    Dim sUsername As String
    Dim sPwd As String
    sUsername = "[email protected]"
    sPwd = "dummy"

    Dim objRecord As New ADODB.Record
    Dim objStream As New ADODB.Stream

    objRecord.Open fil, "URL=" & URL, adModeReadWrite, adCreateOverwrite, adDelayFetchStream, sUsername, sPwd
    objStream.Type = adTypeBinary
    objStream.Open objRecord, adModeWrite, adOpenStreamFromRecord
    objStream.LoadFromFile fil 
    objStream.Flush
    DoEvents
    objStream.close
    objRecord.close

    DAVPUT = True

End Function

Answer 1

Esta publicación sugiere que "compares las versiones de MDAC local y remota". Me doy cuenta de que ofrezco una respuesta mínima e inexperta, pero como no hay otros, aquí está.