相关疑难解决方法(0)

使用Application.DoEvents()

可以Application.DoEvents()在C#中使用吗?

这个函数是否能够让GUI跟上应用程序的其余部分,就像VB6 DoEvents一样?

c# doevents winforms

263
推荐指数
6
解决办法
17万
查看次数

Excel VBA创建嵌入式WebBrowser并使用它

嗨,我正在尝试在电子表格中动态创建Web浏览器然后使用它,但WebBrowser功能似乎不起作用

以下是我创建WebBrowser的方法

Set myWebBrowser = Sheets("test").OLEObjects.Add(ClassType:="Shell.Explorer.2", Link:=False, DisplayAsIcon:=False, left:=147, top:=60.75, width:=141, height:=96)
Run Code Online (Sandbox Code Playgroud)

这会奏效

myWebBrowser.top = 10
Run Code Online (Sandbox Code Playgroud)

但这会给我一个错误

myWebBrowser.Navigate ("about:blank")
Run Code Online (Sandbox Code Playgroud)

关于我应该做什么的任何想法都要感谢你

更新:

这也不起作用并给出错误:

myWebBrowser.Object.Document.body.Scroll = "no"
myWebBrowser.Object.Silent = True
myWebBrowser.Object.Navigate ("about:blank")
While myWebBrowser.Object.ReadyState <> READYSTATE_COMPLETE
    Application.Wait (Now + TimeValue("0:00:01"))
Wend
myWebBrowser.Object.Refresh
Run Code Online (Sandbox Code Playgroud)

更新2(几乎在那里):

现在我需要一种方法来删除Sheet2.Activate Sheet1.Activate

Sheet2.Activate
Sheet1.Activate

Set wb = myWebBrowser.Object

With wb
    .Silent = True
    .Navigate "about:blank"
    Do While .ReadyState <> READYSTATE_COMPLETE
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    .Document.Open "text/html"
    Do While .ReadyState <> READYSTATE_COMPLETE
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    .Document.write …
Run Code Online (Sandbox Code Playgroud)

browser excel vba ole webbrowser-control

6
推荐指数
1
解决办法
4万
查看次数

标签 统计

browser ×1

c# ×1

doevents ×1

excel ×1

ole ×1

vba ×1

webbrowser-control ×1

winforms ×1