Я пытаюсь заставить 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