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

相关推荐
Access开发易登软件6 小时前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表7 小时前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
UrbanJazzerati12 小时前
掌握 xlwings 的 used_range:高效处理 Excel 数据区域
python·面试·excel
m0_5557629015 小时前
Excel ——INDEX + MATCH 组合
excel
焚 城15 小时前
Excel数据导出小记二: [大数据示例]
大数据·excel
偷心伊普西隆16 小时前
Python EXCEL 小技巧:最快重新排列dataframe函数
python·excel
Leslie_Lei16 小时前
【EasyExcel】Excel工具类2.0
excel
Lilixxs17 小时前
VBA 中使用 ADODB 操作 SQLite 插入中文乱码问题
数据库·中间件·sqlite·乱码·vba·odbc·adodb
HappyAcmen18 小时前
【自动化实战】Python操作Excel/WORD/PDF:openpyxl与docx库详解
python·自动化·excel
CHEN5_021 天前
【CouponHub项目开发】EasyExcel解析Excel并使用线程池异步执行和延时队列兜底
java·数据库·excel