如何解决如何使用Excel QueryTables URL答复覆盖下一个单元格
我需要一个对网站进行简单查询的http请求,并带有UK网格参考(格式为“ SD676256”)。该网站返回错误的描述性字符串(例如“ VC59 South Lancashire”)或错误的空字符串“”。
以下代码将返回的文本插入到相邻的单元格中,并前进一个单元格。但是,如果目标单元格不为空,则会插入新列。
- 如何使其覆盖现有单元格?
- 如何将结果字符串返回到变量中,而不是直接将其插入到工作表中(以便可以将数字部分(在VC59中为59)切掉?)
- 如何改进代码(我是Excel / VBA的新手)
代码:
Sub Lookup()
gridref = ActiveCell.Value
url = "http://lookupwebsite.co.uk/?r=" & UCase(gridref)
Set result = ActiveSheet.QueryTables.Add(Connection:="URL;" & url,_
Destination:=ActiveCell.Next)
With result
.Refresh BackgroundQuery:=False
End With
ActiveCell.Offset(1,0).Select
End Sub
已编辑以禁用后台查询。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。