【创建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()