Question

我希望能够计算csv中的行数，并在循环中使用该行数来添加包含数据的格式化表格/边框行数。基本上我有一个格式化的边框。我

数据来自api / url

数据如下图所示

A,B,C,D
1,2,3,4
2,3,5,6
3,4,6,8

我有这段代码，但是它不起作用，它计数了所有行

Dim count As Long
count = Cells(Rows.count, ActiveCell.Column).End(xlUp).Row - ActiveCell.Row

For x = 1 To count
    Cells(counter, 2).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
    ActiveCell.EntireRow.Copy
    Application.CutCopyMode = False
Next x

''Next Steps after
'Url
'Query Table

With Sheets(1).QueryTables.Add(Connection:="URL;" & apiURL, Destination:=ActiveCell.Offset(0, 0))
    .BackgroundQuery = True
    .TablesOnlyFromHTML = False
    .Refresh BackgroundQuery:=False
    .SaveData = True


    'Text to Columns

为什么当我复制并粘贴格式化的边框并查询api时，当记录达到一定数量的记录（如3000）时，它为什么会崩溃？我必须在查询表中等待一个应用程序

Application.Wait(Now + TimeValue())

VBA Excel计算Web查询中的所有行

0 个答案: