[已解决]修改指定的代码问题

ryoryo66

我里的代码是,提取网站的内容,但是每次需要提取不同的网址,每次都需要在代码里修改"1106154"这个数字,有没有办法把这个"1106154"设置到单元格里进行修改,这样的话我修改这个数字就可以在单元格直接修改,比较方便一些,不需要在代码里修改了.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://bbs.17500.cn/thread-1106154-" & iki & "-1.html", Destination:=Range("$A$1" _
))
.Name = "thread-1106154-" & iki & "-1"
.FieldNames = True

请老师帮忙看看这个怎么解决?

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-2-27 16:47

"URL;https://bbs.17500.cn/thread-1106154-"
改成
"URL;https://bbs.17500.cn/thread-" & Range("A1").value & "-"

紅色部份為單元格


祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

"URL;https://bbs.17500.cn/thread-1106154-"
改成
"URL;https://bbs.17500.cn/thread-" & Range("A1").value & "-"

紅色部份為單元格


祝順心，南無阿彌陀佛！

ryoryo66

cutecpu 发表于 2021-2-27 17:35
"URL;https://bbs.17500.cn/thread-1106154-"
改成
"URL;https://bbs.17500.cn/thread-" & Range("A1").v ...

谢谢管理,我来试一下