當我的編程知識為零并且既不了解 VBA 的基礎知識和創建宏時，我一直在絞盡腦汁思考解決方案。我上網尋找答案，但仍然只能提出一個低于標準的解決方案，所以我正在尋求幫助。
我的問題是：我有一個包含表格的 excel 檔案，并且該表格有過濾器。對于日期。在該表中，我有一列指定用于我想在 IE 上打開的鏈接（這不是我的默認瀏覽器，但它 (IE) 用于僅適用于 IE 的公司資料庫）。
鏈接具有分配給它們的唯一 ID 號（在 G 列上），因此每個鏈接的格式類似于 http://site(.)com/uniqueIDnumber（與 G 列中的 ID 號連接）。我希望能夠按相關日期過濾表格，這樣當我點擊剩余的超鏈接（順便說一下，我將它們連接起來）時，Excel 會被提示在 Internet 上打開這些連接的鏈接資源管理器（無需登錄）。
到目前為止，通過我長達數小時的瀏覽，我已經設法以某種方式結束了這段代碼（我使用了不同的站點名稱來匿名保護資料）。它所做的是一次打開它在指定列上找到的所有鏈接。這里是：
Sub openurl()
Dim IELocation As String
Dim MyURL As String
Dim i As Integer
Dim FinalRowFiltered As Long
FinalRowFiltered = Sheet4.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To FinalRowFiltered
MyURL = Sheet4.Cells(i, 7)
IELocation = "C:\Program Files\Internet Explorer\iexplore.exe"
Shell (IELocation & " http://tool.filings.irc.site.com/tool/" & MyURL)
Next i
End Sub
我已經設法使用我擁有的代碼（從 youtube 和 google 搜索復制）是一次打開所有鏈接，這是災難性的（正如你可以想象的那樣）。我只需要根據我放置過濾器后剩下的內容打開鏈接。請讓我知道如何解決這個問題。提前致謝！
以下是為澄清而提供的圖片鏈接。顯示的是 A 到 I 列和 1-20 行
uj5u.com熱心網友回復：
您可以使用 HYPERLINK() 公式執行此操作。
例如，如果您在（例如）C2 中有“https://google.com/search?q=hyperlinks”，并且在 D2 中有此公式，則單擊“查看”將使用 IE 從 C2 打開 URL：
=HYPERLINK("#ShowInIE(""" & C2 & """)","View")
將此功能放在常規模塊中
'This function called from worksheet HYPERLINK() formula
Function ShowInIE(url) As Range
Dim ie As Object
On Error Resume Next
Set ie = GetObject("", "InternetExplorer.Application") 'get open iE?
On Error GoTo 0
'if was not open then open a new instance
If ie Is Nothing Then Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate url
Set ShowInIE = Selection 'must do this in a function called from a hyplerlink
End Function
uj5u.com熱心網友回復：
因此，如果我理解您的帖子，您可以連接 URL，您只需要在 IE 中打開它并且您的 Shell 行不起作用？
一種可能的解決方案是使用 InternetExplorer 物件。有很多關于如何使用它的資訊。在這個網站上搜索應該會為您提供很多資訊。
打開 URL 的基本用例如下所示：
Dim ieApp As InternetExplorer
Set ieApp = New InternetExplorer
ieApp.Visible = True
‘url is your concatenated url variable
ieApp.Navigate url
轉到參考并啟用 Microsoft Internet 控制元件以使用該物件。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/419310.html
標籤：