【創建EXCEL】
添加EXCEL引用: Imports Excel = Microsoft.Office.Interop.Excel
創建工作簿對象: Dim xlWorkBook As Excel.Workbook = Nothing
創建工作表對象: xlWorkSheet As Excel.Worksheet = Nothing
關閉提示消息(例如保存時的兼容性提示等): xlApp.DisplayAlerts = False
打開已有的工作簿: xlWorkBook = xlApp.Workbooks.Open(strDesFilePath) (其中strDesFilePath為工作表文件的路徑)
添加一個新的工作表: xlWorkSheet = CType(xlWorkBook.Worksheets.Add(), Excel.Worksheet)
設置新工作表的名稱: xlWorkSheet .Name = “新工作表名”
復制工作表中的指定區域: xlWorkSheet.Range("A1","F11").Copy() *復制前面創建的工作表對象內的區域內容
xlWorkBook.Sheets("工作表名").Range("A1","F11").Copy() *復制工作簿中指定的工作表內的區域內容
【頁面設置及打印】
設置打印內容寬度固定在紙張內(高度可分頁): xlWorkSheet. PageSetup.FitToPagesWide = 1
注:限定寬度或者高度,必須將Zoom設置為False: xlWorkSheet.PageSetup.Zoom = False
打印工作表: xlWorkSheet.PrintOutEx()
