时间戳

首页 > 解决方案 > 从 Firefox 的列中打开各种链接

excel - 从 Firefox 的列中打开各种链接

问题描述

我正在尝试制作一个宏来向报告门户请求报告但不打开门户。目前，下面的代码对我来说效果很好，但我想得到一点帮助。

此时我正在尝试添加一个宏来下载列中标记为“是”的链接。

例如，H 列将是“下载？”，而从 5 到 11 的行是不同的报告，在 H 列中会得到“是”或“否”。我希望宏做的是打开链接如果它们在 H 列中标记为“是”，则在 L 列。

我试图做的是添加，例如，一个“If(H5="Yes";l5;"")”，这样我得到一个只有标记为“是”的链接的列，这是我在运行时遇到的问题宏是它打开空白页以及我标记为“是”的报告。

Sub Test_OpenFireFoxNewTab()
 OpenInFireFoxNewTab (Range("l12").Value)
 OpenInFireFoxNewTab (Range("l11").Value)
 OpenInFireFoxNewTab (Range("l10").Value)
 OpenInFireFoxNewTab (Range("l9").Value)
 OpenInFireFoxNewTab (Range("l8").Value)
 OpenInFireFoxNewTab (Range("l7").Value)
End Sub



Sub OpenInFireFoxNewTab(url As String)
 Dim pathFireFox As String
 pathFireFox = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
 If Dir(pathFireFox) = "" Then pathFireFox = "C:\Program Files\Mozilla Firefox\firefox.exe"
 If Dir(pathFireFox) = "" Then
   MsgBox "FireFox Path Not Found", vbCritical, "Macro Ending"
   Exit Sub
 End If
 Shell """" & pathFireFox & """" & " -new-tab " & url, vbHide
End Sub

提前致谢！！

我是 VBA 新手，试图为此寻找解决方案，但一无所获:(

问候！

标签： excelvbafirefox

解决方案

推荐阅读