Перейдите по ссылке без подсказки или откройте программу с подсказкой vba excel

Question

Я пытался найти способ открыть программу в Excel, используя VBA, чтобы просто автоматически открывалось вместо того, чтобы вызывать приглашение.Я делаю это, поэтому утром я просто открою свою электронную почту.Я нахожусь в сети, и это не позволит мне изменить что-либо при запуске, кроме манипуляций, которые я использую для открытых файлов Excel.Я пытался использовать функцию оболочки в VBA для автоматического нажатия кнопки и пытался отключить отображение предупреждений.Если это не имеет смысла, я могу попытаться перефразировать его лучше, но сейчас у меня есть код:

Private Sub Workbook_Open()

    ' OrderByDate Macro


     Worksheets("Main Page").Activate


     Application.DisplayAlerts = False



        Range("B4:D20").Select
        ActiveWorkbook.Worksheets("GE Re-Release Website Lookup").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("GE Re-Release Website Lookup").Sort.SortFields.Add _
          Key:=Range("B5:B20"), SortOn:=xlSortOnValues, Order:=xlAscending, _
          DataOption:=xlSortNormal

      With ActiveWorkbook.Worksheets("GE Re-Release Website Lookup").Sort
         .SetRange Range("B4:D20")
         .Header = xlYes
         .MatchCase = False
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
      End With



      Welcome.Show

    Call Shell("C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.EXE", vbNormalFocus)

      'ActiveWorkbook.FollowHyperlink "C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.EXE"


End Sub

Answer 1

Вы не хотите ActiveWorkbook.FollowHyperlink, вы просто хотите Shell(), чтобы запустить Outlook.

См. этот ответ о том, как это настроить.