Question

vba小白求助 利用xmlhttp批量获取网页数据

因为写文章需要才接触vba 代码是别人提供的获取拍拍贷网页数据的 我在VBE中建了一个模块 复制进去后 在A列输入了要获取的list的号码 但是运行后无效 现在就是不知道如何运行其中的function 可以和Sub放在同一个文件中么 请各位大神教教我如何调试 这个代码是否本身有错 代码下载链接http://pan.baidu.com/share/link?shareid=3330421998&uk=2601256753 跪谢

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

这个需要账号密码？

追问

这个扒的是拍拍贷的网页数据，账号密码应该是他自己拍拍贷的 有些信息只有登录之后才会显示，应该是这样

这个扒的是拍拍贷的网页数据，账号密码应该是他自己拍拍贷的 有些信息只有登录之后才会显示，应该是这样

这个扒的是拍拍贷的数据，账号密码应该是他自己申请的拍拍贷账号，有些信息是要登录之后才会显示，应该是这样吧、我是初学也不是很懂，也不知道那两个function如何运行

追答

GetValue的作用是提供：
1、ByVal sPath As String ‘应该是文件路径
2、 ByVal sFileName As String ’应该是文件名
3、 ByVal sSheet As String ‘应该是工作表名
4、 ByVal sRef As String ’应该是单元格名称
然后获得上述条件单元格名称的值。
SavePageToMHT应该是获得网页的原代码并保存，其中：
1、ByVal URL As String‘应该是网址
2、 ByVal FileName As String’应该是要保存的文件名称
而其中的
objMsg.CreateMHTMLBody URL, , "username", "password"
应该还要把"username", "password"改成用户与密码。
可是程序中的两个Sub都没有调用到这两个function