'Option Explicit
Sub test()
For r = 3 To Range("A1").CurrentRegion.Rows.Count
dm = Cells(r, 1).Value
If Val(dm) < 600000 Then
Url = "http://qt.gtimg.cn/q=sz" & dm
Else
Url = "http://qt.gtimg.cn/q=sh" & dm
End If
With CreateObject("msxml2.xmlhttp")
.Open "GET", Url, False
.send
sp = Split(.responsetext, "~")
If UBound(sp) > 3 Then
Cells(r, 3).Value = sp(3)
Cells(r, 4).Value = Format(sp(30), "0000-00-00 00:00:00")
Else
Cells(r, 3).Value = "证券代码错啦!"
End If
End With
Next
End Sub
求助!刚刚接触vba,这段代码麻烦各位帮我看看问题出在哪儿了,运行到”.send”时就报“运行”不知什么情况
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- threenewbee 2019-07-07 09:17关注
检查网址是不是写错了,特别是http协议/https协议,域名解析。
如果是提交表单,用POST而不是GET,具体要看对方服务器怎么处理的。解决 无用评论 打赏 举报
悬赏问题
- ¥15 运筹学排序问题中的在线排序
- ¥15 关于docker部署flink集成hadoop的yarn,请教个问题 flink启动yarn-session.sh连不上hadoop,这个整了好几天一直不行,求帮忙看一下怎么解决
- ¥30 求一段fortran代码用IVF编译运行的结果
- ¥15 深度学习根据CNN网络模型,搭建BP模型并训练MNIST数据集
- ¥15 lammps拉伸应力应变曲线分析
- ¥15 C++ 头文件/宏冲突问题解决
- ¥15 用comsol模拟大气湍流通过底部加热(温度不同)的腔体
- ¥50 安卓adb backup备份子用户应用数据失败
- ¥20 有人能用聚类分析帮我分析一下文本内容嘛
- ¥15 请问Lammps做复合材料拉伸模拟,应力应变曲线问题