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如下所示可能有效选择Case objEventObject.Path_.Class Dim i As Integer x =范围（＆＃34; a＆＃34;＆amp; Rows.Count）.End（xlUp）.Row + 1 y =范围（＆＃34; b＆＃34;＆amp; Rows.Count）.End（xlUp）.Row + 1 案例＆＃34; __ InstanceCreationEvent＆＃34; MsgBox＆＃34;刚刚创建了一个新文件：＆＃34; ＆安培; objEventObject.TargetInstance.PartComponent 工作簿（＆＃34; MonitorDirectory＆＃34;）。工作表（＆＃34; Tabelle1＆＃34;）。范围（＆＃34; A＆＃34;＆amp; x）= objEventObject.TargetInstance.PartComponent 退出做案例＆＃34; __ InstanceDeletionEvent＆＃34; MsgBox＆＃34;一个文件刚被删除：＆＃34; ＆安培; objEventObject.TargetInstance.PartComponent 工作簿（＆＃34; MonitorDirectory＆＃34;）。工作表（＆＃34; Tabelle1＆＃34;）。范围（＆＃34; B＆＃34;＆amp; y）.Offset（1,0）= objEventObject.TargetInstance。 PartComponent 退出做结束选择

避免覆盖到单元格中

1 个答案: