0

以下のコードは私の問題です。ウェブサイトからスプレッドシートに資金情報をコピーするためのものです。資金が 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

サブ終了

4

1 に答える 1

1

これをチェックしてください、これはあなたを助けるかもしれません:

http://www.xtremebbtalk.com/showthread.php?t=299104

私は SendKeys に夢中になっているわけではありませんが、ブラウザーを介して PDF からデータを取得する別の方法は思い浮かびません。

于 2013-05-03T19:24:25.930 に答える