1. 判断文件是否存在，新建文件，另存为
Sub test3()
‘判断文件是否存在，新建文件
Dim wb As Workbook
Dim cPath As String
cPath = ActiveWorkbook.Path
If Len(Dir(cPath + "\1.xlsx")) = 0 Then
Set wb = Workbooks.Add
ActiveWorkbook.SaveAs (cPath + "\1.xlsx")
MsgBox ("1.xlsx" + "已创建")
Else
MsgBox ("1.xlsx" + "已存在")
End If
End Sub
2. 打开文件，修改内容，保存/关闭
Sub test4()
‘打开文件并修改
Dim wb As Workbook
Set wb = Workbooks.Open(ActiveWorkbook.Path + "\1.xlsx")
wb.Sheets("sheet1").Range("a1") = "123"
wb.Save
wb.Close ‘直接关闭多省心
‘Windows("1.xlsx").Visible = True‘感觉没什么卵用
‘Application.Visible = False’不能用这个，所有的工作簿都隐藏了，只剩VBA编辑器
End Sub
3. 判断文件是否已经打开
这里采用的是遍历所有打开的工作簿，另一种方法是直接把这个名字的工作簿赋值给对象，如果报错就说明没打开这个文件（还是有点麻烦）
Sub test5()
Dim flag As Boolean
For Each wb In Workbooks
If wb.Name = "1.xlsx" Then
flag = True
Exit For
End If
Next
If flag = True Then
MsgBox ("1.xlsx" + "已经打开")
Else
MsgBox ("1.xlsx" + "没有打开")
End If
End Sub
4. 复制和删除文件
Sub test6()
Dim path As String
path = ThisWorkbook.path
FileCopy path + "\1.xlsx", path + "\2.xlsx"
MsgBox "已复制"
Kill path + "/2.xlsx"
MsgBox "已删除"
End Sub
注意：
（1）ActiveWorkbook是正在操作的工作簿，ThisWorkbook是VBA所在的工作簿
（2）vbCrLf的意思：
回车 \r 本义是光标重新回到本行开头，r的英文return，控制字符可以写成CR，即Carriage Return
换行 \n 本义是光标往下一行（不一定到下一行行首），n的英文newline，控制字符可以写成LF，即Line Feed
（3）VBA中的方法，参数不用带括号，如果带括号，会报“需要=”的错误。除非是要把方法的返回值赋值给一个变量，才需要加括号。
原文：https://www.cnblogs.com/medik/p/10989715.html