Получение сообщения об ошибке Runtime Error 9, выход за пределы допустимого диапазона при выполнении макроса в Excel 2013 - PullRequest
Новая
       5

Получение сообщения об ошибке Runtime Error 9, выход за пределы допустимого диапазона при выполнении макроса в Excel 2013

0 голосов
/ 12 февраля 2019

Процесс:

Я записал макрос для создания сводной таблицы на новом листе, но когда я запускаю свой макрос, я получаю эту ошибку «Ошибка времени выполнения 9, вне диапазона».Пожалуйста помогите.Мой код ниже.Ошибка указывает на эту строку в коде

dataname = ActiveSheet.ListObjects (1) .Name 

Sub LocData()
'
' LocData Macro
'
' Keyboard Shortcut: Ctrl+m
'
Dim dataname As String
Dim newsheet As String

    dataname = ActiveSheet.ListObjects(1).Name

     Sheets.Add
     newsheet = ActiveSheet.Name

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        dataname, Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:=newsheet & "!R3C1", TableName:="PivotTable1", DefaultVersion _
        :=xlPivotTableVersion10
    Sheets(newsheet).Select
    Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("Oversight ID"), "Count of Oversight ID", xlCount
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Reason for LOC")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Approved By User ID")
        .Orientation = xlPageField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Approved By User ID"). _
        CurrentPage = "(All)"
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Approved By User ID")
        .PivotItems("a.hunter").Visible = False
        .PivotItems("abarber1").Visible = False
        .PivotItems("alfredia.stevenson").Visible = False
        .PivotItems("amy.cheek").Visible = False
        .PivotItems("angela.mcfadden").Visible = False
        .PivotItems("annette.bledsoe").Visible = False
        .PivotItems("awhite2").Visible = False
        .PivotItems("becky.peters").Visible = False
        .PivotItems("begnew").Visible = False
        .PivotItems("bflowers-cm").Visible = False
        .PivotItems("bglenn").Visible = False
        .PivotItems("brantlee.noland").Visible = False
        .PivotItems("brooke.schmidt").Visible = False
        .PivotItems("btreanor2").Visible = False
        .PivotItems("c.dent").Visible = False
        .PivotItems("cammons1").Visible = False
        .PivotItems("carly.fieldhouse").Visible = False
        .PivotItems("chaka.ferguson-cm").Visible = False
        .PivotItems("clide1-cm").Visible = False
        .PivotItems("cwillis1").Visible = False
        .PivotItems("dbalansky01").Visible = False
        .PivotItems("dbohanan").Visible = False
        .PivotItems("ddigiampaolo-cm").Visible = False
        .PivotItems("deandrea.mcmullen").Visible = False
        .PivotItems("dgrant").Visible = False
        .PivotItems("dhwise").Visible = False
        .PivotItems("djohnson34").Visible = False
        .PivotItems("dredd").Visible = False
        .PivotItems("drobertson").Visible = False
        .PivotItems("dtinsley4").Visible = False
        .PivotItems("elise.mcquire").Visible = False
        .PivotItems("erin.womack").Visible = False
        .PivotItems("eweston1").Visible = False
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Approved By User ID")
        .PivotItems("hflowers5").Visible = False
        .PivotItems("jbarfield1").Visible = False
        .PivotItems("jewel.russell").Visible = False
        .PivotItems("jsperry3").Visible = False
        .PivotItems("juanita.auker").Visible = False
        .PivotItems("kimberly.holcombe").Visible = False
        .PivotItems("kspears").Visible = False
        .PivotItems("lcovington").Visible = False
        .PivotItems("lcovington3").Visible = False
        .PivotItems("lgeorge").Visible = False
        .PivotItems("lgeorge-cm").Visible = False
        .PivotItems("lholston").Visible = False
        .PivotItems("linda.kunz").Visible = False
        .PivotItems("lmccray-cm").Visible = False
        .PivotItems("mckenzie.johnson").Visible = False
        .PivotItems("melissa.walker").Visible = False
        .PivotItems("mfloyd").Visible = False
        .PivotItems("mstone").Visible = False
        .PivotItems("pamela.barnette").Visible = False
        .PivotItems("rachel.harry").Visible = False
        .PivotItems("rebecca.crenshaw-cm").Visible = False
        .PivotItems("stacy.bobo-cm").Visible = False
        .PivotItems("tburt1").Visible = False
        .PivotItems("theresa.snider").Visible = False
        .PivotItems("yvonne.salinger").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Approved By User ID"). _
        EnableMultiplePageItems = True
    ChDir "C:\Users\MChennault\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\MChennault\Desktop\DDSN-SC____LOC_Detail_Report.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
...