以下のコードは私の問題です。ウェブサイトからスプレッドシートに資金情報をコピーするためのものです。資金が PDF 以外の Web サイトにある場合は問題なく機能しましたが、PDF Web サイトでは機能しません。失敗したのは Select-All (ie2.ExecWB 17, 0) で、クラックできません。PDF Webサイトでキーボードctrl-Aを実行すると、すべてが選択され、sendkeysバージョンの半分が機能しますが、必要なのは、この「ie2.ExecWB 17、0」を取得して本来の動作を実行するためのソリューションです。どんな助けでも大歓迎です。乾杯
サブリストファンド()
Dim DataObj As New MSForms.DataObject
Dim S As String
Dim ie1, ie2
Set ie1 = CreateObject("internetexplorer.application")
Set ie2 = CreateObject("internetexplorer.application")
HWNDSrc = ie2.HWND
ie1.Visible = True
ie2.Visible = True
ie1.navigate "http://www.legalandgeneral.com/workplacebenefits/employees/help-support/fund-zone/fund-factsheets/wpp-tbop-pptip.html"
Do Until ie1.readystate = 4
DoEvents
Loop
Dim LinkFound As Boolean
Dim linkCollection
Set linkCollection = ie1.document.all.tags("A")
For Each link In linkCollection
If InStr(1, link.outerhtml, "fundslibrary") <> 0 Then
ie2.navigate link
Do Until ie2.readystate = 4
DoEvents
Loop
ie2.ExecWB 17, 0 '// SelectAll
ie2.ExecWB 12, 2 '// Copy selection
DataObj.GetFromClipboard
S = DataObj.GetText
Selection.Value = S
Selection.Offset(1, 0).Select
End If
Next link
ie1.Quit
ie2.Quit
サブ終了