我的 excel 在运行宏时变得没有响应，它使用 api 使用分页从 JIRA 获取所有问题

Question

Sub Jira_for_all_issues_v6()
    Dim http As New MSXML2.XMLHTTP60, url As String, response As String, json As Object, startAt As Integer, batchSize As Integer, totalIssues As Integer, _
     issuesCount As Integer, has_subtsk As Boolean, print_row As Long, data As Object, ok_yes As Object, totalIssues5 As Integer, last_row_print As Long, _
     http1 As New MSXML2.XMLHTTP60, url1 As String, response1 As String, json1 As Object, user_name_password_in_base64_encoding As String, i As Integer
    Dim issues As Collection, StartTime As Double, SecondsElapsed As Double
StartTime = Timer
    user_name_password_in_base64_encoding = UserPassBase64()
    Application.ScreenUpdating = False
    
        Worksheets("Sheet2").Cells(1, 1).Value = "Issue id"
        Worksheets("Sheet2").Cells(1, 2).Value = "Issue key"
        Worksheets("Sheet2").Cells(1, 3).Value = "Status"
        Worksheets("Sheet2").Cells(1, 4).Value = "priority"
        Worksheets("Sheet2").Cells(1, 5).Value = "reporter"
        Worksheets("Sheet2").Cells(1, 6).Value = "reporter Id"
        Worksheets("Sheet2").Cells(1, 7).Value = "creator"
        Worksheets("Sheet2").Cells(1, 8).Value = "creator"
        
        url1 = "https://jira/rest/api/2/search?jql=project=project AND issuetype in (Bug)&maxResults=" & 1 & "&startAt=" & 0
    
    'Set the HTTP request properties
    With http1
    .Open "GET", url1, False
    .setRequestHeader "Content-Type", "application/json"
    .setRequestHeader "Accept", "application/json"
    .setRequestHeader "Authorization", "Basic " & user_name_password_in_base64_encoding
 
    
    'Send the HTTP request and retrieve the response
    .send
    End With
    response1 = http1.responseText
    
    'Parse the JSON data using a JSON parser library
    Set json1 = JsonConverter.ParseJson(response1)
    
    totalIssues = json1("total")
    
    startAt = 0
    batchSize = 100
'    print_row = 2
     Set ok_yes = json1("issues")
    
    Do While startAt < totalIssues
        'Set the URL to the JIRA REST API endpoint with the startAt and maxResults parameters
        url = "https://jira-/rest/api/2/search?jql=project=project AND issuetype in (Bug)&maxResults=" & batchSize & "&startAt=" & startAt
        
        'Set the HTTP request properties
        http.Open "GET", url, False
        
      
        http.setRequestHeader "Content-Type", "application/json"
        http.setRequestHeader "Authorization", "Basic " & user_name_password_in_base64_encoding
        'Send the HTTP request and retrieve the response
        http.send
        response = http.responseText
        
        'Parse the JSON data using a JSON parser library
        Set json = JsonConverter.ParseJson(response)
        
        'Extract the desired data from the parsed JSON data and insert it into your Excel worksheet
        
        issuesCount = json("issues").Count
        totalIssues5 = json("total")
        last_row_print = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        
        Set issues = json("issues")
        
        For i = 1 To issuesCount
            Worksheets("Sheet2").Cells(last_row_print, 1).Value = issues(i)("id")
            Worksheets("Sheet2").Cells(last_row_print, 2).Value = issues(i)("key")
            Worksheets("Sheet2").Cells(last_row_print, 3).Value = issues(i)("fields")("status")("name")
            Worksheets("Sheet2").Cells(last_row_print, 4).Value = issues(i)("fields")("priority")("name")
            Worksheets("Sheet2").Cells(last_row_print, 5).Value = issues(i)("fields")("reporter")("displayName")
            Worksheets("Sheet2").Cells(last_row_print, 6).Value = issues(i)("fields")("reporter")("name")
            Worksheets("Sheet2").Cells(last_row_print, 7).Value = issues(i)("fields")("creator")("name")
            Worksheets("Sheet2").Cells(last_row_print, 8).Value = issues(i)("fields")("creator")("displayName")
            
            last_row_print = last_row_print + 1
        Next i
        
        'Update the startAt parameter for the next batch of search results
        startAt = startAt + batchSize
    Loop
      SecondsElapsed = Round(Timer - StartTime, 2)

    MsgBox "All issues have been retrieved."
    
    Application.ScreenUpdating = True
  MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation

End Sub

所以这是我的代码。总共大约有 1000 个问题，运行大约需要 16 分钟。虽然这运行 excel 应用程序变得无响应，但如何防止这种情况以及如何优化此代码的任何提示？

我尝试关闭 appliction.screenupdating 并且它有点工作将它从 18 分钟减少到 16 分钟，我也将批量大小从 50 增加到 100.

Answer 1

在循环的某处挤入一个 DoEvents，像这样

...
    startAt = startAt + batchSize
    DoEvents
Loop
...