[已解决]谢谢小富康老师，如何批量导入网址中的数据？

lhj323323

老师：
我在sheet1的[B3]单元格内输入“2010-12-14”，下面的句子能成功导出数据到工作表[数据]的[A1]单元格：
Dim Str As String '
On Error Resume Next
Str = sheet1.Range("b3")
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.sse.com.cn/sseportal/ ... ublishAct?DATE="& Str &"" _
        , Destination:=Sheets("数据").Range("A1"))

我现在想在sheet1的[B3：B10]单元格区域内依次输入2010-12-14,2010-12-15,......2010-12-24",如何修改上面的句子，使其能将这十天的数据都导入到[数据]的A列？

最佳答案

月排行榜 / 总排行榜

开辆小富康

2011-1-29 06:50

Destination:=Sheets("数据").Range("A65536").END(3).OFFSET(1,0)
然后自己折腾循环吧

跳转到最佳答案楼层

开辆小富康

Destination:=Sheets("数据").Range("A65536").END(3).OFFSET(1,0)
然后自己折腾循环吧

老糊涂

{:1112:}{:1112:}

nothingwmm

学习一下

刘志文

学习一下！