在没有提示的情况下关注Hyperlink或使用VBA Excel打开程序

Question

我一直试图找到一种解决方法，以使用VBA自动打开而不是提示出现，在excel中打开程序。 我正在这样做，所以它只会在早上打开我的电子邮件。 我在网络上，除了对excel的打开文件使用的操作外，不允许我对启动程序进行任何更改。 我尝试在VBA中使用Shell函数自动单击按钮，并尝试关闭显示警报。 如果那没有道理，我可以尝试对其重新措词更好，但是现在这是我拥有的代码：

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。

有关如何设置的信息，请参见此答案 。