excel sendkeys用于弹出窗口

Question

我可以绕过附加的图像吗？或运行SendKeys“{ENTER}”命令。 （如果是这样我就无法开始工作）

我如何循环这个来打开A9 to last的每个单元格的pdf？

Sub Cutsheets()
Application.ScreenUpdating = False

Dim finalrow As Integer    

finalrow = Cells(Rows.Count, 1).End(xlUp).Row

If Not Application.Intersect(ActiveCell, Range("A9:A" & finalrow)) Is Nothing Then

ActiveWorkbook.FollowHyperlink "P:\ESO\1790-ORL\OUC\_Materials\Material Cutsheets\" & ActiveCell & ".pdf"
Application.SendKeys "{ENTER}", True

End If

Application.ScreenUpdating = True

End Sub

感谢您的帮助