个人中心
文章发布
退出
作者热门文章
- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时，我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
24
4
我正在尝试从网页导入实时数据。然而，该网页似乎是用脚本编写的，因此我似乎无法将数据导入到 Excel 中。我正在尝试运行宏。我进行了搜索，发现以下线程非常有用； Import Data in Excel from a table created by a script in a WebPage (第一个答案)
但我没有足够的知识来调整我的网站代码？
有人可以帮助我吗？谢谢
最佳答案
如果我必须这样做，我的第一个问题是:是否没有另一种直接获取数据的可能性？生成 HTML 和 JavaScript 的服务器还必须从其他地方获取数据。因此，最好的解决方案是，如果您可以从与服务器相同的来源获取数据。例如作为 XML。有许多简单的解决方案可以将 XML 导入 Excel。
如果这是不可能的，那么您将需要一个浏览器，可以呈现此脚本生成的 HTML。幸运的是，使用 VBA，您可以自动化 InternetExplorer。
要使用此代码，您必须在 VBA 中提供一些引用。为此:
代码属于模块。
Option Explicit
Private oBrowser As InternetExplorer
Private Sub openBrowserAndLogin()
Set oBrowser = New InternetExplorer
With oBrowser
.Visible = True
.navigate "http://rtm-test.nexala.com/fleet"
Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
On Error Resume Next
With .Document.forms("spectrumLoginForm")
.elements("j_username").Value = "test"
.elements("j_password").Value = "***"
.submit
End With
On Error GoTo 0
Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
End With
End Sub
Private Function takeSnapshot() As String
Dim oTables As IHTMLElementCollection
Dim oTable As IHTMLElement
Dim sTableHTML As String
With oBrowser
Set oTables = .Document.getElementByID("fleetGrid").getElementsByTagName("table")
Set oTable = oTables(1)
sTableHTML = oTable.innerHTML
End With
takeSnapshot = sTableHTML
End Function
Private Sub getWebContentOnTime()
Dim oHTMLDoc As IHTMLDocument
Dim oTable As IHTMLElement
Dim oTR As IHTMLTableRow
Dim oCell As IHTMLTableCell
Dim oWS As Worksheet
Dim oClip As DataObject
Dim sTableHTML As String
Dim sDivClassName As String
Dim aClassProps As Variant
Dim dTime As Double
Dim lRows As Long
Dim lCols As Long
Dim lColsRow As Long
sTableHTML = takeSnapshot()
Set oHTMLDoc = New HTMLDocument
oHTMLDoc.body.innerHTML = "<html><table id=""t1"">" & sTableHTML & "</table></html>"
Set oTable = oHTMLDoc.getElementByID("t1")
lRows = 0
lCols = 0
For Each oTR In oTable.Rows
lColsRow = 0
For Each oCell In oTR.Cells
sDivClassName = oCell.FirstChild.className
aClassProps = Split(sDivClassName, "_")
If aClassProps(0) = "fleet" Then
On Error Resume Next
oCell.Style.backgroundColor = aClassProps(1)
oCell.Style.Color = aClassProps(2)
On Error GoTo 0
End If
lColsRow = lColsRow + 1
Next
If lColsRow > lCols Then lCols = lColsRow
lRows = lRows + 1
Next
Set oClip = New DataObject
oClip.SetText "<html><table>" & oTable.innerHTML & "</table></html>"
oClip.PutInClipboard
Set oWS = ThisWorkbook.Worksheets(1)
oWS.Paste Destination:=oWS.Range(oWS.Cells(1, 1), oWS.Cells(lRows, lCols))
dTime = Now + TimeSerial(0, 0, 5)
Application.OnTime EarliestTime:=dTime, _
Procedure:="getWebContentOnTime", _
Schedule:=True
End Sub
Public Sub getWebContentMain()
Dim dTime As Double
Call openBrowserAndLogin
dTime = Now + TimeSerial(0, 0, 10)
Application.OnTime EarliestTime:=dTime, _
Procedure:="getWebContentOnTime", _
Schedule:=True
End Sub
起点是 getWebContentMain。
此代码将使用“Internet 选项”中设置的“Web 内容区域”的安全设置启动 Internet Explorer。因此必须启用“Active Scripting”才能在网页上运行JavaScript。
10 秒后，它将从不断变化的网页中拍摄第一个快照。然后它将每 5 秒拍摄一次快照。
如果您关闭浏览器，代码会以错误结束，但最后的快照会保留。如果您关闭工作簿，它也会结束。
在某些情况下，您的 IE 可能在使用凭据发出 POST 请求后未正确标记 .Busy 和 .ReadyState。如果代码尝试获取 .Document，则会出现错误。在这种情况下，请增加第一个 Application.OnTime 命令的时间值。
问候
阿克塞尔
关于java - 从用脚本编写的网页将数据导入到 Excel，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/25603306/
24
4
0
这个问题与窗口处理或多个浏览器窗口的杂耍无关，而是关于在同一窗口中浏览 Web 应用程序的网页。我遇到这样的情况 1.我导航为屏幕 A->屏幕 x->屏幕 Y->屏幕 B 2.我需要捕获首次登录时屏幕
我有这个要求: The system will record the length of time the user displayed each page. 虽然在富客户端应用程序中微不足道，但我不
我在调试 JavaScript 网页时遇到问题。我遇到困难的地方是我标记 (...) 的地方。我收到未定义的错误。我是否将函数 countDown(start, Increment) 中的参数(即 s
需要一些帮助。我刚开始学习 HTML，今天一直在研究如何制作菜单，但在这样做时遇到了问题。 我似乎不知道如何在屏幕上居中显示菜单。 这就是我目前所拥有的； Home
我想通过单击按钮将小程序的任何参数发送到浏览器。 (HTML)。我知道按钮对象有一些方法，但不知道使用哪个。我怎样才能做到这一点？ps .: 我使用的是 jnlp 协议(protocol)。 类似于:
我应该使用Wikipedia的文章链接数据转储从组织的网站中提取代表性术语。 为此，我已经- 抓取并下载了该组织的网页。 (〜110,000) 创建了Wikipedia ID和术语/标题的字典。 (约
我的网页中包含 javascript 函数... function callFromAndroid(varName) { alert("call from android activated by
我想创建一个 Java 应用程序，允许用户导入网页并能够在程序中对其进行编辑。 导入网页将对其进行渲染，并且页面的组件(图像、文本等)将是可编辑或可拖动的，从而允许用户重新布局组件。 例如，用户可以加
当我们按下按钮时，我向 JFrame 添加了一个网页(网页在同一框架中打开)。效果很好。但我想向其中添加一个scrollPane，但是当我添加 JScrollPane jsp = new JScrol
我在使用 particles.js 时无法将图像居中。图像居中，但略微偏离中心。为什么要这样做，我如何才能将它居中？ html particles.js demo CSS
我正在尝试在加载页面时播放音频，它应该非常简单但我无法完成。 问题是它没有播放，我尝试检查自动播放的状态(真/假)，它说它在页面加载时播放，尽管它没有播放，还尝试制作一个将改变自动播放的功能状态为
我正在尝试显示用户从列表中选择的图像，但我在屏幕上看不到任何内容。 .container { position: relative; } .ce
这听起来有点奇怪，但我需要一些帮助，网页必须有一行必须包含三个部分，第一部分必须有 1 列的偏移量，并且部分之间的空间必须是 10px到目前为止，使用 Bootstrap 一切顺利。 现在第二行将有
这个问题在这里已经有了答案: Web and physical units (2 个答案) Div width in cm (inch) (6 个答案) 关闭 9 年前。
这个问题不太可能帮助任何 future 的访问者；它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关，这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用，visit
我想将我的 IPython 笔记本的宽度设置为 2500 像素，并且我希望它左对齐。我该怎么做？ 我使用这段代码来应用我自己的 CSS: from IPython.core.display impor
关闭。这个问题需要更多focused .它目前不接受答案。 想改进这个问题吗？ 更新问题，使其只关注一个问题 editing this post . 关闭 7 年前。 Improve this q
我在 Word 中制作了一份文档，希望人们在其中添加自己的姓名以及他们的教学经验。我已将其保存为网页并发布到此处: http://epicforum.net/TS ...但操作部分实际上就是这样: h
这个问题在这里已经有了答案: Execute JS code after pressing the spacebar (5 个答案) 关闭 4 年前。
我正在开发一个只有两个页面的网站。 1.登录 2.首页 我正在使用 Angular 框架。 app.config(['$routeProvider', function ($routeProvider
我是一名优秀的程序员,十分优秀！