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

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/fourSeasonBeans/article/details/86376200

微信公众号原文

难度系数：初级

系统：Windows 7
软件：Excel 2010

学习路径图：

• 针对之前的学习路径图，会针对的写一些文章
• 今天讲讲对于Excel文件的操作：新建，保存，打开，另存为pdf

Part 1：示例说明

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

程序运行前

程序运行后

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
 Set wb = Workbooks.Add

方法2：

Workbooks.Add
ActiveWorkbook.SaveAs Filename:=NewFileAddr, FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
Set wb = ActiveWorkbook

---

• 如需文中高清并可以无限放大路径图，可以文后留言留下邮箱，小编会发过去
• 本文为原创作品，如需转载，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号