Господа, помогите решить проблему. Совершенно неразбираюсь. Поставлю пиво)


есть скрипт, поидее он должен красть страничку, но делает это выборочно (не все). Что с этим можно сделать?

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 22.04.2008 (t)
'
'
Dim Pages
Pages = Array(15349, 15429, 15439, 15440, 15441, 15564, 15613, 15614, 15637, 15759, 15760, 15931, 15955, 15956, 15957, 15958, 15959, 15985, 16051)

URL = "URL;http://doska25.ru/post/"

xRange = 1

For Each iCounter In Pages

Address = URL & iCounter

On Error GoTo Error404Handler

With ActiveSheet.QueryTables.Add(Connection:= _
Address, Destination:= _
Range("A" & xRange))
.Name = iCounter
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

xRange = xRange + 50

Next


Exit Sub

Error404Handler:
Resume Next
End Sub