Question

用按键精灵将EXCEL表格数据批量录入到网站

我有一个EXCEL文件,有10000多行,10多列,要将这些数据批量录入到一管理网站对应栏目,请问这需要怎么做!
那个本身就不能，我去看过了！

Answer 1

Sub fund()
Dim url As String
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.ccb.com/portal/cn/fund/fund_index.jsp?fund_code=360006"
Do Until .ReadyState = 4
DoEvents
Loop
url = Split(.Document.body.innerhtml, """>基金净值")(0)
url = Replace("http://www.ccb.com/portal/cn/fund/" & Mid(url, InStrRev(url, "href=""") + 6), "amp;", "")
.Navigate url
Do Until .ReadyState = 4
DoEvents
Loop
.Document.body.all("DATE_BEGIN").Value = "弊扮2007/10/10"
.Document.body.all("DATE_END").Value = "2007/10/15"
.Document.parentWindow.execScript "租冲灶search_fund()", "JScript"
End With
End Sub

这是套代码判颤，里面的内容需要您自行研究和调整了，希望对您有帮助~

Answer 2

试试困漏则这个搜稿？汪棚

Answer 3

Dim url As String
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.ccb.com/portal/cn/fund/fund_index.jsp?fund_code=360006"
Do Until .ReadyState = 4
DoEvents
Loop
url = Split(.Document.body.innerhtml, """>基金净值"肆游亮)(0)
url = Replace("http://www.ccb.com/portal/cn/fund/" & Mid(url, InStrRev(url, "href=""") + 6), "amp;", "")
.Navigate url
Do Until .ReadyState = 4
DoEvents
Loop
.Document.body.all("裂宽DATE_BEGIN").Value = "2007/10/磨岩10"
.Document.body.all("DATE_END").Value = "2007/10/15"
.Document.parentWindow.execScript "search_fund()", "JScript"
End With
End Sub

Answer 4

参闭滑考厅正：轿伏腊
http://club.excelhome.net/thread-276769-1-1.html