21、Excel VBA编程：事件处理与范围操作

Excel VBA编程：事件处理与范围操作

1. Excel VBA事件处理

1.1 工作簿打开事件跟踪

可以通过VBA代码跟踪每个打开的工作簿，并将相关信息存储在逗号分隔的变量（CSV）文本文件中。具体步骤如下：
1. 插入新的类模块 ：命名为 clsApp ，并添加以下代码：

Public WithEvents AppEvents As Application

Private Sub AppEvents_WorkbookOpen(ByVal Wb As Excel.Workbook)
    Call UpdateLogFile(Wb)
End Sub

2. 添加VBA模块 ：插入以下代码：

Dim AppObject As New clsApp

Sub Init()
    ' Called by Workbook_Open
    Set AppObject.AppEvents = Application
End Sub

Sub UpdateLogFile(Wb)
    Dim txt As String
    Dim Fname As String
    txt = Wb.FullName
    txt = txt & "," & Date & "," & Time
    txt = txt &a