Question

我的默认网络浏览器是Google Chrome版本39.0.2171.95米。以下网址在Chrome中无法正常运行，但在IE中也是如此：＆＃34; https://secure.crbonline.gov.uk/enquiry/multipleEnquirySearch.do＆＃34;。我已经编写了以下代码来尝试在IE中打开链接，但它的作用是打开IE，然后打开Chrome中的超链接。我怎样才能让它在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浏览器

1 个答案: