• 締切済み

VBAからxdoc2txtを利用したい

Access2000のVBAを使っています。pdfをテキストに変換するxdoc2txtというテキストコンバータを利用して、指定した場所にあるpdfファイルのテキストをAccessVBAのString変数に渡したいのですが、うまくいきません。shellを使ったり、HPで公開されているサンプルコードを使ってみたりしたのですが、うまくプログラムが走ってくれません。どうか知識をもっていらっしゃる方がいたらご教示いただけないでしょうか。 http://www31.ocn.ne.jp/~h_ishida/xdoc2txt.html

みんなの回答

  • gatyan
  • ベストアンサー率41% (160/385)
回答No.1

処理的には 1.PDF->テキストファイル変換する(xdoc2txtを実行する) 2.作成されたテキストファイルから必要な部分を探して変数にセットする になると思いますが、どの辺りがうまくいかないのか？ 例えば、 xdoc2txt.exeがうまく実行できない　のは xdoc2txt.exe が見つからない（パスがとおっていない／絶対パスで指定しているならパスが間違っている） pdfファイルが見つからないのエラーならpdfファイルのパス指定がおかしいもしくはパスに空白が入っているのにダブルクオーテーションで囲んでいない 抽出結果を書き出すテキストファイルのパス指定がおかしいから書き出されないかも とか、見るべきところはいろいろあります

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • ACCESS VBA txtファイル出力

    お世話になっております。 不慣れながら会社でACCESSVBAを使っております。 エクセルファイルをACCESSに取り込み、VBAを使ってtxtファイルとして出力したいです。 その際、現時点で出力まではできているのですが、先頭列の頭の０が落ちてしまいます。 頭の０を残すコードの書き方はどのようにすればよいのでしょうか。 また、そのような設定はありますか。 力不足で恐縮ですが、よろしくお願いします。 保存先はデスクトップ、テーブル名はテーブル名を代入した変数です。 DoCmd.TransferText acExportDelim, , テーブル名, "…(パス）…テスト.txt"

  • エクセルVBAで…

    VBAからshell関数を使って、 FTPを起動して、 サーバーからテキストファイル(txt)を、 ローカルへ落としたいのですが… 落とすとEUCコードになってしまいます… FTPのオプションとかでshift-jisとかに直せるのでしょうか？ よろしくお願いします(o*。_。)oペコッ

  • vba　pdfを手前に開きたい　 Shell

    Sub Sample() Dim myFile As String myFile = "C: \test.pdf" Shell """C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"" " & myFile End Sub ｖｂａからこれでＰＤＦファイルを開くことができるのですが アクセスの後ろで開いてしまいます。 このコードを実行したら、開いたＰＤＦファイルを画面の手前に表示したいので 何を付け足せばいいのでしょうか？

  • VBAの覚え方・勉強の仕方

    自分はVBAを覚える・勉強するために テキストファイルにサンプルコードを作って一つのフォルダに保存しています。 サンプルコードとは Sub ファイル名を取得する() MsgBox CurrentProject.Name End Sub をテキストに書いて保存して、ファイル名を 「Access_自身のファイル名を取得する.txt」にしています。 現在２００個くらい作りましたが、 管理ができなくなってきてしまいました。 というのも、同じようなサンプルコードを作ってしまったり、 フォルダ内検索してるのに欲しいコードがヒットしなかったりです。 みなさんはどのようにＶＢＡのお勉強をしているのでしょうか？ サンプルコードを作られている方は、どのように管理されてますか？ アクセスで「サンンプル管理システム」などを作って管理してるのでしょうか？

  • ｐｄｆをvbaで開いて、さらにサイズを指定する

    ｐｄｆをvbaで開いて、さらにサイズを指定することは可能ですか？ Sub Sample() Dim myFile As String myFile = "C:\\問い合わせ.pdf" Shell """C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe"" " & myFile End Sub これでＰＤＦを開くことは出来るのですが 縦横、高さ、幅を指定したいのですが、可能ですか？

  • VBAでtxtを読み込みxlsで保存したい

    C:\Documents and Settings\All Users\デスクトップ\sample.txt は次のようなデータになっています。 A B C 1,234 567,890 23,333 1,234 567,890 23,333 このデータをVBAを使ってExcelに読み込み、C:\Documents and Settings\All Users\デスクトップ\sample.xls として保存にしたいのですが、どのようなコードを書けばよいものでしょうか？ sub test() Dim fso, f, ts Dim sline As String Set fso = CreateObject("scripting.filesystemobject") Set f = fso.getfile("C:\Documents and Settings\All Users\デスクトップ\sample.txt") Set ts = f.openastextstream(1) Do While ts.atendofstream <> True sline = sline & ts.readline & vbCrLf Loop ts.Close ' MsgBox sline End Sub ここまでいったのですが、slineをexcelにだすことができません。 教えていただけると助かります・。

  • ＥＸＣＥＬのＶＢＡのコマンドボタンの動作について

    ＥＸＣＥＬのＶＢＡでコマンドボタンを押したとき、あるテキストを、単にテキストとして開く為に、以下のコーディングをしました。 しかし、「shell」コマンドは実行形式でないといけないようで、うまく行きません。どなたか、判る方いらっしゃいますか？ --------------------------------------------- wk_path = ThisWorkbook.Path & "\memo1.txt" wk_rc = Shell(wk_path, vbNormalFocus) --------------------------------------------- (エラーコード：メッセージ） 5:プロシジャーの呼び出し、または引数が不正です。

  • テキストファイルから改行コードを削除して読込む方法

    ExcelエクセルVBAマクロについてテキストファイルから改行コードを取り除いて 変数に読み込む方法について確認させてください。 下記のVBAログラムはWordファイルをテキストファイルに落としたファイルを変数aに 読み込んでいます。 このとき、読み込んだテキストファイルはWordファイルをテキストファイルに 落とし込んだファイルなので改行コードが残ってしまいます。 この改行コードを削除したうえで変数aに読み込みたいのですが可能でしょうか。 改行コードはメモ帳では「↓」と下矢印に似た文字で表示されます。 （実際には下矢印ではないようです。） 今のところ、Replace関数で改行コードを削除するプログラムを 考えているのですが、改行コードのVBAでの表現方法が分からないので 先に進むことが出来ません。いい案があればぜひご教授下さい。 あるいはほかの方法でも改行コードが削除出来れば結構です。 またこの変数aに読み込んである文字列からかぎカッコの内部にある文字を 抽出してエクセルの行方向に出力する方法があればご教授頂ければ幸いです。 例えば “あなたは「こんにちは」と言いました。 私は「元気ですか」と聞きました。” が文字列aに読み込んである場合、“こんにちは”、“元気ですか”を抽出して エクセルに順に出力という方法です。 色々と書きましたが、よろしくお願いいたします。 以下、VBAプログラム本文です。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Sub sample1() Dim a As String a = CreateObject("Scripting.FileSystemObject").GetFile("C:\sample.txt").OpenAsTextStream.Readall CreateObject("Scripting.FileSystemObject").GetFile("C:\sample.txt").OpenAsTextStream.Close End Sub

  • VBAからPDFのテキストフィールド

    Excelに入力されたデータをVBAでPDFのテキストフィールドへデータを自動で入力したいのですが、いろいろ探してみたものの、それらしきサンプル等もなく困窮しています。 例えばExcelに名前が100人登録されているとして、これを順番にPDFのテキストフィールドへ自動的に入力（更新）し、印刷する。（100人分が完了するまで） といった感じの内容です。 まったくわかりませんので、どなたかお教え下さい。 もしサンプルコードが存在するようでしたらURLをお教えいただけると助かります。 宜しく御願いします。

  • VBAで、すべてのファイル（ppt,pdf,txt

    VBAで、すべてのファイル（ppt,pdf,txtなど）を選択して開きたい VBA初心者です。ダイアログから選択して様々な形式のファイルを 開きたいのですが、 検索して↓などをみていますが、イマイチわかりません。。。 http://okwave.jp/qa/q1545851.html http://okwave.jp/qa/q7827757.html http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1414898789 【環境　WindowsXP　Excel2000】 ↓これだとPDFを選択はできますが、エクセルに文字化けしてでてきます。 Sub フォルダからファイル選択() Dim OpenFileName As String Dim AAA, ZZZ As String AAA = Sheets("data").Range("A5") ZZZ = "'ChDir "\■.local\pubs\●\△\" & AAA With CreateObject("WScript.Shell") .CurrentDirectory = ZZZ End With OpenFileName = Application.GetOpenFilename("すべてのファイル,*.*") If OpenFileName <> "False" Then Workbooks.Open OpenFileName Else MsgBox "キャンセルされました" End If End Sub 不足情報ありましたら補足致しますので、お教え下さい＞＜；

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する