pdf kopyalama hk.

[acar6783]

hayırlı geceler, Hayırlı sahurlar,
Uyutmadı beni

Aşağıdaki kodlarla yapılmasını istediğim pdf dosyasını webde açıyorum sonrası tüm alnı seçtirip sayfaya yapıştırıyorum.
Sorun şurada ki send keys ile çalışan kodlar ie seç-kopyala metoduyla çalışmıyor.
Sendkeysle çalışmak istemiyorum aslında tüm sorun burada.

Sub pdf_acr()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "C:\Users\dell\Downloads\IVD-VRG_LVH_5QD4YX44Q49_7570128575.pdf"

Application.Wait (Now + TimeValue("0:00:02"))
 SendKeys "^a", True
 
'bu kodlarla çalışıyor fakat;
SendKeys "^c", True
Application.Wait (Now + TimeValue("0:00:02"))
ActiveSheet.Range("a1").PasteSpecial Paste:=1
IE.Quit
End With
End Sub
Sub pdf_acr2()
Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "C:\Users\dell\Downloads\IVD-VRG_LVH_5QD4YX44Q49_7570128575.pdf"

Application.Wait (Now + TimeValue("0:00:02"))

'bu haliyleçalışmıyor
IE.ExecWB 17, 0
IE.ExecWB 12, 2
ActiveSheet.Paste
IE.Quit
End With
End Sub