Excel 宏录制与VBA编程 —— 12、工作簿相关操作

代码1 - 新建、保存工作簿
cpp 复制代码
Sub WorkbooksTest()
    ' 创建工作簿
    'Workbooks.Add
    
    ' 创建工作簿并保存至本地
    Workbooks.Add.SaveAs Filename:="C:\Users\jxd\Desktop\workbook.xlsx"
    
End Sub

代码2 - 打开、保存、关闭工作簿
cpp 复制代码
Sub WorkbooksTest()

    ' 打开工作簿
    'Workbooks.Open Filename:="xxx/Test.xlsx"

	' 保存刚打开后且已修改的工作簿
	Workbooks("xxx/Test.xlsx").Save
    
    ' 关闭工作簿
    Workbooks.Close

End Sub

代码3 - 删除工作簿
cpp 复制代码
Sub WorkbooksTest()

    ' 创建工作簿并保存至本地
    Workbooks.Add.SaveAs Filename:="C:\Users\jxd\Desktop\workbook.xlsx"

    ' 关闭当前活动的工作簿
    ActiveWorkbook.Close
    
    ' 删除工作簿
    Kill PathName:="C:\Users\jxd\Desktop\workbook.xlsx"
    
End Sub

代码4 - 工作簿名称、路径信息
cpp 复制代码
Option Explicit

Sub WorkbooksTest()

    ' ThisWorkbook.Path:默认工作簿路径(路径不包含文件名)
    Range("D2").Value = ThisWorkbook.Path
    
    ' ActiveWorkbook.Path:当前活动的工作簿路径(路径不包含文件名)
    Range("B2").Value = ActiveWorkbook.Path
    
    ' ActiveWorkbook.Name:当前活动的工作簿路径(不包含路径)
    MsgBox ThisWorkbook.NameMsgBox = ActiveWorkbook.Name
    
    ' ActiveWorkbook.FulIName:当前活动的工作簿路径(路径+文件名)
    MsgBox ThisWorkbook.FullNameMsgBox = ActiveWorkbook.FulIName
    
    ' 打开路径组合的工作簿
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "案例.xls"
    
End Sub

代码5 - 使用ForEach遍历工作簿
cpp 复制代码
Sub WorkbooksTest()

    Dim book As Workbook
    For Each book In Workbooks
        MsgBox book.Name
    Next book
    
End Sub

关注

笔者 - jxd

相关推荐
不坑老师3 小时前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps
开开心心就好6 小时前
批量PDF转换工具,一键转换Word Excel
开发语言·前端·学习·pdf·电脑·word·excel
Fireworkitte13 小时前
Apache POI 详解 - Java 操作 Excel/Word/PPT
java·apache·excel
Prodigy_kyw18 小时前
VBA初学3----实战(VBA实现Excel转csv)
excel·vba·csv
红衣女妖仙21 小时前
JXLS 库导出复杂 Excel
java·excel·jxls·java 导出 excel
吃我两拳1 天前
EasyExcel停止当前Sheet的读取,且不影响主线程及其他Sheet读取的方法
excel
qq_393828221 天前
办公文档批量打印器 Word、PPT、Excel、PDF、图片和文本,它都支持批量打印。
windows·word·powerpoint·excel·软件需求
过期的秋刀鱼!1 天前
用“做饭”理解数据分析流程(Excel三件套实战)
数据挖掘·数据分析·excel·powerbi·数据分析入门
挑战者6668881 天前
如何将Excel表的内容转化为json格式呢?
excel
干净的坏蛋1 天前
EasyExcel实现Excel复杂格式导出:合并单元格与样式设置实战
excel