2017-10-20 224 views
-1

我有代码,以活动监视器上的用户窗体中心。用户窗体可以选择打开一个全屏幕的IE窗口,该窗口将用户带到一个站点并执行一些HTML解析。我想给用户选择打开当前或次要监视器上的IE窗口,但我没有运气在网上找到任何有用的信息。下面显示了我用来打开IE的VBA。任何指针将不胜感激!如何在Excel中使用VBA在指定的监视器上打开IE?

Dim ie As Object 
    Dim LoginAttempt As String 
    Set ie = Nothing 
    Set ie = New InternetExplorerMedium 
    ie.Visible = False 
    ie.Navigate "www.gooogle.com” 
+1

请使用[如何问一个问题(https://stackoverflow.com/help/how-to-ask) – Maldred

+0

@Maldred,我没有看到这是如何帮助...我通过阅读标题得到了问题,它只是我无法用谷歌和测试回答它;-) – Harry

+0

那么你改变了你的问题,这似乎就像你之前只是要求代码。不幸的是,我无法回答这个问题,但是快速的谷歌搜索提出了这个问题! [也许这可以帮助吗?](https://www.experts-exchange.com/questions/27867541/如何 - 可以 - 指定 - 什么 - 屏幕 - 打开 - 应用程序 - .html)另外,尝试发布你的代码,你试图将它添加到,也许其他人在这里有更多的知识可以有更好的帮助 – Maldred

回答

0

这可能不是最理想的方式,但它适用于我的应用程序。

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

+0

我必须将ie.Left值从0更改为1060将窗口移动到我的下一个监视器,但这正是我正在寻找的。谢谢T! – dman

相关问题