このトピックに書きこむ |
---|
acrobatでpdfファイルを表示させる | |
---|---|
[196195] acrobatでpdfファイルを表示させる- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ゴロリン -(2024/05/01(18:58)) □U R L/ 矢印の部分で、頻繁にエラーが出ます。 実行時エラー 2147417851 オートメーションエラー。 サーバーによって例外が返されました。 というメッセージが現れます。 1度目でエラーが起こることはありませんが、 2度目以降に、高確率でエラーがでるので使い物になりません。 対応する方法はあるのでしょうか? Sub Displayimage() Dim objAcroApp As New Acrobat.AcroApp Dim objAcroPDDoc As New Acrobat.AcroPDDoc Dim lRet As Long '戻り値 '開いているPDFドキュメントを全て閉じる lRet = objAcroApp.CloseAllDocs 'アプリケーションの終了 lRet = objAcroApp.Hide lRet = objAcroApp.Exit 'オブジェクトの強制開放 Set objAcroPDDoc = Nothing Set objAcroApp = Nothing With Sheets("呼び出し") yname = Environ("UserProfile") 'ユーザー名を取得 x = .Cells(1, 10) '決算月 lc = .Cells(Rows.Count, 1).End(xlUp).Row i = .Cells(1, 8) i = i + 1 dat = .Cells(i, 1) '対象年月日 y = Month(dat) If y >= (x + 1) Mod 12 Then fyear = Year(dat) '対象年度 Else fyear = Year(dat) - 1 '対象年度 End If n = .Cells(i, 4) ' Acrobat10以降は全て共通 'Const Fn = yname & "\Desktop\" & n Fn = yname & "\Desktop\電子帳簿保存法\" & fyear & "\支払分\" & n Debug.Print Fn If Dir(Fn) <> "" Then 'Acrobatを起動表示する lRet = objAcroApp.Show lRet = objAcroPDDoc.Open(Fn) 'PDFドキュメントを画面表示する objAcroPDDoc.OpenAVDoc Fn ←ここで、頻繫にエラー End If .Cells(1, 8) = i End With End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |