0

SQL Server Reporting Services サイトからレポートをエクスポートしようとしていますが、Excel 07 と IE7 を使用しています。私はコードをずっと持っています

 Sub TestIE()
 Dim IE2 As Object
 Set IE2 = CreateObject("InternetExplorer.Application")
 IE2.Visible = True
 IE2.navigate "http://www.site.com"
 Application.StatusBar = "Accessing the report"
 Do While IE2.Busy
 Application.Wait DateAdd("s", 1, Now)
 Loop

 Dim CurrentWindow As HTMLWindowProxy: Set CurrentWindow = IE2.document.parentWindow
 Call CurrentWindow.execScript("$find('ctl31')")
 End Sub

私がデータを取得しているサイトは、これが Javascript であることを示しています。

 <div class="NormalButton">
 <a class="ActiveLink" onclick="$find('ctl31').exportReport('EXCEL');" 
 href="javascript:void(0)" style="padding:3px 8px 3px 8px;display:block;
 white-space:nowrap;text-decoration:none;">Excel</a>

マクロを実行すると、このコードは何もしません。

 Call CurrentWindow.execScript("$find('ctl31')")

しかし、サイトのソースから以下のコードを使用すると、実行時エラー 80020101 が発生します。

 Call CurrentWindow.execScript("$find('ctl31').exportReport('EXCEL');")

このデータをプルするために私ができることを誰かが推奨できますか?

4

1 に答える 1

0

それで、このファイルで基本を完了しました。VBA の For Each プロシージャ専用の新しい質問を開きましたが、ここでの主な Javascript の問題は解決されました。

于 2013-10-22T18:11:57.287 に答える