Question

如何写这个VBA代码：现有A B两个exce文件,A文件在D盘，C文件在C盘。如何让打开b文件之前,检测是否有A文件,

如何写这个VBA代码：现有A B两个exce文件,A文件在D盘，C文件在C盘。如何让打开b文件之前,检测是否有A文件存在,否则A文件就自动删除
正确提问*******。 如何写这个VBA代码：现有A B两个exce文件,A文件在C盘，B文件在D盘。如何让打开B文件之前,检测是否有A文件存在,否则B文件就自动删除. 不好意思，这个才是正确提问。上面的是我表达错误。

Answer 1

在thisworkbook里贴上如下代码,OK,指定的文件为C:\A.xls,如果不存在删除打开的Excel.见你测试的时候,先备份,否则删了找不回来不怪我.

Private Sub Workbook_Open()
Call mxbing1984
End Sub

Public Function FileExists(strPath As String) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
FileExists = fso.FileExists(strPath)
Set fso = Nothing
End Function

Public Sub mxbing1984()
Dim FName As String
FName = "C:\A.xls"
If Not FileExists(FName) Then
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Saved = True
Application.Quit
End If
End Sub

Answer 2

似乎不能删除自己，Excel一旦启动，就无法再删除已打开的Excel。所以启动B，发现A，删除B，执行困难。换一下，启动A，发现B，删除B，还可以做。

Answer 3

打开后不能删除 必需关闭了才能删除