Можете ли вы с помощью Excel VBA опубликовать запрос, в который внесли изменения?

Хорошо, Кевин Лу-MSFT дал мне достаточно информации, чтобы во всем разобраться. Спасибо, Кевин! Вот обновленная версия подпрограммы, которая существует уже много лет. Эта подпрограмма принимает интересующую подстроку имени элемента управления в качестве аргумента, а затем выполняет этот элемент управления.

Я проверил это, и это работает! Я надеюсь, что это поможет кому-то еще.

Call ExecuteTeamControlOnWorksheet("OneFeature", "IDC_REFRESH") ' Execute Refresh
Call ExecuteTeamControlOnWorksheet("OneFeature", "IDC_SYNC") ' Execute Publish

Private Sub ExecuteTeamControlOnWorksheet(worksheetName As String, teamControlName As String)

    Dim activeSheet As Worksheet
    Dim teamQueryRange As Range
    Dim refreshControl As CommandBarControl
    
    Set refreshControl = FindTeamControl(teamControlName)

    If refreshControl Is Nothing Then
        MsgBox "Could not find Team Foundation commands in Ribbon. Please make sure that the Team Foundation     Excel plugin is installed.", vbCritical
        Exit Sub
    End If

    ' Disable screen updating temporarily so that the user doesn’t see us selecting a range
    Application.ScreenUpdating = False

    ' Capture the currently active sheet, we will need it later
    Set activeSheet = ActiveWorkbook.activeSheet
    Set teamQueryRange = Worksheets(worksheetName).ListObjects(2).Range

    teamQueryRange.Worksheet.Select
    teamQueryRange.Select
        
    refreshControl.Execute
    

    activeSheet.Select
    

    Application.ScreenUpdating = True
    
    
    'MsgBox "Completed " + worksheetName + " Query "
    
    Debug.Print "Completed " + worksheetName + " Query "
        
End Sub

Private Function FindTeamControl(tagName As String) As CommandBarControl

    Dim commandBar As commandBar
    Dim teamCommandBar As commandBar
    Dim control As CommandBarControl
    
' Caption is the name displayed on the Control on the Excel Team Tab
' Tag is the Tag name for that control. This is the string this
' The original example of this dropped the -TBB off the end, 
' so I've been following this practice
' To find the Refresh button, use IDC_REFRESH, for Publish use IDC_SYNC
'   Caption               : Tag
'   New List              : IDC_NEW_WI_LIST-TBB
'   Get Work Items        : IDC_IMPORT-TBB
'   Publish               : IDC_SYNC-TBB
'   Refresh               : IDC_REFRESH-TBB
'   List                  : IDC_CONFIGURE_LIST-TBB
'   Choose Columns        : IDC_COLUMN_CHOOSER-TBB
'   Links and Attachments : IDC_LINKS_ATTACHMENTS-TBB
'   Open in Web Access    : IDC_OPEN_IN_WEB_ACCESS-TBB
'   Select User           : IDC_IDENTITY_PICKER-TBB
'   Add Tree Level        : IDC_ADD_SUBLEVEL_COLUMN-TBB
'   Add Child             : IDC_ADD_NEW_CHILD-TBB
'   Indent                : IDC_INDENT-TBB
'   Outdent               : IDC_OUTDENT-TBB

    For Each commandBar In Application.CommandBars
        If commandBar.Name = "Team" Then
            Set teamCommandBar = commandBar
            Exit For
        End If
    Next

    If Not teamCommandBar Is Nothing Then
        For Each control In teamCommandBar.Controls
            If InStr(1, control.Tag, tagName) Then
                Set FindTeamControl = control
                Exit Function
            End If
        Next
    End If
End Function