[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
557(1): (ﾜｯﾁｮｲ ca4f-+ixC) 2020/10/11(日)00:52 ID:l/QRoUUr0(1) AAS
>>555
布教活動ご苦労さん
必要になったら勝手にRubyスレに行くから
帰っていいよ
558(1): (ﾜｯﾁｮｲ b301-NY7j) 2020/10/11(日)08:15 ID:qzIChT2z0(1) AAS
>>555
データ変換てのは基本的な作法さえ知ってればEnumerableメソッド使わなくても特に困ることもないだろう
ただのループ構造をこねくり回してるだけでそのためにメソッドを割り当てるなんてお仕着せもいいところ
559: (ﾜｯﾁｮｲ ca01-d5Pu) 2020/10/11(日)10:01 ID:QZ/HZvxF0(1) AAS
>>557-558
なぜ相手するんだ…
560(3): (ﾜｯﾁｮｲ 6b63-JAxH) 2020/10/11(日)12:29 ID:lH9sVzvl0(1/2) AAS
Acrobatを使用したプログラムを複数回実行すると初回だけ成功し
2回目以降は
実行時エラー2147467259(80004005)
エラーを特定できません
となります(idに代入する行でエラー)
終了処理に不備があってacrobatのプロセスが残っているのではと思いましたが
色々なサイトを見ても解決がわからない状態です。
どうすれば治りますか。
プログラムは次のレスを参照ください。
561(2): (ﾜｯﾁｮｲ 6b63-JAxH) 2020/10/11(日)12:30 ID:lH9sVzvl0(2/2) AAS
Dim objAcroApp As New Acrobat.AcroApp
Dim objAcroAVDoc As New Acrobat.AcroAVDoc
Dim objAcroPDDoc As New Acrobat.AcroPDDoc
Dim id As Long
Dim js As Object
Dim SaveName As String
id = objAcroApp.Show
id = objAcroAVDoc.Open(FilePath, "")
Set objAcroPDDoc = objAcroAVDoc.GetPDDoc()
Set js = objAcroPDDoc.GetJSObject
省11
562(1): (ﾜｯﾁｮｲ cbda-xYNh) 2020/10/11(日)18:37 ID:7Qx+aWsY0(1) AAS
どこだか忘れたけど、閉じる・解放はこの順番じゃないとダメって書いてあるサイトがあったぞ。
563: (ﾜｯﾁｮｲ 07ce-KV+F) 2020/10/11(日)20:12 ID:WEczn1o20(1) AAS
オブジェクト型にNothingを代入しても、参照ポインタが書き換わるだけでメモリが解放されるわけじゃないんで、順序はそれほど重要じゃない
564: (ﾜｯﾁｮｲ 67da-xYNh) 2020/10/11(日)21:39 ID:CPiGYYUg0(1) AAS
>>560
必ず再現するなら同じ現象が発生する最小のコードを作ってみ
565: (ﾜｯﾁｮｲ 4a2f-JAxH) 2020/10/11(日)23:29 ID:gmCwGThW0(1) AAS
>>561
とりあえずDimでNewするのやめて様子見てみ
566: (ﾜｯﾁｮｲ 6f5f-e5Pm) 2020/10/12(月)01:35 ID:EUVfONAL0(1/2) AAS
どうやって再度、実行できているのか？
仕事ができない人がよく言う説明。
567: (ﾜｯﾁｮｲ 672c-JAxH) 2020/10/12(月)08:27 ID:CsRHImZw0(1) AAS
>>560
タスクマネージャーを起動して、プロセスを終了させてから、実行すれば？
568: (ﾗｸｯﾍﾟﾍﾟ MM86-SfJD) 2020/10/12(月)10:12 ID:5eYbb8SbM(1) AAS
アクロバットがすぐに終了しないのは体感でも分かるレベル
569: (ﾜｯﾁｮｲ 6f5f-e5Pm) 2020/10/12(月)18:47 ID:EUVfONAL0(2/2) AAS
2回目以降から1回目に戻る手順くらい書けよ！
570: (ﾜｯﾁｮｲ 07ad-yGJI) 2020/10/12(月)21:34 ID:mxOFfEsA0(1) AAS
おもいついた
>>530
最後にsubstituteでまとめて消せばよくね？
571: (ﾜｯﾁｮｲ 67da-tQNK) 2020/10/12(月)23:43 ID:k3Vmfe+e0(1) AAS
時間を戻そう
572(1): (ﾜｯﾁｮｲ ca4f-+ixC) 2020/10/13(火)08:13 ID:548t3foS0(1) AAS
>>561
objAcroAppにCloseメソッドがあってそれを実行していないとかいうオチだったりして
573: (ﾜｯﾁｮｲ ca01-d5Pu) 2020/10/13(火)09:32 ID:2dX+mfF30(1) AAS
>>572
普通の頭持ってたら
id = objAcroApp.Exit
がそれだと思うだろうに…
574: (ﾜｯﾁｮｲ 6749-xYNh) 2020/10/13(火)10:34 ID:lK6RB09G0(1) AAS
「.CloseAllDocs」 ってメソッドもAcrobat.AcroAppにはあるらしいな
そしてExitだけじゃプロセスが残ることもあるらしい
まあAcrobatの環境ないから検証も何もできんけど、
安全取るならExitしたあとにプロセス監視してkillするしかないんじゃね
途中でエラー落ちしてもプロセスのこっちゃうらしいし
ちなみにどうでもいいが個人的にはExitとCloseは、意味的に異なると思う
だからExitとCloseが両方あってもおかしくないとは思う
でもExitがCloseを包括していても、それはそれでありだとも思う
Acrobat.AcroAppの公式ドキュメント見れてないからワイには答えが出せんわ
575: (ﾜｯﾁｮｲ 9f63-F9zC) 2020/10/15(木)08:48 ID:wrF56cyr0(1/2) AAS
>>560です
皆さん本当にありがとうございます。
みなさんのご意見をプログラムに反映した後、
ソースを最小（adobeをオープン・クローズするのみ）
にしてもエラーです・・・(次レス参照)
タスクマネージャには
adobe CEF helper、adobe update serviceがありますが
前者は消しても湧いてきているように見えます。
パソコン再起動してもダメ、日付が変わってもダメです。
しかし、エラーになったあとちょうど24時間経過すると
省5
576: (ﾜｯﾁｮｲ 9f63-F9zC) 2020/10/15(木)08:49 ID:wrF56cyr0(2/2) AAS
ソースを最小にするためところどころコメントアウトしてます
Dim objAcroApp As Acrobat.AcroApp
Dim objAcroAVDoc As Acrobat.AcroAVDoc
' Dim objAcroPDDoc As Acrobat.AcroPDDoc
Dim id As Long
' Dim js As Object
' Dim SaveName As String
Set objAcroApp = CreateObject( "AcroExch.App" )
Set objAcroAVDoc = CreateObject( "AcroExch.AVDoc" )
id = objAcroApp.Show
省15
上下前次1-新書関写板覧索設栞歴
あと 426 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.038s