Как добавить верхний и нижний колонтитулы в Excel с помощью vb. net? - PullRequest
Новая
       89

Как добавить верхний и нижний колонтитулы в Excel с помощью vb. net?

0 голосов
/ 18 июня 2020

Я изучаю vb. net и пытаюсь сделать небольшую программу, чтобы заполнить некоторые ячейки в excel. Это не так сложно, и я мог найти слишком много информации, но теперь я пытаюсь вставить изображение в заголовок Excel и не знаю, как это сделать. Я прочитал все документы на веб-странице Microsoft о «Microsoft.Office.Interop.Excel», и мне это не удалось.

Как мне добавить заголовок?

Большое спасибо за всех ваша помощь.

Я видел это свойство в документах, но мне не удалось:

  • HeaderFooter.Picture Property
  • PageSetup. Свойство RightHeaderPicture
  • Интерфейс HeaderFooter

Microsoft Office Interop Excel

1 Ответ

0 голосов
/ 23 июня 2020

Вы можете сделать это с помощью этого кода: 

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
...