如何更改excel工作簿方向和纸张大小(vb.net)

Imports Excel = Microsoft.Office.Interop.Excel

Public Sub ChangeExcelWorkbookOrientationAndPageSize()
    ' 创建Excel应用程序对象
    Dim excelApp As New Excel.Application()
    ' 打开Excel工作簿
    Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\workbook.xlsx")
    ' 获取第一个工作表
    Dim worksheet As Excel.Worksheet = workbook.Sheets(1)
    
    ' 设置工作表方向为横向
    worksheet.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape
    ' 设置纸张大小为A4
    worksheet.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4
    
    ' 保存并关闭工作簿
    workbook.Save()
    workbook.Close()
    
    ' 退出Excel应用程序
    excelApp.Quit()
End Sub