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

相关推荐
Channing Lewis20 小时前
excel如何只保留前几行
excel
wtsolutions1 天前
Excel to JSON API by WTSolution Documentation
json·excel·api·wtsolutions
星沙丘秋2 天前
Kettle导入Excel文件进数据库时,数值发生错误的一种原因
excel
Tomorrow'sThinker2 天前
✍️ Python 批量设置 Word 文档多级字体样式(标题/正文/名称/小节)
python·自动化·word·excel
大虫小呓2 天前
50个Python处理Excel示例代码,覆盖95%日常使用场景-全网最全
python·excel
禁默2 天前
Linux Vim 编辑器详解:从入门到进阶(含图示+插件推荐)
linux·vim·excel
Tomorrow'sThinker3 天前
[特殊字符] Python 批量生成词云:读取词频 Excel + 自定义背景 + Excel to.png 流程解析
python·excel
UrbanJazzerati3 天前
Excel 使用中的“坑”:拆分与合并列的陷阱及解决方案
excel
KeThink4 天前
国民经济行业分类 GB/T 4754—2017 (PDF和exce版本)
pdf·excel
_oP_i4 天前
Excel 的多线程特性
excel