Question

我打算从网上的表格中提取数据。下面的代码主要来自Excel中的内置Web报废功能。

我想要的是找到包含数据的最后一行并在第一个空白行上打印。

Sub Sub1()

ActiveSheet.Cells.Clear

Dim lastRow As Long
Dim i As Integer

For i = 1 To 2

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.aastocks.com/tc/stocks/quote/symbolsearch.aspx?page=" & i & " &order=symbol&seq=asc", Destination _
    :=Range("A,lastRow")) '???? I got an error here, what I want is to detect the last row and print on the first blank row.???
    '.CommandType = 0
    .Name = "symbolsearch_1"
    .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 = "10"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1

Debug.Print lastRow
Next i

End Sub

Answer 1

这似乎现在正常。你很近，你应该可以根据需要进行编辑。

SECOND
GATE
TEXT
ENTRY
מ
TEXT
ENTRY
ת
TEXT
ENTRY
ח
TEXT
ENTRY
ל
TEXT
ENTRY

VBA：在excel的最后一行打印

1 个答案: