小编use*_*035的帖子

我编写了一个VBA Sub(下面),它应该打开给定目录中的所有.docx和/或.xlsx文件,执行查找/替换操作,然后用新文件覆盖原始文件.这对于.xlsx文件运行时每隔一段时间运行一次,并且每隔一段时间就会抛出对象'_Global'的错误"Method'heets'失败".这是我在VBA编程的第一次尝试,所以可能有一个非常简单的答案,我看不到.它打破了代码行:"For i = 1 to oWB.Sheets.Count"

谢谢你的期待

Option Explicit
Public SearchPhrase As String
Public ReplacePhrase As String

Sub StringReplacer()

 Dim fd As FileDialog
 Dim PathOfSelectedFolder As String
 Dim SelectedFolder
 Dim SelectedFolderTemp
 Dim MyPath As FileDialog
 Dim fs
 Dim ExtraSlash As String
 ExtraSlash = "\"
 Dim MyFile
 Dim rngTemp As Range
 Dim MinExtensionX As String
 Dim arr() As Variant
 Dim lngLoc As Variant
 Dim oExcel As New Excel.Application
 Dim oWB As Excel.Workbook
 Dim ws As Worksheet …