PDF opslaan op netwerkschijf via macro.

Status
Niet open voor verdere reacties.
C

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.

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

Schermafbeelding.png
 
Probeer het eerst rechtstreeks naar de server:
Code: 
activesheet.ExportAsFixedFormat 0, "servernaam\naamvoorPDF"

Als dat werkt, plaats dan je variabelen er tussen.
Code: 
activesheet.ExportAsFixedFormat 0, "servernaam\"&[COLOR=#3E3E3E]Range("E13") & Range("H38") & Range("D6") & Range("H38") & Range("E8")[/COLOR]
 
hoi HSV,

ik krijg t niet voor mekaar ik heb nu dit maar dan slaat ie het nog steeds niet op mijn netwerkschijf op.

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"

   
    FilePathName = Folderstring & Application.PathSeparator & FileName

   
    ActiveSheet.ExportAsFixedFormat 0, "smb://corkersten/Cor Kersten/cortest"
    
  
    MsgBox "You find the PDF file in this location : " & FilePathName
End Sub
••••ˇˇˇˇ
 
Ik heb geen Mac, dus kan niets voor je testen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan