13问答网 > 实现打开保存关闭某一个excel文件后，与之想关联的若干xls文件自动后台执行打开保存关闭

实现打开保存关闭某一个excel文件后，与之想关联的若干xls文件自动后台执行打开保存关闭

2025-05-09 05:28:11

推荐回答（1个）

回答1：

针对ThisWorkbook对象的BeforeClose事件添加如下代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim fileStr As String
    fileStr = "$111.xls$333.xls$“ ‘头尾都用$分隔，循环判断文件名
    For I = Workbooks.count To 1 Step -1
        If InStr(fileStr, Workbooks(I).Name) <> 0 Then
            Workbooks(I).Close False ‘False是不保存关闭 true是保存并关闭
        End If
    Next
End Sub

关闭时就会遍历所有打开的excel文件，执行不保存操作，并关闭