初始化时包含WebBrowser的Excel vba用户表单关闭Excel而不显示错误消息，并恢复文件。为什么？

这适用于我的普通笔记本电脑16Gb ram和excel office 365，但当我使用带有4Gb ram和excel office 365的平板电脑时。当我初始化一个包含两个WebBrowser的特定用户表单时，它会导致excel崩溃，我没有收到任何错误消息，它看起来像是在思考这个问题，然后excel只是关闭，然后用恢复的版本重新打开。我所有的其他代码都运行良好

这在我的16Gb内存笔记本电脑上运行正常。windows和excel的版本相同，唯一的区别是4Gb。我原以为它只需要更长的内存差异，这是一个内存问题吗

当我删掉下面几行时，userform加载得很好（很明显，没有网页被导航到）

Me.WebBrowser1.Silent=True
Me.WebBrowser1.Navigate“https://www.nutracheck.co.uk/CaloriesIn/"
Me.WebBrowser2.导航“关于：空白”
Me.WebBrowser2.Document.Write“”
WebBrowser2.Document.Body.Style.Border=“无”
WebBrowser2.Document.Body.Scroll=“否”*

---

Private子用户表单_Initialize（）
应用
'在这里，我有代码来格式化和定位标签和命令按钮
'根据屏幕大小设置用户窗体
以
'下一行抑制web浏览器窗口中的脚本错误
Me.WebBrowser1.Silent=True
Me.WebBrowser1.Navigate“https://www.nutracheck.co.uk/CaloriesIn/"
Me.WebBrowser2.导航“关于：空白”
Me.WebBrowser2.Document.Write“”
应用
WebBrowser1.Top=.Top+40
WebBrowser1.Left=AddARecipe.Left+（AddARecipe.Width*0.48）
WebBrowser1.Height=.Height-40
WebBrowser1.Width=AddARecipe.Width*0.5
以
应用
WebBrowser2.Top=.Top+60
WebBrowser2.左=0'10
WebBrowser2.Height=（AddARecipe.Width*0.243）
WebBrowser2.Width=（AddARecipe.Width*0.45）
WebBrowser2.Visible=False
WebBrowser2.Document.Body.Style.Border=“无”
WebBrowser2.Document.Body.Scroll=“否”
以
端接头

当代码未经更改地运行时，我一步一步地浏览代码，没有出现错误消息，它只是在“end sub”excel关闭

Me.WebBrowser1.Silent = True

Me.WebBrowser1.Navigate "https://www.nutracheck.co.uk/CaloriesIn/"

Me.WebBrowser2.Navigate "about:blank"

Me.WebBrowser2.Document.Write "<img style=""width:100%;""

src=""https://media.giphy.com/media/MIY4jpusckRmU/giphy.gif"">"

WebBrowser2.Document.Body.Style.Border = "none"

WebBrowser2.Document.Body.Scroll = "no"*

Private Sub UserForm_Initialize()

With Application
' here I have code to format and position labels and command buttons on 
'userform according to screen size
End With


'next line suppresses script errors in the web browser window
Me.WebBrowser1.Silent = True

Me.WebBrowser1.Navigate "https://www.nutracheck.co.uk/CaloriesIn/"

Me.WebBrowser2.Navigate "about:blank"
Me.WebBrowser2.Document.Write "<img style=""width:100%;""
src=""https://media.giphy.com/media/MIY4jpusckRmU/giphy.gif"">"

With Application
WebBrowser1.Top = .Top + 40
WebBrowser1.Left = AddARecipe.Left + (AddARecipe.Width * 0.48)
WebBrowser1.Height = .Height - 40
WebBrowser1.Width = AddARecipe.Width * 0.5

End With

With Application
WebBrowser2.Top = .Top + 60
WebBrowser2.Left = 0 '10
WebBrowser2.Height = (AddARecipe.Width * 0.243) 
WebBrowser2.Width = (AddARecipe.Width * 0.45) 
WebBrowser2.Visible = False
WebBrowser2.Document.Body.Style.Border = "none"
WebBrowser2.Document.Body.Scroll = "no"

End With

End Sub