Stored header information

[Lauren279]

I know you can get cell information and have it as the header and footer via vba
But what I am after is the opposite, I have a worksheet that is generated via a program and most of the information is stored in the header and footer (date, time, report name etc etc) and I need to work with the header information to call the file when a user wants to save it as a PDF

Was wondering if it is possible if there is a way extract the information in the header that is already on the worksheet in a cell or be able to save the workbook as .leftheader.value kinda like the way u would use range(“c1”).value during the save as vba

 

[nemmi69]

Re: HELP with stored header information

I have this that extracts the info

Dim RLeftHeader As String
Dim RCenterHeader As String
Dim RightHeader As String
Dim RLeftFooter As String
Dim RCenterFooter As String
Dim RRightFooter As String






Sub ReadHeaderFooter()
    With ActiveSheet.PageSetup
        RLeftHeader = .LeftHeader
        RCenterHeader = .CenterHeader
        RightHeader = .RightHeader
        RLeftFooter = .LeftFooter
        RCenterFooter = .CenterFooter
        RRightFooter = .RightFooter
    End With
    Range("A1").Value = RLeftHeader
    Range("A2").Value = RCenterHeader
    Range("A3").Value = RRightHeader
    Range("A4").Value = RLeftFooter
    Range("A5").Value = RCenterFooter
    Range("A6").Value = RRightFooter
    
End Sub

I am looking at making a table that translates the fields such as &P to something meaningful.

 

[nemmi69]

Re: HELP with stored header information

Sorry, made a mistake with the right header variable

Dim RLeftHeader As String
Dim RCenterHeader As String
Dim RRightHeader As String
Dim RLeftFooter As String
Dim RCenterFooter As String
Dim RRightFooter As String


Sub ReadHeaderFooter()
    With ActiveSheet.PageSetup
        RLeftHeader = .LeftHeader
        RCenterHeader = .CenterHeader
        RRightHeader = .RightHeader
        RLeftFooter = .LeftFooter
        RCenterFooter = .CenterFooter
        RRightFooter = .RightFooter
    End With
    Range("A1").Value = RLeftHeader
    Range("A2").Value = RCenterHeader
    Range("A3").Value = RRightHeader
    Range("A4").Value = RLeftFooter
    Range("A5").Value = RCenterFooter
    Range("A6").Value = RRightFooter
    
End Sub