我是 VBA 新手,我有一些代码可以将多个电子表格中的数据传输到一个主电子表格中。这可以正常工作,但最后我需要清除每个电子表格中的日期数据,以便第二天可以再次传输数据而不会重复。我可以在脚本末尾添加一些简单的内容来清除我刚刚传输的所有数据吗?任何帮助都将不胜感激
到目前为止,这是我的脚本:
Sub LoopThroughDirectory()
Dim MyFile As String
Dim erow
Dim Filepath As String
Filepath = "C:\Users\Guy\Desktop\nichola\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
If MyFile = "ZMASTER.xlsm" Then
Exit Sub
End If
Workbooks.Open (Filepath & MyFile)
Range("A2:E25").Copy
ActiveWorkbook.Close
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 5))
MyFile = Dir
Loop
End Sub