• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录

Code

Always Begin...
  • 博客园
  • 管理

View Post

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()

posted on 2012-01-06 12:24  老十  阅读(13818)  评论(0)    收藏  举报

刷新页面返回顶部
 
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3