shunaider
10-19-2017, 01:34 AM
Dears,
We have failed to connect the WebDav(Window Server 2008R2) with ADODB in Win 10 + Excel 2016(32-bit).
However, it works properly in Win 7 + Excel 2010 / 2013 (32-bit).
We have already installed Webfldrs-KB907306-ENU but seems not working.
Followings are the functions captured in the VBA. Both methods failed.
------------------------------------------------------------
Method 1
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Provider = "MSDAIPP.DSO"
conn.Mode = adModeReadWrite
Call conn.Open(strPath, gstrWebDavUsr, gstrWebDavPwd)
------------------------------------------------------------
Method 2
Dim objRecord As New ADODB.Record
Dim objStream As New ADODB.Stream
objRecord.Open filePathTo, , adModeReadWrite, adCreateOverwrite, adOpenRecordUnspecified, gstrWebDavUsr, gstrWebDavPwd
objRecord.Close
objStream.Type = adTypeBinary
objStream.Open "URL=" & filePathTo, adModeReadWrite, adOpenRecordUnspecified, gstrWebDavUsr, gstrWebDavPwd
objStream.LoadFromFile filePathFrom
objStream.Close
Set objRecord = Nothing
Set objStream = Nothing
------------------------------------------------------------
Thank you for your help.
We have failed to connect the WebDav(Window Server 2008R2) with ADODB in Win 10 + Excel 2016(32-bit).
However, it works properly in Win 7 + Excel 2010 / 2013 (32-bit).
We have already installed Webfldrs-KB907306-ENU but seems not working.
Followings are the functions captured in the VBA. Both methods failed.
------------------------------------------------------------
Method 1
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Provider = "MSDAIPP.DSO"
conn.Mode = adModeReadWrite
Call conn.Open(strPath, gstrWebDavUsr, gstrWebDavPwd)
------------------------------------------------------------
Method 2
Dim objRecord As New ADODB.Record
Dim objStream As New ADODB.Stream
objRecord.Open filePathTo, , adModeReadWrite, adCreateOverwrite, adOpenRecordUnspecified, gstrWebDavUsr, gstrWebDavPwd
objRecord.Close
objStream.Type = adTypeBinary
objStream.Open "URL=" & filePathTo, adModeReadWrite, adOpenRecordUnspecified, gstrWebDavUsr, gstrWebDavPwd
objStream.LoadFromFile filePathFrom
objStream.Close
Set objRecord = Nothing
Set objStream = Nothing
------------------------------------------------------------
Thank you for your help.