0

我正在尝试让 VBA 运行以下代码——这似乎对某些人有效，而不对其他人有效，在阅读了大量博客后，我感到很困惑——因为它对每个人都有效，所以我不知道发生了什么变化。从本质上讲，他们正在点击 Excel 工作簿中的一个按钮，将某些数据从他们的工作表移动到主文件 - 调试突出显示代码的底部ActiveWorkbook.Save......关于可能出错的任何想法？

Sub BulkUpload()

    Dim LN, Match As Integer
    Dim wb As Workbook
    Dim Name As String
    Name = "path goes here"

    Application.ScreenUpdating = False

    Sheets("LADB Bulk Upload").Select
    LN = Range("A2").Value



    Range("A2:HH2").Copy


    Set wb = Workbooks.Open(Filename:=Name)
    If IsError(Application.Match(LN, ActiveSheet.Range("A:A"), 0)) Then

        Range("A100000").End(xlUp).Select
        ActiveCell.Offset(1, 0).Select

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

    Else

        Match = Application.Match(LN, wb.Sheets("Sheet1").Range("A:A"), 0)

        Cells(Match, 1).Select

        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

    End If

    Application.CutCopyMode = False

    **ActiveWorkbook.Save**
    ActiveWorkbook.Close

    Application.ScreenUpdating = True

End Sub
4

0 回答 0