excel如何快速打开vba（抓紧收藏Excel中用VBA操作文件）

我发现一个奇怪的现象，VBA这个东西一旦学上，就似乎丢不下了，工作中遇到的什么问题，都会条件反射地想：这个问题，用VBA是否可以解决？

对于初学的人，有些问题并不能迅速地写出解决的代码，而希望找一些现成的代码参考参考。本着方便自己，也方便别人的目的，本文收集了一些我认为会经常会接解到的文件操作对应的代码，希望能帮到学习VBA的朋友们。​

以判断D盘根目录下是否存在"Excel VBA其实很简单.xlsm"为例，想知道这个文件是否存在，最简单的办法就是用Dir函数尝试获取该文件名，再通过其返回结果判断文件是否存在。代码可以写为：

Sub 判断文件是否存在() Dim myFileName As String '指定带完整目录的文件夹名称 myFileName = "D:\Excel VBA其实很简单.xlsm" If Len(Dir(myFileName, vbDirectory)) > 0 Then MsgBox "该文件存在" Else MsgBox "该文件不存在" End If End Sub

当然，对于同一个问题，解决的思路不同，代码也不一定相同。比如，要判断文件是否存在，还可以用下面的代码：

Sub 判断文件是否存在() Dim myFile As String Dim fso As Scripting.FileSystemObject myFile = "D:\Excel VBA其实很简单.xlsm" '指定带完整路径的文件名 Set fso = New Scripting.FileSystemObject If fso.FileExists(myFile) = True Then MsgBox "文件 " & myFile & " 存在" Else MsgBox "文件 " & myFile & " 不存在" End If Set fso = Nothing End Sub

复制文件同样也可以有多种思路和方法选择，比如：

Sub 复制文件() Dim mySource As String, myDes As String On Error GoTo ErrorHandler mySource = ThisWorkbook.Path & "\VBA其实很简单.xlsm" myDes = ThisWorkbook.Path & "\目标目录\VBA其实很简单.xlsm" FileCopy mySource, myDes MsgBox "复制成功!" Exit Sub ErrorHandler: If Err.Number <> 0 Then MsgBox "无法复制该文件!" & vbCrLf & Err.Description End If End Sub

Sub 复制文件() Dim myFile As String Dim myNewFilePath As String Dim fso As Scripting.FileSystemObject myFile = ThisWorkbook.Path & "\VBA其实很简单.xlsm" '要复制的文件 myNewFilePath = ThisWorkbook.Path & "\目标目录\" '要复制到的目标位置 Set fso = New Scripting.FileSystemObject fso.CopyFile myFile, myNewFilePath, overwritefiles:=True MsgBox "已经将文件 " & myFile & " 复制到文件夹 " & myNewFilePath Set fso = Nothing End Sub

Sub 移动文件() Dim OldName As String Dim NewName As String OldName = ThisWorkbook.Path & "\VBA其实很简单.xlsm" '原文件名 NewName = ThisWorkbook.Path & "\目标目录\VBA其实很简单.xlsm" '新文件名 Name OldName As NewName '不更改文件名,但将其移动到另外一个文件夹 MsgBox "文件已经被移动了" End Sub

Sub 移动文件() Dim myFile As String Dim myNewFilePath As String Dim fso As Scripting.FileSystemObject myFile = ThisWorkbook.Path & "\VBA其实很简单.xlsm" '要移动的文件 myNewFilePath = ThisWorkbook.Path & "\目标目录\" '要移动的位置 Set fso = New Scripting.FileSystemObject If fso.FileExists(myFile) Then fso.MoveFile myFile, myNewFilePath MsgBox "已经将文件 " & myFile & " 移到了文件夹 " & myNewFilePath Else MsgBox "要移动的文件不存在" End If Set fso = Nothing End Sub

Sub 重命名文件() Dim OldName As String, NewName As String OldName = ThisWorkbook.Path & "\VBA基实很简单.xlsm" '原文件名 NewName = ThisWorkbook.Path & "\VBA其实很容易.xlsm" '新文件名 Name OldName As NewName End Sub

Sub 删除文件() Dim myFile As String myFile = ThisWorkbook.Path & "\VBA基实很简单.xlsm" On Error Resume Next Kill myFile On Error GoTo 0 End Sub

Sub 删除文件() Dim myFile As String Dim myNewFilePath As String Dim fso As Scripting.FileSystemObject myFile = ThisWorkbook.Path & "\VBA基实很简单.xlsm" '要删除的文件 Set fso = New Scripting.FileSystemObject If fso.FileExists(myFile) Then fso.DeleteFile myFile MsgBox "已经将文件 " & myFile & " 删除" Else MsgBox "要删除的文件不存在" End If Set fso = Nothing End Sub

当然，对文件的操作还有很多，如果本文中没有列出你想要的代码，可以将你需要的代码留在评论区，后续再补充。

关注“Excel笔记”,学习更多Excel技巧。