Question

除非被“踩入”并且在按下“ F8”后单击该行，否则经常被多个人使用的宏将无法正常运行。

该宏将存储在Personal.xlsb中。操作的理论是，我们将从第三方供应商将数据导出到文件扩展名为.xlsx的个人工作站上。然后，我们将打开它，启用宏，运行宏，然后将格式化第三方数据，并将一个预定范围复制并粘贴到最后使用的行下方。格式化可以按预期工作，但是不会将预定范围粘贴到工作表上，除非我“进入”，用“ F8”运行每一行，然后在击中后单击回到我正在处理的personal.xlsb模块“ F8”。

Sub ILARNG_TRANS()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic

    Workbooks.Open ("\\PRIVATESERVER\Trans Affecting and Non\END_OF_REPORT.xlsx")

    Dim wsCopy As Worksheet
    Dim wsDest As Worksheet
    Dim CopyLastRow As Long
    Dim DestLastRow As Long

    Set wsCopy = Workbooks("END_OF_REPORT.xlsx").Worksheets("404")
    Set wsDest = ThisWorkbook.Worksheets("Sheet1")

    CopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
    DestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

    wsCopy.Range("A1:E" & CopyLastRow).Copy _
        wsDest.Range("A" & DestLastRow)
    Workbooks("END_OF_REPORT.xlsx").Close SaveChanges:=False
End Sub

我想运行此宏而不必“进入”并使用“ F8”运行

除非“进入”，否则无法运行Personal.xlsb宏

0 个答案: