Question

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

如何添加标题？

非常感谢您的帮助。

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

HeaderFooter.Picture属性
PageSetup.RightHeaderPicture属性
HeaderFooter界面

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

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

1 个答案: