PDF Exporting Issue

[AP1988]

Good morning all,

After hours of grappling, I've got the macro I'm writing to do what I want bar one last bit.

With ActiveWorksheet          
        ChDir Sheet8.Range("F2").Value
        fname = Sheet8.Range("I2").Value
        ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fname, quality:=xlQualityStandard, _
            includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=False
            
        ActiveWorkbook.Close SaveChanges:=True
        
    MsgBox "PDF exported to " & Sheet8.Range("F2").Text
           
    End With

I can't see what's wrong with the code, it doesn't throw up any errors or debugging - but when the file saves, it doesn't save as a PDF, it just saves without a filetype.

Any clues?

 

[Tim_Excel_]

I've done some digging, as a previous project of mine also included saving PDF files.

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.Send
myURL = WinHttpReq.ResponseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.ResponseBody
    oStream.SaveToFile "" & sPath & "\TEMP\" & VR1 & ".pdf", 1
    oStream.Close
End If

I hope this helps you out in any way. I used this to pull files from a server and then save them as PDF without opening them, so no idea if this is applicable to your problem.

 

[John_w]

What is in Sheet8.Range("I2").Value? If it's the full path and required PDF file name, e.g. "C:\folder\path\example.pdf", then the code should work.

It looks like you can delete the With ActiveSheet and End With lines because no objects within that block start with "." to refer to ActiveSheet.