Workbooks.Path属性 VBA文件路径管理_Excel文件路径一键获取技巧！VBA中Workbooks.Path的5大神操作

在日常工作里，我们频繁地要应对众多Excel文档。今天所要讲解的.Path属性，堪称VBA操作文件路径的得力助手，被誉为“瑞士军刀”般的存在！

Path属性是什么？

.Path返回工作簿的完整路径（不包含文件名），例如：

- `C:\Users\张三\`

- `\\192.168.1.100\共享文件夹`

Sub 显示当前路径()
弹出对话框显示：“当前文件路径为：”接着显示活动工作簿的路径。
End Sub

超实用应用场景

场景1：自动创建备份文件夹

Sub 智能备份()
Dim backupPath As String
备份路径等于当前工作簿的路径与"\Backup\"字符串连接。
'如果文件夹不存在则创建
若检测到备份路径并非目录，则创建该目录。
当前工作簿保存为备份文件，路径为backupPath，文件名为“备份_”加上当前日期（格式为“yyyymmdd”），扩展名为“.xlsm”。
弹窗显示：“备份操作已成功完成，请知悉！”并附带信息提示图标。
End Sub

场景2：快速打开同级文件

Sub 打开报表()
Dim reportPath As String
ThisWorkbook的路径与字符串"\月度报表.xlsx"相连接，形成了报告的存储路径。
If Dir(reportPath) <> "" Then
Workbooks.Open reportPath
Else
MsgBox "找不到报表文件！", vbCritical
End If
End Sub

高阶技巧：路径组合方法

方法1：构建完整文件路径

定义一个函数，用于获取工作簿的完整路径，参数为工作簿对象wb。
获取完整的文件路径等于工作簿的路径与工作簿名称连接起来。
End Function

方法2：跨平台路径处理

Sub 跨平台路径示例()
Dim path As String
If Mac Then
路径设定为“Macintosh HD：用户：共享：”
Else
path = "C:\Shared\"
End If
MsgBox "系统路径：" & path
End Sub

常见问题解决方案

问题1：未保存文件的Path属性

若ActiveWorkbook的路径长度等于零，则。
MsgBox "请先保存文件！"
End If

问题2：网络路径特殊处理

Sub 检查网络路径()
Dim fullPath As String
完整的路径为：当前工作簿所在文件夹路径与工作簿名称相连，中间以反斜杠分隔。
当从完整路径中截取前两个字符并判断其是否等于反斜杠时，
MsgBox "当前是网络共享文件，操作需谨慎！"
End If
End Sub

实战案例：自动归档系统

Sub 自动归档()
Dim sourcePath As String
Dim archivePath As String
Dim fileExt As String
sourcePath 等于 当前工作簿的路径
archivePath 等于 sourcePath 加上 "\Archive\" 再加上 当前年份(Now) 的值。
fileExt = ".xlsx"
'创建年度文件夹
若检测到指定的路径为目录类型，则创建该路径。
'移动上月文件
定义变量sourcePath，将其值设为路径与字符串"上月考勤"和fileExt的拼接，再将结果赋值给变量archivePath，随后使用archivePath与"考勤_"、格式化后的日期（通过DateAdd函数将当前日期减去一个月并格式化为"yyyymm"格式）以及fileExt拼接，最终赋值给变量archivePath。
End Sub