检查文件是否已打开的宏代码

Question

我有5个数据输入文件，相同的数据也将保存在 HR Report.xlsx 中。

Set Report = Workbooks.Open("\\HR Matrics\HR Report.xlsx", Local:=True)
Set RepSh1 = Report.Sheets("Sheet1") 
RepSh1.Cells(RepSh1Lr2 + 1, CN2) = Me.TxtBox1.Value

如果使用 文件1 打开 HR Report.xlsx ，则代码 文件2 应该允许我打开另一个文件并将数据保存在该文件中，例如：

If IsFileOpen( "\\HR Matrics\HR Report.xlsx", then
    Set Report = Workbooks.Open("\\HR Matrics\HR Report2.xlsx", Local:=True)
    Set RepSh1 = Report.Sheets("Sheet1")
    RepSh1.Cells(RepSh1Lr2 + 1, CN2) = Me.TxtBox1.Value
End If