我正在研究一个分析问题,其中需要来自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