如何在vba中为sharepoint列表应用过滤器

Question

我有以下代码使用，我使用VBA将大量行从sharepoint列表导入Excel目标。

Worksheets("ActivityProgress").ListObjects.Add SourceType:=xlSrcExternal, _
 Source:=Array("http://teamroom.xyz.com/Global/Management/_vti_bin", _
 "Activities", "{926363F0-20C4-4955-8172-96970AF15D9B}"), _
 LinkSource:=True, Destination:=Worksheets("ActivityProgress").Range("A1")

不幸的是，由于导入到Excel之后的行数很大，因此在导入后无法处理目标。

我有一个名为ActivityDate的字段（我需要过滤，包含2015年的数据）。

请问vba如何为Sharepoint List“活动”应用过滤器？