CorKersten
Gebruiker
- Lid geworden
- 2 feb 2018
- Berichten
- 12
ik heb een macro om een excel sheet, als PDF op te slaan,
maar deze wordt nu op het bureaublad in de map 'PDFSaveFolder' op geslagen.
Nu wil ik m op mijn netwerkschijf opslaan maar krijg de macro niet werkend.
ik werk met excel 2016 op een iMac.
onderstaand mijn macro code en in de bijlage een screenshot van de directory waar de macro naar toe zou moeten verwijzen.
hier is de screenshot
maar deze wordt nu op het bureaublad in de map 'PDFSaveFolder' op geslagen.
Nu wil ik m op mijn netwerkschijf opslaan maar krijg de macro niet werkend.
ik werk met excel 2016 op een iMac.
onderstaand mijn macro code en in de bijlage een screenshot van de directory waar de macro naar toe zou moeten verwijzen.
Code:
Sub SaveActiveSheetAsPDFInMacExcel2016()
Dim FileName As String
Dim FolderName As String
Dim Folderstring As String
Dim FilePathName As String
ActiveSheet.PageSetup.Orientation = ActiveSheet.PageSetup.Orientation
FolderName = "PDFSaveFolder"
FileName = " " & Range("E13") & Range("H38") & Range("D6") & Range("H38") & Range("E8") & ".pdf"
Folderstring = CreateFolderinMacOffice2016(NameFolder:=FolderName)
FilePathName = Folderstring & Application.PathSeparator & FileName
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
FilePathName, Quality:=xlQualityMinimum, _
IncludeDocProperties:=True, IgnorePrintAreas:=False
MsgBox "You find the PDF file in this location : " & FilePathName
End Sub
Function CreateFolderinMacOffice2016(NameFolder As String) As String
Dim OfficeFolder As String
Dim PathToFolder As String
Dim TestStr As String
OfficeFolder = MacScript("return POSIX path of (path to desktop folder) as string")
OfficeFolder = Replace(OfficeFolder, "/Desktop", "") & _
"Desktop/"
PathToFolder = OfficeFolder & NameFolder
On Error Resume Next
TestStr = Dir(PathToFolder, vbDirectory)
On Error GoTo 0
If TestStr = vbNullString Then
MkDir PathToFolder
End If
CreateFolderinMacOffice2016 = PathToFolder
End Function
hier is de screenshot