{quote}{login=nerv}{date=15.08.2011 06:35}{thema=}{post}вряд ли буду прав, но может быть это как-то связано с переполнением буфера?{/post}{/quote}  
При ошибке можно зайти в дебаг и продолжить - всё продолжается до следующей такой же ошибки. Буфер пробовал очищать функцией  
Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long  
Private Declare Function EmptyClipboard Lib "user32" () As Long  
Private Declare Function CloseClipboard Lib "user32" () As Long  
 
Private Function rClipboard()  
Dim X As Long, a As Long  
   a = OpenClipboard(0&)  
   X = EmptyClipboard()  
   a = CloseClipboard()  
End Function  
 
Не помогает.

Добрый день!  
 
Есть парсер, который вызывается n-ное кол-во раз из другой фунции:  
 
Dim oIE As Object  
Dim oSheet As Excel.Worksheet  
Dim jjj As DataObject  
Dim wb As Workbook  
Set wb = Workbooks("fs_pars.xlsm")  
Set jjj = New DataObject  
Set oIE = CreateObject("internetexplorer.application")  
oIE.Navigate "с:\temp\" & page_s & "index.html"  
Do While (oIE.ReadyState <> 4)  
Loop  
oIE.Visible = 0  
jjj.SetText oIE.document.Body.innertext  
jjj.PutInClipboard  
Application.DisplayAlerts = False  
Set oSheet = wb.Worksheets.add()  
oSheet.Name = "Temp"  
wb.Worksheets("Temp").Activate  
wb.Worksheets("Temp").Cells.NumberFormat = "@"  
wb.Worksheets("Temp").Cells(1, 1).Select  
wb.Worksheets("Temp").Paste  
Set jjj = Nothing  
oIE.Quit  
Set oIE = Nothing  
If page_s = "" Then page_s = "1"  
End Sub  
 
Он работает, но переодически выдаёт ошибку на строчке jjj.PutInClipboard:  
Run-time error '-2147221040(800401d0)':  
DataObject:PutInClipboard Ошибка при вызове OpenClipboard  
 
Подскажите в чём ошибка пожалуйста!

Прошу прощения, дело оказалось в    
Set iRegion = q.Range.Cells.FindNext(iRegion)  
в конце цикла.  
Всем спасибо за помощь!)))

Добрый день! подскажите, как задать диапазон в самой функции! Сейчас выглядит так:  
 
Dim iSource, iRegion As Range  
.  
.  
.  
Set iSource = Worksheets("q").Range("A:A")  
Set iRegion = iSource.Find(What:=str_tit1, LookIn:=xlValues, LookAt:=xlPart)  
 
ищет по всему листу q, но надо только в столбце A ((((((  
 
Спасибо!