Как решить ошибку отладки VBA на .save? - PullRequest
0 голосов
/ 20 января 2020

Я пытаюсь заставить 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...