如何在 excel 和 vb.net 中添加页眉和页脚？

Question

我正在学习 vb.net，我尝试做一个小程序来填充 excel 中的一些单元格。这并不难，我可以找到太多信息，但现在我试图将图像插入到 excel 的页眉中，但我不知道如何操作。我阅读了 Microsoft 网页中有关 "Microsoft.Office.Interop.Excel" 的所有文档，但没有成功。

如何添加页眉？

非常感谢您的帮助。

我在文档中看到了属性，但没有成功：

HeaderFooter.Picture 属性
PageSetup.RightHeaderPicture 属性
页眉页脚接口

Microsoft Office Interop Excel

Answer 1

您可以使用以下代码执行此操作：

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

如何在 excel 和 vb.net 中添加页眉和页脚？

How to add Header and Footer in excel with vb.net?

excel

vb.net

interop