Question

我有这段代码可以遍历文件，并将特定单元格中的值带到工作簿中的两个不同工作表中。

执行代码时，它只会将值带到第一个工作表“ OEE Plants”，而将第二个“ Production Final Mix”留空。
当我逐步运行它时，它可以正常工作。你能帮我解决这个问题吗？谢谢！

Sub File_Loops()

Dim MyFolder As String
Dim MyFile As String
Dim c As Integer
Dim R As Integer

With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Show
    MyFolder = .SelectedItems(1)
    Err.Clear
End With

Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

MyFile = Dir(MyFolder & "\", vbReadOnly)

Dim mwb As Workbook, o As Long

Set mwb = Workbooks("MasterFile1.xlsm")

Do While MyFile <> ""
    On Error GoTo 0
    With Workbooks.Open(Filename:=MyFolder & "\" & MyFile, UpdateLinks:=False, ReadOnly:=True)
        mwb.Worksheets("OEE Plants").Cells(4, "D").Offset(Int(o / 12), o Mod 12) = _
            .Worksheets(1).Range("J23").Value
        mwb.Worksheets("Production Final Mix").Cells(4, "C").Offset(Int(o / 12), o Mod 12) = _
            .Worksheets(1).Range("C8").Value
        o = o + 1
        .Close SaveChanges:=False
    End With
    MyFile = Dir
Loop

Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
Application.Calculation = xlCalculationManual

End Sub

代码在执行时不做任何更改

0 个答案: