如何调整我的 VBA 代码以检查文件名是否已被使用？

Question

如果可能，我想添加代码来检查“返回注释”中是否存在与 B1 具有相同文本值的文件（其中包含要成为的文件名）

Private Sub CommandButton1_Click()

Dim NameofWorkbook As String

NameofWorkbook = "RN" & Range("B1")

MyMsg = NameofWorkbook + " " & "saved to return note folder"

'Create and assign variables
Dim saveLocation As String
saveLocation = "S:\Office information\Returns\Return Notes\" + NameofWorkbook

'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=saveLocation

MsgBox MyMsg

End Sub

工作代码（感谢 Romulax）：

Private Sub CommandButton1_Click()

Dim NameofWorkbook As String
Dim levSave As String

NameofWorkbook = "RN" & Trim(Range("B1"))

MyMsg = NameofWorkbook + " " & "saved to return note folder"

'Create and assign variables
Dim saveLocation As String

saveLocation = "S:\Office information\Returns\Return Notes\" & NameofWorkbook
lenSave = saveLocation & ".pdf"

If Len(Dir(lenSave)) = 0 Then
    MsgBox "File does not exist"
    'Do stuff

'Save Active Sheet(s) as PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
     Filename:=saveLocation

MsgBox MyMsg

Else

MsgBox "Filename taken."

End If
End Sub

Answer 1

见here。
在你的情况下：

If Len(Dir(saveLocation)) = 0 Then
  MsgBox "File does not exist"
  'Do stuff
Else
    MsgBox "File does exist"
    'Do stuff
End If

也替换这个：

saveLocation = "S:\Office information\Returns\Return Notes\" + NameofWorkbook

有了这个：

saveLocation = "S:\Office information\Returns\Return Notes\" & NameofWorkbook

要连接，您必须使用& 而不是+。

编辑：如果您要查找的文件是 excel 文件“.xlsm”，并且如果“.xlsm”不在Range("B1") 中，则必须将其包含在代码中。这样，您的保存位置是：

saveLocation = "S:\Office information\Returns\Return Notes\" & NameofWorkbook & ".xlsm"

用实际文件类型替换“.xlsm”