通过 Access vba 更改默认 Web 浏览器

Question

我的默认网络浏览器是 Google Chrome 版本 39.0.2171.95 m。以下网址在 Chrome 中无法正常工作，但在 IE 中可以正常工作：“https://secure.crbonline.gov.uk/enquiry/multipleEnquirySearch.do”。我已经编写了以下代码来尝试在 IE 中打开 link，但它所做的是打开 IE，然后在 Chrome 中打开 hyperlink。在这种情况下，我怎样才能让它在 IE 中简单地打开而不运行 Chrome？

Dim stAppName As String
stAppName = "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
Call Shell(stAppName, 1)
FollowHyperlink "https://secure.crbonline.gov.uk/enquiry/multipleEnquirySearch.do"

Answer 1

尝试包括 URL 和 stAppName。

Dim strApp  As String
Dim strURL As String

strApp = "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
strURL = "https://secure.crbonline.gov.uk/enquiry/multipleEnquirySearch.do"
Call Shell(strApp & " " & strURL, 1)

通过 Access vba 更改默认 Web 浏览器

Change Default Web Browser via Access vba

ms-access

vba

google-chrome