Connect Windowsserver naar Sharepoint

Status
Niet open voor verdere reacties.
H

HansFRAP

Gebruiker
Lid geworden
12 jul 2011
Berichten
205
Beschrijving
Ik ben als beheerder op een Windows-server aangelogd. Ik wil nu met VBA een bestand (.xlsm) op een SharePoint site opstarten.
Op de SharePoint Site is deze beheerder aan de groep eigenaren toegevoegd.
Bij openen van bestand op de SharePoint site (vanaf de Windows-server) ontvang ik een Error.

Met een Powershell script (gevonden) kan ik wel bestanden kopiëren.
Maw: ik heb hiermee toegang vanaf de Windows-server naar de SharePoint site

Vraag
Wie kan aangeven hoe PowerShell script om te zetten naar een VBA script?
Of moet dit op een geheel andere manier??

$fromfile = "http://samenwerken.nl/team/Gebruikers.txt"
$tofile = "E:\Data\Gebruikers.txt"
$webclient = New-Object System.Net.WebClient
$webclient.UseDefaultCredentials = $true
$webclient.DownloadFile($fromfile, $tofile)​
 
Als je zegt een error te krijgen is het wel zo handig deze er ook bij te vermelden.
Een Powershell script kan je niet omzetten naar VBA.
Je zal zelf dezelfde functionaliteit in VBA moeten maken.

Bijvoorbeeld zo:
http://stackoverflow.com/questions/...ad-a-file-using-vba-without-internet-explorer

Overigens is dat voorbeeld voor 64-bit Office.
Als je 32-bit Office gebruikt zal je de functie declaratie er op moeten aanpassen.
 
Laatst bewerkt:
edmoor dank voor je antwoord.
Als eerste je opmerking over Error. Klopt had erbij moeten staan. Het is error 52.
Ik test als eerste of ik file kan overhalen met:
Sub t()
Dim Aanwezig As String
Aanwezig = Dir("http://samenwerken.nl/team/Gebruikers.txt")
End Sub

ging fout. vervolgens met:
Sub t()
Dim Aanwezig As String
Aanwezig = Dir("\\samenwerken.nl\team\Gebruikers.txt")
End Sub

Gaat ook fout, levert zelfde error: 52

Ben dus opzoek hoe met VBA het PowerShell commando: $webclient.UseDefaultCredentials = $true naar een VBA commando kan omzetten.

[ verwijzing op site: https://officetricks.com/download-file-from-website-using-excel/ geeft ook fout melding (maar dan in tekst) ]
 
Oplossing gevonden door de SharePoint omgeving binnen InternetExplorer (in gebied: Lokaal Internet) als vertrouwde omgeving op te voeren. :)
 
Betekent dit dan dat de code

Code: 
Sub M_Hansfrap()
   msgbox Dir("\\samenwerken.nl\team\Gebruikers.txt")
End Sub

nu naar behoren werkt ?
 
Connect Windowsserver naar Sharepoin

SNB,

Ja connectie werkt nu zonder probleem. Is een koppeling in Intra-net en die blijken elkaar dus te vertrouwen. :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan