• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: scraping vba - run time error 1004

Zaslal/a fostercz 9.3.2013 12:19

Zdravím potřebuji pomoct s chybou Run-time error '1004'
Method 'Add' of object 'Sheets' failed u tohoto makra

Sub LoopThrough()
Dim WSO As Worksheet
Set WSO = ActiveSheet
For Each Cell In WSO.Range("B1:B4019")
ActiveWorkbook.Worksheets.Add
ThisURL = "URL;" & Cell.Value

With ActiveSheet.QueryTables.Add(Connection:= _
ThisURL, Destination:=Range("$A$1"))
.Name = "matchdetails.php?matchid=1405937"
.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
Next Cell
End Sub


Vždy to vyhodí tak po 100 až 300 listu.Díky za rady.

Zaslat odpověď >

---

fostercz(9.3.2013 14:04)#012170

Tak už to šlape zakázal jsem a smazal všechny doplňky.
Můžete lock.

Příloha: 12170_wall.rar (47kB, staženo 28x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse