你发的代码根本没有格式,试试下面的代码,抓取网页的:
Sub text()Dim xml>
Sub 提取网页信息()
Dim IE As Object, srg$, arr, Ar, brr, i%, j%, sr$, Rst(1 To 10000, 1 To 13)
Set IE = CreateObject("MicrosoftXML>
Sub cc()
CellsClearContents
Set oDoc = CreateObject("htmlfile")
[a1:c1] = Array("时间", "开奖号码", "冠亚军和")
[f1] = "1~5龙虎"
[c1:e1]Merge: [f1:j1]Merge
With CreateObject("MSXML2XML>
以上就是关于用VBA *** 作网页,求助大神,下面是按钮源代码,求逐一按下这些按钮的代码,输入栏输入表1A1格的数据谢谢全部的内容,包括:用VBA *** 作网页,求助大神,下面是按钮源代码,求逐一按下这些按钮的代码,输入栏输入表1A1格的数据谢谢、vba大神请教,strconv函数的应用,我从网页中提取的源码用strconv(xxx.respo、Excel 宏运用&VBA才能解决抓取数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)