我正在尝试使用平面列表进行无限滚动。但是,每次我创建一个函数来获取更多数据时,我都有一个具有相同数据的循环(3次)。这是我的代码没有获取更多功能。如何通过更改页码并使其无限滚动来获取更多数据,直到没有剩余数据为止。
P.S。我已经设置了Page状态并将其设为+1,但由于状态更新> 3次,我再次获得无限循环的页面甚至不存在。
Sub DeleteFilesFromFolder()
Dim myPath
myFolder = Sheets("Main").Range("B4").Value
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each Filename In fldr.Files
Filename.Delete True ' delete all files
Next
End Sub