在Excel中使用VBA如何在指定的显示器上打开IE?
How do you open IE on specified monitor using VBA in Excel?
我有代码可以将用户窗体置于活动监视器的中心。用户窗体有一个选项可以打开全屏 IE window,它将用户带到一个站点并执行一些 HTML 解析。我想让用户选择在当前或辅助监视器上打开 IE window,但我没有运气在网上找到任何有用的信息。我用来打开IE的VBA如下图。任何指针将不胜感激!
Dim ie As Object
Dim LoginAttempt As String
Set ie = Nothing
Set ie = New InternetExplorerMedium
ie.Visible = False
ie.Navigate "www.gooogle.com”
这可能不是解决此问题的最佳方式,但它适用于我的应用程序。
Sub openBrowser()
Dim ie As Object
Dim Answ As Variant
Set ie = CreateObject("InternetExplorer.Application")
Answ = MsgBox("Do you want to open on scondary monitor?", vbYesNo)
If Answ = vbYes Then ie.Left = 0
ie.fullscreen = True
ie.Visible = True
ie.navigate "https://www.google.com"
End Sub
这对我有用。希望对你有所帮助
/T
我有代码可以将用户窗体置于活动监视器的中心。用户窗体有一个选项可以打开全屏 IE window,它将用户带到一个站点并执行一些 HTML 解析。我想让用户选择在当前或辅助监视器上打开 IE window,但我没有运气在网上找到任何有用的信息。我用来打开IE的VBA如下图。任何指针将不胜感激!
Dim ie As Object
Dim LoginAttempt As String
Set ie = Nothing
Set ie = New InternetExplorerMedium
ie.Visible = False
ie.Navigate "www.gooogle.com”
这可能不是解决此问题的最佳方式,但它适用于我的应用程序。
Sub openBrowser()
Dim ie As Object
Dim Answ As Variant
Set ie = CreateObject("InternetExplorer.Application")
Answ = MsgBox("Do you want to open on scondary monitor?", vbYesNo)
If Answ = vbYes Then ie.Left = 0
ie.fullscreen = True
ie.Visible = True
ie.navigate "https://www.google.com"
End Sub
这对我有用。希望对你有所帮助
/T