我一直在絞盡腦汁地思考一個解決方案，因為我的編程知識為零，也不知道VBA和創建宏的基本知識。我在網上尋找答案，但仍然只能想出一個不合格的解決方案，所以我請求幫助。
我的問題是這樣的。我有一個excel檔案，其中有一個表，而這個表有過濾器。對于日期。在該表中，我有一列指定用于我希望在 IE 上打開的鏈接（這不是我的默認瀏覽器，但它（IE）是為公司的資料庫準備的，只在 IE 上作業）。
這些鏈接有分配給它們的唯一的ID號碼（在G列），所以格式就像http:// site(.)com/uniqueIDnumber（與G列的ID號碼相連接）每個鏈接。我想實作的是能夠通過相關日期過濾該表，這樣，當我點擊剩余的超鏈接（順便說一下，這些鏈接是我串聯的）時，Excel將被提示在Internet Explorer上打開這些串聯的鏈接（無需登錄）。
到目前為止，在我長達數小時的瀏覽中，我不知不覺地最終得到了這段代碼（為了保護資料，我使用了不同的網站名稱以示匿名）。它的作用是一次性打開它在指定欄目上找到的所有鏈接。這里是：
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) 。
For i = 2 To FinalRowFiltered
MyURL = Sheet4.Cells(i, 7)
IELocation = "C:Program FilesInternet Exploreriexplore.exe"/span>
Shell (IELocation & " http://tool.filings.irc.site.com/tool/"/span> & 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")
把這個函式放在一個普通的模塊中
'此函式從作業表HYPERLINK()公式中呼叫。
Function ShowInIE(url) As Range
Dim即As Object
On Error Resume Next
Set ie = GetObject(""/span>, "InternetExplorer.Application") 'get open iE?。
On Error GoTo 0
'如果沒有打開，則打開一個新的實體。
If 即 Is Nothing Then Set ie = CreateObject("InternetExplorer. 應用")
ie.Visible = True[/span]。
ie.navigate url
Set ShowInIE = Selection '必須在一個從hyplerlink呼叫的函式中做這件事。
End Function
uj5u.com熱心網友回復：
因此，如果我理解你的帖子，你能夠連接URL，你只是需要在IE中打開它，而你的Shell線沒有作業？
一個可能的解決方案是利用 InternetExplorer 物件。外面有很多關于如何使用它的資訊在流傳。在這個網站上搜索一下，你應該可以得到很多資訊。
打開一個URL的基本用例是這樣的：
Dim ieApp As InternetExplorer
Set ieApp = New InternetExplorer
ieApp.Visible = True[/span
'url 是您連接的url變數
ieApp.Navigate url
轉到參考資料，并啟用微軟互聯網控制，以便使用該物件。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/320189.html
標籤：