关于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)
    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(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)
    Loop
End Sub

关于queryTables的有关问题

相关推荐