我想将每月总付款值解析为Excel电子表格中的单元格

我想将每月总付款值解析为Excel电子表格中的单元格,第1张

我正在研究一个分析问题,其中需要来自Amazon EC2计算器的一些信息。

我有一个电子表格,可以执行一些标准分析,每次迭代我都需要AWS提供的特定服务成本。

我的解决方案在用户表单中调用AWS简单计算器,允许用户指定他将从AWS使用的服务类型,然后通过按下按钮,在同一用户表单上放置他的每月总付款的值必须解析为主工作簿中的单元格。对于每个测试场景,应该重复该操作。

请非常感谢VBA的一些帮助,它将从网站获取价值并将其解析为工作簿中的单元格。

谢谢,

顶点变形。

P.S。这是我使用的代码:

Private IE As Object, obj As Object
Private row As Integer, cell As Integer, table As Integer
Private elemCollection As Object

Private Sub UserForm_Initialize()
Set IE = CreateObject("InternetExplorer.Application")
With IE
Me.WebBrowser1.Navigate "http://calculator.s3.amazonaws.com/index.html"

     ThisWorkbook.Sheets("Sheet3").Range("A1:Z1000").ClearContents

End With

End Sub

Private Sub bm_ImportData_Click()
Set elemCollection = IE.Document.getElementsByTagName("TABLE")
    For table = 0 To (elemCollection.Length - 1)
        For row = 0 To (elemCollection(table).Rows.Length - 1)
            For cell = 0 To (elemCollection(table).Rows(row).Cells.Length - 1)
                ThisWorkbook.Sheets("Sheet3").Cells(row   1, cell   1) = elemCollection(table).Rows(row).Cells(cell).innerText
            Next cell
        Next row
    Next table
 Set IE = Nothing
 End Sub

最佳答案:

0 个答案:

没有答案
本文经用户投稿或网站收集转载,如有侵权请联系本站。

发表评论

0条回复