检测文件夹中的PDF文件，并检查其是否已打开

我需要下面的代码。正如我试图在这个网站上找到，但没有符合我的需要。所以，如果有人写代码，请写

它应该搜索文件夹中的文件，文件名应该取自单元格，无论我键入什么文件名进行搜索，如果文件已打开，它应该警告我文件已打开。该文件将采用PDF格式

文件不应重复，如果发现重复，则应向我显示警告“替换”或“否”

如果它不是一个重复的，那么另存为PDF，采用我在单元格中写的任何名称，将有2个不同的单元格

选项显式
函数FileExists（FullFileName为字符串）为布尔值
FileExists=Len（Dir（FullFileName））>0
端函数
子SaveAsPDF（）
结果一样长
作为字符串的Dim fName
Const fPath As String=“C:\Users\KYD\Desktop\”
使用ActiveSheet
fName=.Range（“A1”）.Value&“&Range（“J1”）.Value&.pdf”
如果文件不存在（fPath&fName），则
MsgBox提示符：=“PDF文件已保存。”&vbNewLine&“位置C:\Users\KYD\Desktop\”_
按钮：=vbOKOnly+vbInformation，标题：=“谢谢”
.ExportAsFixedFormat类型：=xlTypePDF，文件名：=_
fPath和fName，质量：=xlQualityStandard_
IncludeDocProperties:=真，IgnorePrintAreas:=假，OpenAfterPublish:=真
其他：
nResult=MsgBox（提示：=“PDF文件已退出是否覆盖给定文件夹下以前签入的文件。”_
&vbNewLine&“位置C:\Users\KYD\Desktop\”，按钮：=vbYesNo+vbCritical，标题：=MME）
如果nResult=vbYes，则
.ExportAsFixedFormat类型：=xlTypePDF，文件名：=_
fPath和fName，质量：=xlQualityStandard_
IncludeDocProperties:=真，IgnorePrintAreas:=假，OpenAfterPublish:=真
如果结束
出口接头
如果结束
以
端接头

我尝试编写这些代码，导出pdf并从单元格中获取名称，然后检查文件是否存在于文件夹中，是否要求用户替换

---

我需要在它的一些代码，也可以检查文件是否打开从单元格的名称。如果文件已打开，则显示消息文件已打开，否则将不显示任何内容。

请注意，Stackoverflow不是代码编写服务。请阅读常见问题解答，了解您可以在此处提出的问题。我将投票结束此问题，因为它是代码编写问题。好的，对不起，先生。。。

    Option Explicit
Function FileExists(FullFileName As String) As Boolean
    FileExists = Len(Dir(FullFileName)) > 0
End Function

Sub SaveAsPDF()
    Dim nResult As Long
    Dim fName As String
    Const fPath As String = "C:\Users\KYD\Desktop\"
    With ActiveSheet

  fName = .Range("A1").Value & " " & Range("J1").Value & ".pdf"
  If Not FileExists(fPath & fName) Then

MsgBox prompt:="PDF file saved." & vbNewLine & "Location <> C:\Users\KYD\Desktop\", _
Buttons:=vbOKOnly + vbInformation, Title:="Thanks"
  .ExportAsFixedFormat Type:=xlTypePDF, filename:= _
   fPath & fName, Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

    Else:

nResult = MsgBox(prompt:="PDF file already exit do you want to overwrite a previous file check in below given folder." _
& vbNewLine & "Location <> C:\Users\KYD\Desktop\", Buttons:=vbYesNo + vbCritical, Title:="MME")
        If nResult = vbYes Then

    .ExportAsFixedFormat Type:=xlTypePDF, filename:= _
     fPath & fName, Quality:=xlQualityStandard, _
     IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

            End If
            Exit Sub

        End If
    End With

End Sub