加载中…
个人资料
微博
  • 博客等级：
  • 博客积分：
  • 博客访问：
  • 关注人气：
  • 获赠金笔：0支
  • 赠出金笔：0支
  • 荣誉徽章：
正文 字体大小：大 中 小

VBNET对Excel文件的操作（新建，保存，打开，另存为pdf）转

(2019-02-20 22:38:42)
标签：

活力星语

金钟常鸣

vb

net

 分类： VB.NET

Excel文件操作：新建，保存，打开，另存为pdf

Part 1：示例说明

  1. 新建Excel文件示例.xlsx
  2. 保存并关闭
  3. 打开示例.xlsx，并在第1个工作表A1单元格写上测试
  4. 另存为pdf
  5. 保存并关闭示例.xlsx文件

程序运行前
https://upload-images.jianshu.io/upload_images/7490971-888ce0ff75bad70c.png?imageMogr2/auto-orient/strip

程序运行后
https://upload-images.jianshu.io/upload_images/7490971-d10a9643af89326a.png?imageMogr2/auto-orient/strip

Part 2：代码

Sub main()
    rootAddress = ThisWorkbook.Path
    excelAddress = rootAddress & "\" & "示例.xlsx"
    
    '新建Excel
    Dim wb As Workbook
    Set wb = Workbooks.Add
    
    wb.SaveAs Filename:=excelAddress, FileFormat _
    :=xlOpenXMLWorkbook, CreateBackup:=False

    wb.Save
    wb.Close
    
    '打开工作簿
    Set wb = Workbooks.Open(excelAddress)
    Set sht = wb.Worksheets(1)
    sht.Range("A1") = "测试"
    pdfName = rootAddress & "\" & "示例.pdf"
    
    '另存为pdf
    sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    wb.Save
    wb.Close
End Sub

Part 3：部分代码解读

  1. 在这里使用先定义一个Workbook对象，再将其另存为需求文件。还有另外一种方法，就是采用ActiveWorkbook。推荐使用方法1
     方法1：
Dim wb As Workbook

喜欢

0

阅读┊ 收藏 ┊ 喜欢▼ ┊打印┊举报/Report
  

新浪BLOG意见反馈留言板　欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

Copyright © 1996 - 2022 SINA Corporation, All Rights Reserved

新浪公司 版权所有