[VBA] Dynamische Excel upload to sharepoint

[BSeB]

Ik zoek een manier waarmee ik een dynamisch gegenereerde excel file kan uploaden naar sharepoint.

Nu heb ik dus een excel opject:

code:

Dim ObjWb As excel.Workbook

Hierna gebeurd natuurlijk iets om hjet workbook te vullen.
Daarna wil ik het uploaden, liefst zonder eerst lokaal op te slaan. Nu heb ik gevonden dat als je hem opslaat je dit kan door de volgende functie:

code:

Function WebUploadFile(file, url, user, pass)
  Dim objXMLHTTP
  Dim objADOStream
  Dim arrbuffer
  Set objADOStream = CreateObject("ADODB.Stream")
  objADOStream.Open
  objADOStream.Type = 1
  objADOStream.LoadFromFile file
  arrbuffer = objADOStream.Read()
  Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
  objXMLHTTP.setOption(2) = SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
  objXMLHTTP.Open "PUT", url, False, user, pass
  objXMLHTTP.send arrbuffer
End Function

Zoals je kan zien, zie je dat hier een stream wordt gecreerd, liefst wil ik nu het workbook ier rechstreeks in laden. Hoe kan ik dit bereiken?
Heb hier en daar wat gevonden, maar dit werkt niet:

http://community.infragistics.com/forums/p/8775/34410.aspx

[BSeB]

Niemand die me hiermee zou kunnen/willen helpen?

[pedorus]

Mja, ik snap die code niet echt in deze context. Kijk eens naar dit. Excel heeft gewoon aparte methodes voor (can)check[in|out], en Sharepoints kan daarnaast als network gemound worden, dus ik snap niet helemaal waarom je überhaupt iets met http wil.

[BSeB]

Hier heb ik naar gekeken, alleen zit ik met 2 problemen:
- De server is HTTPS;
- Credentials moeten via de code geaccepteerd worden;
- Mappen van de sharepoint in windows 7 lukt niet en in sharepoitn krijg ik de error dat webdav er niet is:
"Explorer View requires Internet Explorer 5.0 or greater and Web Folders."
Hiervoor heb ik al naar oplossingen gezocht.

Misschien dat je me dan naar een betere optie kan redirecten (sowieso zou ik liever via een checkin/checkout werken). Kan hiervoor nergens goede info vinden.