Excel сбой при использовании PasteSpecial

Question

Я использую следующий код, чтобы прочитать некоторые данные с веб-страницы, а затем вставить в лист. Я делаю этот процесс дважды (т. Е. Для 2 веб-страниц) в том же подпункте. Однако при использовании pastespecial во второй раз Excel падает, и я понятия не имею, почему это происходит.

Sub main() 

    Application.ScreenUpdating = False 

    Dim ie As InternetExplorer 
    Dim doc As HTMLDocument 
    Dim inputEl As HTMLInputElement 

    Set ie = New InternetExplorer 

    'open website 
    ie.navigate "http://...website.../page1.html" 
    ie.Visible = False 
    Sleep 5000 
    While ie.Busy 
     DoEvents 
    Wend 

''now copying source code to excel 
Set doc = ie.document 
CopyText doc.body.innerHTML 

Sheet3.Activate 
Sheet3.Cells.Clear 
Sheet3.DrawingObjects.Delete 
Range("A1").Select 
Range("A1").PasteSpecial xlPasteAll 

'opening second page 
ie.navigate "http://...website.../page2.html" 
Sleep 2000 
While ie.Busy 
    DoEvents 
Wend 
Set doc = ie.document 

Sheet8.Activate 
Sheet8.DrawingObjects.Delete 
CopyText doc.body.innerHTML 

Range("A1").Select 
'''''Excel crashes after this point, specifically on the next line 
Sheet8.Range("A1").PasteSpecial xlPasteAll 

End Sub 

Для справки, я использовал функцию CopyText (заимствованные из Интернета), который определяется следующим образом:

Public Sub CopyText(Text As String) 
    Dim MSForms_DataObject As Object 
    Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 
    MSForms_DataObject.SetText Text 
    MSForms_DataObject.PutInClipboard 
    Set MSForms_DataObject = Nothing 
End Sub 

Я попытался использовать это как хорошо, но не помогло - pastespecial Crashing when pasting excel data

Answer 1

You вы можете использовать Sheet8.Paste или попробовать только Sheet8.Range("A1").PasteSpecial без каких-либо параметров.

Специальное диалоговое окно вставки отличается, когда буфер обмена содержит данные, которые не относятся к текущему приложению Excel.