如何自动检查多个网站的时间从Excel加载？

我有一个Excel中的约100个网站，我需要检查网站加载所需的时间。 目前我手动在Internet Explorer中使用开发者工具（F12） > Network > Taken（列）逐个进行。 有没有办法自动执行此检查？

Answer 1

不知道你的VBA水平，这是远远不够完美，但作为一个起点，这是我通常用来刮网站的代码，但我已经稍微修改了多久，每个网站打开。 这假定你有A列所有的网站，它会列出在B列打开一个网站所花费的时间。 请记住，这是macros观计算每个网站运行的时间，因此并不完全准确，实际网站需要加载多长时间。

 Enum READYSTATE READYSTATE_UNINITIALIZED = 0 READYSTATE_LOADING = 1 READYSTATE_LOADED = 2 READYSTATE_INTERACTIVE = 3 READYSTATE_COMPLETE = 4 End Enum Sub ImportWebsiteDate() 'to refer to the running copy of Internet Explorer Dim ie As InternetExplorer, WDApp As Object, staTime As Double, elapsedTime As Double 'to refer to the HTML document returned Dim html As HTMLDocument, websiteNo As Integer, curSite As String websiteNo = Range("A500").End(xlUp).Row 'open Internet Explorer in memory, and go to website Set ie = New InternetExplorer For i = 1 To websiteNo curSite = Cells(i, 1).Value ie.Visible = False staTime = Timer ie.navigate curSite 'Wait until IE is done loading page Do While ie.READYSTATE <> READYSTATE_COMPLETE Application.StatusBar = "Trying to go to " & curSite DoEvents Loop elapsedTime = Round(Timer - staTime, 2) Cells(i, 2).Value = elapsedTime Next i Set ie = Nothing Application.StatusBar = False Application.ScreenUpdating = False End Sub 

如果您复制并粘贴，这将不会正常工作，请阅读本网站以获取有关引用所需应用程序的信息。