[已解决]求助~ 访问网页时如何引入变量？

a123456b0

如题，想要访问某网址并上传经纬度数据，使用vba实现，正常访问时，使用如下指令：
     With ActiveSheet.QueryTables.Add(Connection:= _
        "URL; h t t p : / /eosweb.larc.nasa.gov/cgi-bin/sse/grid.cgi?&num=313136&lat=45&submit=Submit&hgt=100&veg=17&sitelev=&email=xxxxx@126.com&step=2&p=grid_id&lon=132" _
        , Destination:=Range("$A$1"))。。。。。

其中的lat=45和lon=132为我要上传的经纬度信息，想要将45用变量n1代替，132用变量n2代替，那么这个地址该怎样写？ n1和n2是定义成整型还是字符串型？
  
在线等~~~~

最佳答案

月排行榜 / 总排行榜

那么的帅

2012-7-28 12:00

1. N1=45
   
2. N2=132
   
3. "URL; h t t p : //eosweb.larc.nasa.gov/cgi-bin/sse/grid.cgi?&num=313136&lat=" & N1 & "&submit=Submit&hgt=100&veg=17&sitelev=&email=xxxxx@126.com&step=2&p=grid_id&lon=" & N2 _

复制代码

跳转到最佳答案楼层

hwc2ycy

用连接符或连接函数，类型的话会自己转换的。

那么的帅

1. N1=45
   
2. N2=132
   
3. "URL; h t t p : //eosweb.larc.nasa.gov/cgi-bin/sse/grid.cgi?&num=313136&lat=" & N1 & "&submit=Submit&hgt=100&veg=17&sitelev=&email=xxxxx@126.com&step=2&p=grid_id&lon=" & N2 _

复制代码

a123456b0

那么的帅 发表于 2012-7-28 12:00

试了一下，不行啊，提示缺少列表分割符。。。。。。。。。

那么的帅

a123456b0 发表于 2012-7-28 12:33
试了一下，不行啊，提示缺少列表分割符。。。。。。。。。

1. N1=45
   
2. N2=132
   
3. "URL; [url]http://eosweb.larc.nasa.gov/cgi-bin/sse/grid.cgi?&num=313136&lat=[/url]" & N1 & "&submit=Submit&hgt=100&veg=17&sitelev=&email=xxxxx@126.com&step=2&p=grid_id&lon=" & N2 _

复制代码

a123456b0

那么的帅 发表于 2012-7-28 12:36

再次对“那么的帅”表示感谢~~    你比名字还要帅，  哈哈~