How to add Header and Footer in excel with vb net

Question

I try to create a little software to fill some Excel cells as I study VB.NET. Although I could discover a tonne of material and this is not very difficult, I'm having trouble inserting an image into the Excel document's header. I reviewed every paper on the "Microsoft.Office.Interop.Excel" webpage on the Microsoft website, but I was unsuccessful.

How can I add a Header?

Answer 1

This code will work:

Imports Microsoft.Office.Interop

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
    'open excel document
    Dim App1 As Excel.Application = New Excel.Application
    'Start Excel and get Application object.
    App1 = CreateObject("Excel.Application")
    App1.Visible = True
    'connection for package
    Dim Wb As Excel.Workbook = App1.Workbooks.Open("someExcelFile.xlsx")
    Dim Ws As Excel.Worksheet = Wb.Worksheets(1)
    
    'Here you add Header and Footer in excel file someExcelFile.xlsx
    Ws.PageSetup.CenterHeader = "&12&""Arial"" This is the &B&""Courier New""&16 HEADER &12&B&""Arial"" of Worksheet !!!"
    Ws.PageSetup.CenterFooter = "&12&""Arial"" This is the &B&""Courier New""&16 FOOTER &12&B&""Arial"" of Worksheet !!!"

    Wb.Save()
End Sub