在日常办公中，我们经常需要和 Excel 文件打交道 —— 判断文件是否存在、是否打开、新建保存、打开关闭、备份复制…… 如果手动操作，不仅繁琐还容易出错，尤其是批量处理文件时，效率更是大打折扣。

今天就给大家分享 6 个超实用的 Excel VBA 代码，涵盖文件管理的核心场景，学会这些，让你的 Excel 文件操作自动化，办公效率直接翻倍！

一、判断指定 Excel 文件是否存在

在操作文件前，先判断文件是否存在是基础操作，避免因文件缺失导致程序报错。

'1 判断A.Xls文件是否存在

Sub W1()

If Len(Dir("d:/A.xls")) = 0 Then

    MsgBox "A文件不存在"

Else

   MsgBox "A文件存在"

End If

End Sub

使用说明：将代码中的d:/A.xls替换为你要判断的文件路径和名称，运行宏后，会通过弹窗提示文件是否存在。

二、判断指定 Excel 文件是否已打开

如果文件已被打开，重复打开会报错，用这段代码可以快速检测文件打开状态。

'2 判断A.Xls文件是否打开

Sub W2()

Dim X As Integer

For X = 1 To Windows.Count  ' 遍历所有已打开的Excel窗口

  If Windows(X).Caption = "A.XLS" Then ' 匹配窗口标题（即文件名）

       MsgBox "A文件打开了"

       Exit Sub ' 找到后退出过程，无需继续遍历

   End If

Next

End Sub

使用说明：修改"A.XLS"为目标文件名，运行后即可知道文件是否处于打开状态。

三、新建 Excel 文件并写入数据保存

快速新建工作簿、写入数据并指定路径保存，告别手动 “新建 - 输入 - 保存” 的繁琐步骤。

'3 excel文件新建和保存

Sub W3()

  Dim wb As Workbook

  Set wb = Workbooks.Add ' 新建一个空白工作簿

  wb.Sheets("sheet1").Range("a1") = "abcd" ' 向Sheet1的A1单元格写入数据

  wb.SaveAs "D:/B.xls" ' 保存到指定路径，可修改文件名和路径

End Sub

使用说明：可自定义写入的单元格、数据内容，以及保存的路径和文件名，运行后自动完成新建、写入、保存全流程。

四、打开 Excel 文件、读取数据并关闭

打开指定文件读取数据，操作完成后关闭文件，无需手动干预，适合批量读取数据场景。

'4 excel文件打开和关闭

Sub w4()

Dim wb As Workbook

  Set wb = Workbooks.Open("D:/B.xls") ' 打开指定路径的Excel文件

  MsgBox wb.Sheets("sheet1").Range("a1").Value ' 读取Sheet1的A1单元格数据并弹窗显示

  wb.Close False ' 关闭文件，False表示不保存修改（若有修改可改为True） wb.Close False

End Sub

使用说明：替换文件路径和单元格地址，即可读取指定数据，关闭时根据需求选择是否保存修改。

五、保存当前文件并创建备份

修改文件后及时保存，同时自动生成备份文件，防止数据丢失，双重保障文件安全。

'5 excel文件保存和备份

Sub w5()

Dim wb As Workbook

  Set wb = ThisWorkbook ' 指向当前运行宏的工作簿

  wb.Save ' 保存当前文件的修改

  wb.SaveCopyAs "D:/ABC.xls" ' 另存为备份文件到指定路径，可自定义备份文件名

End Sub

使用说明：ThisWorkbook代表当前宏所在的文件，修改备份路径和名称，运行后自动保存并生成备份。

六、Excel 文件复制与删除

快速复制文件到其他路径，或删除指定文件，适合文件迁移、清理场景。

'6 excel文件复制和删除

Sub W6()

  FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"  ' 复制文件：源路径 → 目标路径

  Kill "D:/ABC.XLS"  ' 删除指定路径的文件

End Sub

使用说明：注意修改源文件路径、目标复制路径，以及要删除的文件路径，删除操作不可逆，使用前请确认文件无需保留。

温馨提示

1. 运行代码前，建议关闭无关 Excel 文件，避免窗口遍历、文件操作冲突；
2. 涉及文件删除、覆盖的操作（如 Kill、SaveAs），务必确认文件路径和名称，防止误操作；
3. 若文件路径包含中文，建议将路径用双引号包裹，避免识别错误。

以上 6 个 VBA 代码覆盖了 Excel 文件管理的高频场景，无论是个人办公还是批量处理文件，都能大幅提升效率。赶紧收藏起来，下次遇到 Excel 文件操作，直接套用代码就能轻松搞定！

需要其他办公自动化 VBA 代码，欢迎留言告诉我～ 或到我的微信公众号caiwing小窝关注留言！