VB.Net操作Excel

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

转载于:https://www.cnblogs.com/sugartomato/archive/2012/01/06/2314250.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值