你给的代码也报引用错误：ActiveXObject is not defined at CopySameDay

这个错误通常发生在浏览器环境中，因为`ActiveXObject`只在Internet Explorer浏览器中可用，其他浏览器不支持。如果你在浏览器中运行这段代码，建议使用其他方式连接到WPS应用程序。

如果你是在WPS VBA环境下运行这段代码，可以使用以下代码来连接到WPS应用程序：

Dim wps As Object '定义WPS应用程序对象
Set wps = CreateObject("KWPS.Application") '连接到WPS应用程序
Dim ws As Object '定义工作表对象
Set ws = wps.ActiveSheet '获取当前激活的工作表

注意，这段代码只能在WPS VBA环境下运行，如果你在其他环境中运行，可能需要使用不同的代码。