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

相关推荐
QQ35967734519 小时前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
星空的资源小屋2 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公3 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb3 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面3 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88383 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1483 天前
json文件转excel
json·excel
shizidushu3 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue4 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel
acaad4 天前
Apache Poi 实现导出excel表格 合并区域边框未完全显示的问题
spring·apache·excel