这些网页上的数据，可以用VBA编程拷贝下来吗？

suchn · 发表于 2009-8-29 13:24

大家好：
这个网址是一个单词网页：http://www.popmoon.com/word100/f ... Area=204&page=1。想拷贝下来打印背诵，当然这只是第一页，一共60多页。本来想用笨办法，手动复制的，可是每一页拷贝时机子显得很慢，格式也很乱，从百度上搜到似乎用VBA可以实现，但是自己不懂这个语言，请高手指教，谢谢了。

suchn · 发表于 2009-8-29 13:55

无人回帖，希望高手快出现，在等呢

laoyebin · 发表于 2009-8-29 14:02

这种提取方法我也想学习，帮顶

不过你这样背单词，不如直接去买本老俞的GRE红宝书更好呢

itxianfeng · 发表于 2009-8-29 22:43

关键是下载网页数据的方法及其步骤，我也想学学，建议版主做个拷贝网页数据的代码模块大家能够照着套用就好了。使用的时候，只需修改网页地址
这一方法是我没有解决的难题，期盼有心人能看到此贴

[ 本帖最后由 itxianfeng 于 2009-8-29 22:45 编辑 ]

wgl721219 · 发表于 2009-8-29 23:56

我也留个脚印，希望高人出现。

sachengbao · 发表于 2009-8-30 00:14

给你一个例子，模块1是我前年写的，模块2是前段时间应网友要求写的

wildcard · 发表于 2009-8-30 08:06

60页都不愿复制，你还学什么GRE！
省省吧，别浪费父母辛辛苦苦挣来的粮食啦，shit

northwolves · 发表于 2009-8-30 10:21

Sub Getall()
Dim ie, temp As String, s() As String, arr() As String
On Error Resume Next
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = False
For j = 1 To 65
.navigate "http://www.popmoon.com/word100/fastword/danci.asp?ViewArea=204&page=" & j, False
Do Until .readyState = 4
DoEvents
Loop
temp = .document.body.innerhtml
Debug.Print temp
ReDim arr(1 To 100, 1 To 3)
s = Split(temp, "<td width=150>", , vbTextCompare)
For i = 3 To UBound(s) Step 2
arr((i - 3) \ 2 + 1, 1) = Split(s(i), "<", , vbTextCompare)(0)
arr((i - 3) \ 2 + 1, 2) = Split(Split(s(i + 1), "str2img(", , vbTextCompare)(1), ");")(0)
arr((i - 3) \ 2 + 1, 3) = Split(Split(s(i + 1), "<td width=397>", , vbTextCompare)(1), "<")(0)
Next
[a65536].End(xlUp).Offset(1, 0).Resize(100, 3) = arr
Next
End With
ie.Quit
End Sub

复制代码

northwolves · 发表于 2009-8-30 10:24

网页音标以图片显示，函数如下：

function str2img(str) {
var src = 'img/';
var lenStr = str.length;
var rsString = "";
for (var i=0;i<lenStr;i++) {
var theChar = str.substr(i,1);
if (theChar == " ") {
rsString += " ";
} else if (theChar == "-") {
rsString += "<img src=""+src+"zhonggangxian.png" border="0" />";
//针对flyenglish.com设计
} else if (theChar == "1") {
rsString += "<img src=""+src+"1.png" border="0" />";
} else if (theChar == "2") {
rsString += "<img src=""+src+"2.png" border="0" />";
} else if (theChar == "3") {
rsString += "<img src=""+src+"3.png" border="0" />";
} else if (theChar == "4") {
rsString += "<img src=""+src+"4.png" border="0" />";
} else if (theChar == "5") {
rsString += "<img src=""+src+"5.png" border="0" />";
} else if (theChar == "6") {
rsString += "<img src=""+src+"6.png" border="0" />";
} else if (theChar == "7") {
rsString += "<img src=""+src+"7.png" border="0" />";
} else if (theChar == "9") {
rsString += "<img src=""+src+"9.png" border="0" />";
} else if (theChar == "0") {
rsString += "<img src=""+src+"0.png" border="0" />";
} else if (theChar == ",") {
rsString += "<img src=""+src+",.png" border="0" />";
} else if (theChar == "+") {
rsString += "<img src=""+src+"+.png" border="0" />";
} else if (theChar == "^") {
rsString += "<img src=""+src+"longo.png" border="0" />";
} else if (theChar == ":") {
rsString += "<img src=""+src+"_.png" border="0" />";
} else if (theChar == "_") {
rsString += "<img src=""+src+"/_.png" border="0" />";
} else if (theChar == ".") {
rsString += "<img src=""+src+"dian.png" border="0" />";
} else if (theChar == "\") {
rsString += "<img src=""+src+"xiexian.png" border="0" />";
} else if (theChar == "/") {
rsString += "<img src=""+src+"fanxiexian.png" border="0" />";
} else if (theChar == "?") {
rsString += "<img src=""+src+"wenhao.png" border="0" />";
} else{
rsString += "<img src=""+src+theChar+".png" border="0" />";
}
}
document.write('<img src="img/fangkh-z.bmp">');
document.write(rsString);
document.write('<img src="img/fangkh-y.bmp" alt="" />');
}

复制代码

laoyebin · 发表于 2009-8-30 10:54

狼版真厉害呀，慢慢学习消化

		自动登录	找回密码
密码			免费注册

[求助] 这些网页上的数据，可以用VBA编程拷贝下来吗？

60叶？