Hallo,
ik wil automatisch een folder laten maken als deze nog niet bestaat in sharepoint en vervolgens een selecte van een werkblad opslaan als pdf naar deze map.
in windows explorer werkt mijn macro wel, maar met het adres naar sharepoint werkt dit niet meer.
kan iemand mij hier mee helpen?
voorbeeldcode:
*** = bedrijfsnaam; deze publiceer ik liever niet zomaar, en niemand kan bij deze link, het gaat meer om het principe.
---------------------------------------------------------------
------------------------------------------------
alvast bedankt
ik wil automatisch een folder laten maken als deze nog niet bestaat in sharepoint en vervolgens een selecte van een werkblad opslaan als pdf naar deze map.
in windows explorer werkt mijn macro wel, maar met het adres naar sharepoint werkt dit niet meer.
kan iemand mij hier mee helpen?
voorbeeldcode:
*** = bedrijfsnaam; deze publiceer ik liever niet zomaar, en niemand kan bij deze link, het gaat meer om het principe.
---------------------------------------------------------------
Code:
Sub ORDERBLAD()
Dim wsA As Worksheet
Dim wbA As Workbook
Dim FilePath As String
Dim FileName As String
Dim FileDir As String
Dim FileLoc As String
Set wbA = ActiveWorkbook
Set wsA = Sheets("ORDERBLAD")
FilePath = "https://sr***-my.sharepoint.com/personal/rk_sr**_nl/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Frk_sr-***_nl%2FDocuments%2FDocuments/"
FileDir = Blad2.Range("F3").Value
FileLoc = FilePath & FileDir
FileName = "ORDERBLAD"
'Sub Folder_Test()
If Dir(FileLoc, vbDirectory) <> FileDir Then
MkDir FileLoc
End If
FileName:=FileLoc & "" & FileName & ".pdf",
wsA.Range("H1:K50").ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=FilePath & "/" & FileName & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
alvast bedankt
Laatst bewerkt: