harryreece100
New Member
- Joined
- Dec 8, 2014
- Messages
- 7
The following macro. Is throwing an error. It is run time error '-2147024773 (8007007b)'.
This page describes how to use the Export fixed format command in excel 2007. I am using Excel 2013. It mentions and add in that is required. I do not have it in excel 2013 but i cannot find the PDF add in for my version of excel.
https://msdn.microsoft.com/en-us/library/bb238907(office.12).aspx
Sub createPDFfiles()
Dim ws As Worksheet
Dim Fname As String
For Each ws In ActiveWorkbook.Worksheets
'On Error Resume Next 'Continue if an error occurs
Fname = " T:\Data Analytics\Reports In-Progress\Allocation\2015\PDFTest\" & ws.Name
ws.ExportAsFixedFormat
Type:=xlTypePDF, _
Filename:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Next ws
End Sub
This page describes how to use the Export fixed format command in excel 2007. I am using Excel 2013. It mentions and add in that is required. I do not have it in excel 2013 but i cannot find the PDF add in for my version of excel.
https://msdn.microsoft.com/en-us/library/bb238907(office.12).aspx
Sub createPDFfiles()
Dim ws As Worksheet
Dim Fname As String
For Each ws In ActiveWorkbook.Worksheets
'On Error Resume Next 'Continue if an error occurs
Fname = " T:\Data Analytics\Reports In-Progress\Allocation\2015\PDFTest\" & ws.Name
ws.ExportAsFixedFormat
Type:=xlTypePDF, _
Filename:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Next ws
End Sub