关于queryTables的有关问题

关于queryTables的问题
我在下载数据时 ,每次都是Destination:= Range("A1")，我希望能每次下载时Range("A1"）中的A1能改一下，并且是
上一次下载时的列的末尾，也就是我如何获得上一次下载的列数.谢谢指教
Sub Macro1()
' Macro1 Macro
' 宏由 微软用户 录制，时间: 2009-10-22
  Dim dat As Date
  dat = #10/20/2009#
  Do While dat > #4/1/2008#
  With ActiveSheet.QueryTables.Add(Connection:= _
  "URL;http://www.fx678.com/indexs/ecalendar.asp?date=" & dat, Destination:= _
  Range("A1"))
  .Name = "ecalendar.asp?date=2008-4-3"
  .FieldNames = True
  .RowNumbers = False
  .FillAdjacentFormulas = False
  .PreserveFormatting = True
  .RefreshOnFileOpen = False
  .BackgroundQuery = True
  .RefreshStyle = xlInsertDeleteCells
  .SavePassword = False
  .SaveData = True
  .AdjustColumnWidth = True
  .RefreshPeriod = 0
  .WebSelectionType = xlSpecifiedTables
  .WebFormatting = xlWebFormattingNone
  .WebTables = """GridView1"""
  .WebPreFormattedTextToColumns = True
  .WebConsecutiveDelimitersAsOne = True
  .WebSingleBlockTextImport = False
  .WebDisableDateRecognition = False
  .WebDisableRedirections = False
  .Refresh BackgroundQuery:=False
  End With
  dat = DateAdd("d", -1, dat)
  Loop
End Sub


[解决办法]
行变化

VB code

Sub Macro1()' Macro1 Macro' 宏由 微软用户 录制，时间: 2009-10-22    Dim dat As Date    Dim lngC As Long        dat = #10/20/2009#    Do While dat > #4/1/2008#        lngC = lngC + 1    With ActiveSheet.QueryTables.Add(Connection:= _        "URL;http://www.fx678.com/indexs/ecalendar.asp?date=" & dat, Destination:= _        Range("A" & Str(lngC)))        .Name = "ecalendar.asp?date=2008-4-3"        .FieldNames = True        .RowNumbers = False        .FillAdjacentFormulas = False        .PreserveFormatting = True        .RefreshOnFileOpen = False        .BackgroundQuery = True        .RefreshStyle = xlInsertDeleteCells        .SavePassword = False        .SaveData = True        .AdjustColumnWidth = True        .RefreshPeriod = 0        .WebSelectionType = xlSpecifiedTables        .WebFormatting = xlWebFormattingNone        .WebTables = """GridView1"""        .WebPreFormattedTextToColumns = True        .WebConsecutiveDelimitersAsOne = True        .WebSingleBlockTextImport = False        .WebDisableDateRecognition = False        .WebDisableRedirections = False        .Refresh BackgroundQuery:=False    End With    dat = DateAdd("d", -1, dat)    LoopEnd Sub
[解决办法]
列变化
VB code
 Sub Macro1()' Macro1 Macro' 宏由 微软用户 录制，时间: 2009-10-22    Dim dat As Date    Dim lngC As Long        dat = #10/20/2009#    Do While dat > #4/1/2008#        lngC = lngC + 1    With ActiveSheet.QueryTables.Add(Connection:= _        "URL;http://www.fx678.com/indexs/ecalendar.asp?date=" & dat, Destination:= _        Range(Cells(1, lngC), Cells(1, lngC)))        .Name = "ecalendar.asp?date=2008-4-3"        .FieldNames = True        .RowNumbers = False        .FillAdjacentFormulas = False        .PreserveFormatting = True        .RefreshOnFileOpen = False        .BackgroundQuery = True        .RefreshStyle = xlInsertDeleteCells        .SavePassword = False        .SaveData = True        .AdjustColumnWidth = True        .RefreshPeriod = 0        .WebSelectionType = xlSpecifiedTables        .WebFormatting = xlWebFormattingNone        .WebTables = """GridView1"""        .WebPreFormattedTextToColumns = True        .WebConsecutiveDelimitersAsOne = True        .WebSingleBlockTextImport = False        .WebDisableDateRecognition = False        .WebDisableRedirections = False        .Refresh BackgroundQuery:=False    End With    dat = DateAdd("d", -1, dat)    LoopEnd Sub