Ошибка VBA Runtime 1004 «Определенная пользователем или объектная ошибка»

Question

У меня есть несколько рабочих листов для заполнения данных для моих встреч. Каждый раз, когда я пытаюсь запустить, я получаю ошибку памяти, а затем ошибку «1004». Я новичок в кодировании, поэтому, пожалуйста, подробно расскажите. Какие-либо предложения?

Sub PullData() 

    Application.ScreenUpdating = False 
    Application.EnableEvents = False 

    Sheets("Production").Select 

    Dim StartYear As String 
    Dim StartMonth As String 
    Dim StartDay As String 

    Dim EndYear As String 
    Dim EndMonth As String 
    Dim EndDay As String 

    Dim NextDay As String 
    Dim StartHour As String 
    Dim EndHour As String 

    StartYear = Year(Range("b2").Value) 
    StartMonth = Month(Range("b2").Value) 
    StartDay = Day(Range("b2").Value) 

    EndYear = Year(Range("b2").Value) 
    EndMonth = Month(Range("b2").Value) 
    EndDay = Day(Range("b2").Value) 

    NextDay = EndDay + 1 

    StartHour = Hour(Range("b3").Value) 
    EndHour = Hour(Range("b3").Value) 




    Sheets("PPA").Select 
    Cells.Select 
    Selection.ClearContents 
    With ActiveSheet.QueryTables.Add(Connection:="URL;https://fclmportal.amazon.com/ppa/inspect/node?nodeType=FC&warehouseId=ONT8&startDateDay=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&startDateWeek=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&startDateMonth=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&maxIntradayDays=1&spanType=Intraday&startDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&startHourIntraday=" & StartHour & "&startMinuteIntraday=0&endDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&endHourIntraday=" & EndHour & "&endMinuteIntraday=0", Destination:=Range("A1")) 

    Selection = 3 
    Formatting = None 
    PreFormattedTextToColumns = True 
    ConsecutiveDelimitersAsOne = True 
    SingleBlockTextImport = False 
    DisableDateRecognition = False 
    DisableRedirections = False 


    End With 

    Sheets("PPR").Select 
    Cells.Select 
    Selection.ClearContents 
    With ActiveSheet.QuryTables.Add(Connection:="URL;https://fclm-portal.amazon.com/reports/processPathRollup?reportFormat=HTML&warehouseId=ONT8&startDateDay=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&maxIntradayDays=1&spanType=Intraday&startDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&startHourIntraday=" & StartHour & "&startMinuteIntraday=0&endDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&endHourIntraday=" & EndHour & "&endMinuteIntraday=0&_adjustPlanHours=on&_hideEmptyLineItems=on&employmentType=AllEmployees", Destination:=Range("A1")) 

    Selection = 2 
    Formatting = None 
    PreFormattedTextToColumns = True 
    ConsecutiveDelimitersAsOne = True 
    SingleBlockTextImport = False 
    DisableDateRecognition = False 
    DisableRedirections = False 

     End With 


     Sheets("FR").Select 
     Cells.Select 
     Selection.ClearContents 
     With ActiveSheet.QueryTables.Add(Connection:="URL;https://fclm-portal.amazon.com/reports/functionRollup?warehouseId=ONT8&spanType=Intraday&startDate=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "T" & StartHour & ".000&endDate=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "T" & EndHour & ".000&reportFormat=HTML&processId=01003021", Destination:=Range("A1")) 

     Selection = Summary 
     Formatting = None 
     PreFormattedTextToColumns = True 
     ConsecutiveDelimitersAsOne = True 
     SingleBlockTextImport = False 
     DisableDateRecognition = False 
     DisableRedirections = False 

     End With 

     Sheets("PR").Select 
     Cells.Select 
     Selection.ClearContents 
     With ActiveSheet.QueryTables.Add(Connection:="URL;https://fclm-portal.amazon.com/reports/functionRollup?reportFormat=HTML&warehouseId=ONT8&processId=1003032&maxIntradayDays=1&spanType=Intraday&startDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&startHourIntraday=" & StartHour & "&startMinuteIntraday=0&endDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&endHourIntraday=" & EndHour & "&endMinuteIntraday=0", Destination:=Range("A1")) 

     Selection = Summary 
     Formatting = None 
     PreFormattedTextToColumns = True 
     ConsecutiveDelimitersAsOne = True 
     SingleBlockTextImport = False 
     DisableDateRecognition = False 
     DisableRedirections = False 

     End With 

     Sheets("PV").Select 
     Cells.Select 
     Selection.ClearContents 
     With ActiveSheet.QueryTables.Add(Connection:="URL;https://fclm-portal.amazon.com/reports/functionRollup?reportFormat=HTML&warehouseId=ONT8&processId=1003018&startDateDay=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&maxIntradayDays=1&spanType=Intraday&startDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&startHourIntraday=" & StartHour & "&startMinuteIntraday=0&endDateIntraday=" & StartYear & "%2F" & StartMonth & "%2F" & StartDay & "&endHourIntraday=" & EndHour & "&endMinuteIntraday=0", Destination:=Range("A1")) 

    Selection = Summary 
    Formatting = None 
    PreFormattedTextToColumns = True 
    ConsecutiveDelimitersAsOne = True 
    SingleBlockTextImport = False 
    DisableDateRecognition = False 
    DisableRedirections = False 

    End With 

    End Sub 

Answer 1

Методы внутри With ... End With должны предваряться . это выдаст ошибку наверняка, так что вы должны исправить довольно несколько строк кода. И Selection может не работать даже исправление этого (у меня нет Excel здесь, чтобы его проверить).

Кроме того, удобно полностью квалифицировать ваши Range с. См. this answer, только в качестве примера. Это появляется снова и снова.