excel2007 已经降低宏安全性，但使用宏时还是出错（有原代码），请问如何解决？

来源：百度知道 编辑：UC知道 时间：2024/06/24 18:19:25
提示"object doesn't support this action"，点击"debug"看源代码，用黄色标出代码中With Application.FileSearch这一行，本人对代码一窍不通，望大侠指教，以下是原代码：
Sub copyExcel()
Dim MyObject As Object
Dim strPath As String, strFileName As String, strMyName As String
Dim shtSheet As Worksheet, strShtName As String
Dim intCount As Integer, intShtCount As Integer, i As Integer
Application.ScreenUpdating = False
strPath = ThisWorkbook.Path
strMyName = ThisWorkbook.Name
intShtCount = ThisWorkbook.Sheets.Count
With Application.FileSearch
.NewSearch
.LookIn = strPath
.SearchSubFolders = False
.Filename = ".xls"
.FileType = msoFileTypeOfficeFiles
If .Execute() > 0 Then
intCount = .FoundFiles.Count
For i = 1 To intCount
strFileName = Replace(.FoundFiles(i), strPath & "\", &q

1.excel2007是否是安装的版本有问题,或者安全更新没有更新等
2.解决方案
使用本文中的故障排除方法时要按它们出现的顺序进行。在您完成一个故障排除部分后，请进行测试以确定是否仍发生此脚本错误。如果问题已解决，则不必继续下一部分。如果问题未解决，则继续执行下一部分。

从另一个用户帐户、另一个浏览器和另一台计算机测试网页
如果问题只在您查看一个或两个网页时发生，则从另一个用户帐户、另一个浏览器或另一台计算机查看这些网页，以确定问题是否依然存在。如果脚本错误依然存在，则可能是网页的编写有问题。请与网站管理员或内容开发者联系，告诉他们网页存在的问题。如果从另一个用户帐户使用网页时脚本错误未发生，则问题可能是您的用户配置文件的文件或设置造成的。如果在从另一个浏览器或另一台计算机使用网页时脚本错误未发生，则继续进行故障排除操作。

确认活动脚本、ActiveX 和 Java 未被阻止
确认您计算机上的 Internet Explorer 或另外一种程序（如防病毒程序或防火墙）未配置为阻止活动脚本、ActiveX 控件或 Java 小程序。在 Internet Explorer 的“高”安全级别，活动脚本、ActiveX 控件和 Java 小程序被关闭。默认情况下，Internet Explorer 6 和某些 Internet Explorer 5.x 版本针对受限站点区域使用“高”安全级别。默认情况下，Microsoft Windows Server 2003 针对受限站点区域和 Internet 区域使用“高”安全级别。如要为当前网页重置 Internet Explorer 安全设置，请按照下列步骤操作：1. 启动 Internet Explorer。
2. 在“工具”菜单上，单击“Internet 选项”。
3. 在“Internet 选项”对话框中，单击“安全”。
4. 单击“默认级别”。
5. 单击“确定”。
请参见您使用的防病毒程序或防火墙的文档资料，以确定如何打开脚本、ActiveX 和 Java 小程序。

确认您的防病毒程序未设置为扫描“临时 Internet 文件”或“已下