1

我有一个脚本，它将循环浏览 500 多个文件并使用查找和替换过程进行少量编辑。但是，如果找不到字符串，我希望代码打开一个Modeless UserForm允许手动编辑的代码。我想在打开 后执行不同的子例程UserForm，但因为我使用的是For Each循环，所以我无法退出例程然后返回。

该脚本有效，除了Save_User打开时，它的行为就像是Modal. 有两个窗口将打开，但我不能选择它们，并且每个窗口的预览在任务栏中都是白色的。关于为什么会发生这种情况的任何想法？

Option Explicit
Public WB As Workbook, Template As Workbook
Public FindSelection As Range, ReplaceSelection As Range, FirstRow As Range, SecondRow As Range, StaticRange() As String
Public Target As Range, LastRow As Integer
Public FindRange As String, ReplaceRange As String, FindText As String, ReplaceText As String
Public Count As Integer, Updated As Integer
Public Const FilePath = "C:\GenericPath"

Public Sub AddApplicable()

Dim FSO As Object
Dim Folder As Object
Dim File As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder(FilePath)

Count = 0
Updated = 0

For Each File In Folder.Files
    If File.Type Like "Microsoft Excel*" Then

        Application.ScreenUpdating = False

        Set WB = Workbooks.Open(File.Path)

        Set FindSelection = WB.Worksheets("Repair Instruction").Range("K17:W40")
        Set ReplaceSelection = WB.Worksheets("Repair Instruction").Range("X17:AJ40")

        LastRow = WB.Worksheets("Repair Instruction").Range("K40:W40").End(xlUp).Row

        Set Target = FindSelection.Find(FindText, LookAt:=xlWhole)

        If Target Is Nothing Then
            If LastRow = 39 Then

                Save_User.Show vbModeless
                While Save_User.Visible
                    DoEvents
                Wend

                GoTo NextAdd

            Else
                If LastRow Mod 2 = 0 Then
                    WB.Worksheets("Repair Instruction").Range("K" & LastRow + 1, "W" & LastRow + 1) = FindText
                    WB.Worksheets("Repair Instruction").Range("X" & LastRow + 1, "AJ" & LastRow + 1) = _
                    Add_User.txtFirst.Value
                    WB.Worksheets("Repair Instruction").Range("X" & LastRow + 2, "AJ" & LastRow + 2) = _
                    Add_User.txtSecond.Value

                Else
                    WB.Worksheets("Repair Instruction").Range("K" & LastRow + 2, "W" & LastRow + 2) = FindText
                    WB.Worksheets("Repair Instruction").Range("X" & LastRow + 2, "AJ" & LastRow + 2) = _
                    Add_User.txtFirst.Value
                    WB.Worksheets("Repair Instruction").Range("X" & LastRow + 3, "AJ" & LastRow + 3) = _
                    Add_User.txtSecond.Value

                End If

                WB.Close True
                Updated = Updated + 1

            End If

        Else

            Set FirstRow = WB.Worksheets("Repair Instruction").Range("X" & Target.Row, "AJ" & Target.Row)
            Set SecondRow = WB.Worksheets("Repair Instruction").Range("X" & Target.Row + 1, "AJ" & Target.Row + 1)
            FirstRow.Value = Add_User.txtFirst.Value
            SecondRow.Value = Add_User.txtSecond.Value
            WB.Close True

        End If

    End If

NextAdd:
    Count = Count + 1
    Next File

    Unload Applicable_User
    Unload Add_User
    Unload Ref_User
    Unload Replace_User

MsgBox (Updated & " of " & Count & " files updated.")

End Sub

编辑

大卫，谢谢你！我什至不会认为这是原因，但我很感激它相对简单！我不知道有任何其他功能会隐藏循环 Excel 文件，因此我编辑了该If语句Save_User：

 If LastRow = 39 Then
            Application.ScreenUpdating = True
            WB.Activate
            Save_User.Show vbModeless
            While Save_User.Visible
                DoEvents
            Wend

            Application.ScreenUpdating = False
            GoTo NextAdd
 ...
 End If

循环 Excel 窗口现在出现以供编辑，但我实际上无法进行任何更改（我的光标现在是十字准线，我可以选择单元格但不能更改它们的值）。任何工作簿都不应该受到保护，所以我缺少什么吗？或者也许是在后台隐藏活动的更好方法（因为我不希望 500 多个文件出现和消失）？

4

1 回答 1

2

这是你的罪魁祸首：

Application.ScreenUpdating = False

这可以防止用户输入。

于 2014-04-24T03:05:03.107 回答