这里是导入用IE自动化数据的代码。
输入参数
开始日期(在Sheet按照下面的截图输入)= B3
结束日期= B4
Şirketler= B5(它允许哪些应该出现下面B5等倍数值)

页输入ViewSource的Fileds 
代码是如何工作的:
- 的代码创建Internet Explorer中的对象并导航到 site
- 等待,直到页面完全加载和准备。 (IE。readyState的)
- 创建对象的HTML类
- 提交按钮
- 迭代直通表dgFunds的每一行输入值从工作表Sheet(txtDateBegin,txtDateEnd,lstCompany)
- 点击该输入字段和转储到Excel中Sheet2中
代码:
Dim IE As Object
Sub Website()
Dim Doc As Object, lastRow As Long, tblTR As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
navigate:
IE.navigate "http://www.spk.gov.tr/apps/MutualFundsPortfolioValues/FundsInfosFP.aspx?ctype=E&submenuheader=0"
Do While IE.readystate <> 4: DoEvents: Loop
Set Doc = CreateObject("htmlfile")
Set Doc = IE.document
If Doc Is Nothing Then GoTo navigate
Set txtDtBegin = Doc.getelementbyid("txtDateBegin")
txtDtBegin.Value = Format(Sheet1.Range("B3").Value, "dd.MM.yyyy")
Set txtDtEnd = Doc.getelementbyid("txtDateEnd")
txtDtEnd.Value = Format(Sheet1.Range("B4").Value, "dd.MM.yyyy")
lastRow = Sheet1.Range("B65000").End(xlUp).row
If lastRow < 5 Then Exit Sub
For i = 5 To lastRow
Set company = Doc.getelementbyid("lstCompany")
For x = 0 To company.Options.Length - 1
If company.Options(x).Text = Sheet1.Range("B" & i) Then
company.selectedIndex = x
Set btnCompanyAdd = Doc.getelementbyid("btnCompanyAdd")
btnCompanyAdd.Click
Set btnCompanyAdd = Nothing
wait
Exit For
End If
Next
Next
wait
Set btnSubmit = Doc.getelementbyid("btnSubmit")
btnSubmit.Click
wait
Set tbldgFunds = Doc.getelementbyid("dgFunds")
Set tblTR = tbldgFunds.getelementsbytagname("tr")
Dim row As Long, col As Long
row = 1
col = 1
On Error Resume Next
For Each r In tblTR
If row = 1 Then
For Each cell In r.getelementsbytagname("th")
Sheet2.Cells(row, col) = cell.innerText
col = col + 1
Next
row = row + 1
col = 1
Else
For Each cell In r.getelementsbytagname("td")
Sheet2.Cells(row, col) = cell.innerText
col = col + 1
Next
row = row + 1
col = 1
End If
Next
IE.Quit
Set IE = Nothing
MsgBox "Done"
End Sub
Sub wait()
Application.wait Now + TimeSerial(0, 0, 10)
Do While IE.readystate <> 4: DoEvents: Loop
End Sub
输出继电器表在表2

HTH
你有办法来自动填充该网页上列出生成你想要的数据?如果你不能这样做,那么你最好使用“下载为xls”选项,因为无论如何你都必须手动完成。 – NickSlash 2013-04-11 23:15:37
旁注:可能要使用另一个图像主机,很多弹出窗口都是NSFW – NickSlash 2013-04-11 23:18:00
我该如何实现自动化?我需要在该页面上命名为Allianz的公司的数据...我已将示例excel文件添加到http://uploading.com/folders/get/b491mfb6/excel-web-query – 2013-04-11 23:30:19