Save as pdf in a network folder and email as pdf

[de076348]

Hi All,

With help of previous threads, i've created below code.

I'm attempting to save a active worksheet into pdf in a network folder and email as pdf.

Also I'm not sure how to specify network address to save the file.

But I'm getting below error

Sub Export_shift()

Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range
 
Set xSht = ActiveSheet


xFolder = ActiveWorkbook.Sheets("Form").Range("l14").Text + ".pdf"

    'Save as PDF file
    xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
     
    'Create Outlook email
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmailObj = xOutlookObj.CreateItem(0)
    With xEmailObj
        .Display
        .To = "systems@"
        .CC = ActiveWorkbook.Sheets("Form").Range("l16")
        .Subject = ActiveWorkbook.Sheets("Form").Range("l14")
        .Attachments.Add xFolder
        If DisplayEmail = False Then
            '.Send
        End If
    End With

End Sub

 

[severynm]

Assuming that your error is ocurring on the ExportAsFixedFormatLine. To do any type of saveas or export, you need to specify the full path of the file, including the drive letter, folder path, filename, and extension. G: is a network drive for me, so something like G:\EMS\Training\Task List.xlsx will work. It's obviosuly easier if your drive is mapped to a letter but it's also possible to do if that's not the case.

Also make sure that xFolder evaluates to a valid file path with the correct folder delineations ("\") and no invalid characters.