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