[文件操作] 【已解决】批处理如何下载网页中的多页表格到本地excel里？

uuu888s

现在想把http://data.eastmoney.com/zrz/dxzf.html 里的35页数据下载到本地excel里
试了下 excel---数据---导入外部数据---新建web查询    貌似第一页都不能完整导入
请教大牛有什么思路 可以一次性下载该数据(共35页)
感谢!

uuu888s

http://data.eastmoney.com/zrz/data.aspx?type=dx&style=zf&page=1&pageSize=1850&sortType=G&sortRule=-1&jsname=wKPapAYy&rt=47514817
貌似所有数据连接  如何把这些数据 还原到一个excel表里?

pcl_test

回复 2# uuu888s
1、浏览器打开http://data.eastmoney.com/zrz/da ... AYy&rt=47514817，并把所有的内容复制粘贴到1.txt里
2、打开1.txt，用记事本替换功能把 "," 替换成<br> ，把数据首尾不必要的字符删掉（这步也可用word打开1.txt，用word替换功能把 "," 替换成^p ，这样就可以忽略第三步）
3、把1.txt重命名为1.html，并用浏览器打开，把所有的内容复制粘贴到2.txt里
4、把2.txt重命名为2.csv，打开2.csv另存为xls表格即可

uuu888s

回复 3# pcl_test


  试了下 可行 但是这个数据经常要更新  每次都这样搞有点麻烦了 能否写个批处理   感谢~~

uuu888s

能否写个批处理   感谢~~

Batcher

回复 3# pcl_test


把网页文件转换为纯文本的命令行工具HtoX32c
http://bbs.bathome.net/thread-1974-1-1.html

CrLf

你要的 xls 在这里，保存为 test.hta 运行即可：

<script src=http://data.eastmoney.com/zrz/data.aspx?type=dx&style=zf&page=1&pageSize=1850&sortType=G&sortRule=-1&jsname=wKPapAYy&rt=47514817></script>
<script src=http://www.bathome.net/lib/xdate.js></script>

<script>
xls = ['股票代码\t股票简称\t相关链接\t发行方式\t发行总数(万股)\t发行价格\t最新价\t发行日期\t增发上市日期\t锁定期']
var data = wKPapAYy.data
for(var i=0;i<data.length;i++){
	var I = data[i].split(",");
	var z = I[0],
		y = I[1],
		r = (I[4] == "") ? "-" : I[4],
		l = (I[5] == "") ? "-" : I[5],
		a = (isNaN(I[7]) || I[7] == "") ? I[7] : parseFloat(I[7]).toFixed(2),
		j = (isNaN(I[8]) || I[8] == "") ? I[8] : parseFloat(I[8]).toFixed(2),
		w = (I[9] == "" || I[9] == "-") ? "-" : new XDate(Date.parse(I[9].replace(/-/ig, "/"))).toString("MM-dd"),
		t = (I[11] == "" || I[11] == "-") ? "-" : new XDate(Date.parse(I[11].replace(/-/ig, "/"))).toString("MM-dd"),
	    _sdq = I[14] == "" ? "&-" : I[14],
    	_hq_link = "http://quote.eastmoney.com/" + z + ".html"
    	
    xls.push([z,y,_hq_link,r,l,a,j,w,t,_sdq].join('\t'))
}

var fso = new ActiveXObject('Scripting.FileSystemObject')
var ts = fso.CreateTextFile('输出.xls',true,true)
ts.Write(xls.join('\r\n'))
ts.Close()

alert('Bingo!')

close()
</script>
复制代码

uuu888s

大牛 我想再在xls里添加自定义的一列,该列里的数值为 最新价减去发行价( 也就是差价G-H )这个怎么在你的代码里实现

CrLf

回复 8# uuu888s


    [z,y,_hq_link,r,l,a,j,w,t,_sdq] 改成 [z,y,_hq_link,r,l,a,j,j-a,w,t,_sdq] 即可，标题栏那里应该很直观，你自己看着改下