版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/fourSeasonBeans/article/details/86376200
难度系数:初级
系统:Windows 7
软件:Excel 2010
学习路径图:
- 针对之前的学习路径图,会针对的写一些文章
- 今天讲讲对于Excel文件的操作:新建,保存,打开,另存为pdf
Part 1:示例说明
- 新建Excel文件示例.xlsx
- 保存并关闭
- 打开示例.xlsx,并在第1个工作表A1单元格写上测试
- 另存为pdf
- 保存并关闭示例.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:部分代码解读
- 在这里使用先定义一个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
更多精彩,请关注微信公众号
扫描二维码,关注本公众号