避免覆盖到单元格中

Question

我创建了此代码来监视文件夹，以防发生创建和删除事件。但是，我创建的代码始终覆盖相同的单元格，而我想跟踪更改。因此，我希望所有创建事件都列在 A 列中，删除事件列在 B 列中。有人可以帮助我吗？

Select Case objEventObject.Path_.Class
       Case "__InstanceCreationEvent"
       MsgBox "A new file was just created: " & objEventObject.TargetInstance.PartComponent
       Workbooks("MonitorDirectory").Worksheets("Tabelle1").Range("A2") = objEventObject.TargetInstance.PartComponent
        Exit Do
       Case "__InstanceDeletionEvent"
        MsgBox "A file was just deleted: " & objEventObject.TargetInstance.PartComponent
        Workbooks("MonitorDirectory").Worksheets("Tabelle1").Range("B2").End(xlDown).Offset(1, 0) = objEventObject.TargetInstance.PartComponent
        Exit Do
End Select

Answer 1

添加

两个变量 x，y 如下可能会起作用

   Select Case objEventObject.Path_.Class
Dim i As Integer
x = Range("a" & Rows.Count).End(xlUp).Row + 1
y = Range("b" & Rows.Count).End(xlUp).Row + 1
       Case "__InstanceCreationEvent"
       MsgBox "A new file was just created: " & objEventObject.TargetInstance.PartComponent
       Workbooks("MonitorDirectory").Worksheets("Tabelle1").Range("A" & x) = objEventObject.TargetInstance.PartComponent
        Exit Do
       Case "__InstanceDeletionEvent"
        MsgBox "A file was just deleted: " & objEventObject.TargetInstance.PartComponent
        Workbooks("MonitorDirectory").Worksheets("Tabelle1").Range("B" & y).Offset(1, 0) = objEventObject.TargetInstance.PartComponent
        Exit Do
End Select