0

IE バージョン 8 で「access ie 2003」からの自動化を使用する場合、VBA で URL を取得しようとすると問題が発生します。コードは正常に実行され、次のステートメントに到達します。ブラウザの同じインスタンスの FeedURL = .Document.Url) が正常に返され、ブラウザで 2 番目の .navigate の下の URL に到達します。エラー: ランタイム エラー '445' オブジェクトはこのアクションをサポートしていません!

助けてくれてありがとう。

   'Process artRSSPostLink in order to get feed name, Source permalink and RSS Feed
     Set ie2 = CreateObject("InternetExplorer.Application")
    With ie2
        ' Disable pop-up msgs
        .Silent = True
        .Navigate artRSSPostlink

        Do While .ReadyState <> 4 Or ie.Busy = True
            DoEvents
        Loop

        If Err Then .Quit Else .Visible = True

        'The point of this is that the Postlink is often not hosted at the feed URL or even on the same server (feeddemon for instance) consequentally it is redirected
        Dim FeedURL As String
        FeedURL = .Document.Url
        artSourcePostPermalink = FeedURL

        'Dim artSource As String
        artSource = Left(FeedURL, InStr(8, FeedURL, "/") - 1)
        artSource = Right(artSource, Len(artSource) - 7) 'strip "http://"
        'Me!artSource = artSource

        'enter the domain/feed url to see if there is a redirect for the feed
        .Navigate "http://" & artSource & "/feed"

        Do While .ReadyState <> 4 Or ie.Busy = True
            DoEvents
        Loop

        artRSSFeed = .Document.Url

    End With
4

1 に答える 1

0

アンドリュー

同じシーナリーで問題なく動作します: Access 2003 & IE8

さて、私はあなたのコードを実行しますが、「ie」オブジェクトを宣言しないことを除いて、代わりにループ条件に ie2 を使用しました。

artRSSFeed は String 型で宣言されていると仮定しています。

お役に立てず申し訳ありません。

于 2013-06-13T06:55:15.640 に答える