Как исправить ошибку «Недопустимый вызов процедуры или аргумент (Ошибка 5)» при запуске сценария VBA? - PullRequest
Новая
       49

Как исправить ошибку «Недопустимый вызов процедуры или аргумент (Ошибка 5)» при запуске сценария VBA?

0 голосов
/ 02 мая 2019

У меня есть необработанные данные в рабочей книге, и у меня есть одна рабочая книга Master, я попытался скопировать и вставить значения из рабочей книги необработанных данных в рабочую книгу, очистив все значения в конкретной рабочей таблице Master и добавить карту регионов вмастер книга и мне это удалось.Однако после запуска сценария VBA я получаю сообщение об ошибке «Недопустимый вызов процедуры или аргумент (ошибка 5)».

Может кто-нибудь помочь мне с этим! 

Sub Clear_Existing_Data_Before_Paste()
Dim wkb1 As Workbook
Dim sht1 As Worksheet
Dim wkb2 As Workbook
Dim sht2 As Worksheet
Application.ScreenUpdating = False
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A3").Select
Set wkb1 = Workbooks.Open("D:\AdRefresh\National\SQL\Master Template\Tableau Map.csv")
Set wkb2 = ThisWorkbook
Set sht1 = wkb1.Sheets("Tableau Map")
Set sht2 = wkb2.Sheets("Tableau Map")
sht1.Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
sht2.Range("A3").PasteSpecial xlPasteValues
Application.CutCopyMode = False
wkb1.Close True
Application.ScreenUpdating = True
Range("I3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A3").Select
Sheets("Tableau Map").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("I3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("J3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Range("A1").Select
ActiveSheet.ChartObjects("Chart 2").Activate
Selection.Delete
Range("M4").Select
ActiveSheet.Shapes.AddChart2(494, xlRegionMap).Select
ActiveSheet.ChartObjects("Chart 1").Activate
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveSheet.Shapes("Chart 1").IncrementLeft 291.1764566929
ActiveSheet.Shapes("Chart 1").IncrementTop -65.2940944882
ActiveChart.Legend.Select
ActiveChart.SetElement (msoElementSecondaryCategoryAxisBillions)
ActiveChart.ChartTitle.Select
ActiveChart.SetElement (msoElementChartTitleNone)
Range("E3").Select
Application.CutCopyMode = False
ActiveSheet.ChartObjects("Chart 1").Activate
Range("A2").Select
End Sub
...