(接上,500字超了)
Else
MsgBox "A1单元格不包含超级链接。"
wb.Close SaveChanges:=False
End If
Set ws = Nothing
Set wb = Nothing
End Sub
这样点击按钮,或者按ALT+数字,就可以了。
如果选择打开宏文件,则还可以给宏加一个命令(比如 CTRL+Q),这样也可以的。
Sub OpenWorkbookAndClickHyperlink()
Dim wb As Workbook
Dim ws As Worksheet
Dim hyperlinkAddress As String
Dim filePath As String
filePath = "D:\wps\a.xlsm"
Set wb = Workbooks.Open(filePath)
Set ws = wb.Sheets(1)
If ws.Range("A1").Hyperlinks.Count > 0 Then
hyperlinkAddress = ws.Range("A1").Hyperlinks(1).Address
ws.Range("A1").Hyperlinks(1).Follow
' Application.Wait (Now + TimeValue("0:00:02")) '
wb.Close SaveChanges:=False
(未完待续)