VBAのDir関数エラーについて

Question

初めまして。
研究におけるデータ収集の一環でVBAを利用している大学生です。

pdfをスキャンして文字データとしてexcel等に落とし込むプログラムを利用したところ、
次のようなエラーにぶつかりました。
「実効時エラー52　ファイル名または番号が不正です」

buf = Dir(ActiveWorkbook.Path & "\*.pdf")

このコードにエラーが出てきました。
同一フォルダ内にあるpdfファイルを読み取り変数に入れているところです。

いろいろ試行錯誤したのですが、一向に解決の兆しが見えません。
お詳しい方がいたらぜひご教授していただきたいです。
よろしくお願いします。

Comments

[otn]

その行のエラーではないのでは？

[xail2222]

Excelファイルは、どのようなパス、フォルダにあるのでしょうか。

例えば、OneDriveなどにあると、該当のエラーが出るようですね。
もしそうなのだとすると
https://teratail.com/questions/250814
これなどが参考になるのでしょうか。私は試してませんが。

pdfとexcelの保存先を変えてもいいかもしれないですね。

[otn]

OnedriveだとPathがなんとURLを返すのですね。何の意味があるのか？？

[RYO_A128]

修正依頼ありがとうございます。
先ほどファイルがOneDrive内に格納されていたのを確認し、別のフォルダに移したところ、うまく動作しました！
OneDriveでのパス指定はおかしくなること、勉強になりました。
ありがとうございます！！

[xail2222]

解決になったようなので、一応同内容ですが回答の方にも書いときますね。

Answer 1

（修正依頼に書いた内容ですが、それで解決したようなのでこちらにも書いておきます。）

例えば、OneDriveなどにあると、該当のエラーが出るようです。
保存場所に拘りが無いのであれば
pdfとexcelの保存先を変えるのが簡単かと思われます。

OneDriveのままでやるのだとすると
https://teratail.com/questions/250814
これなどが参考になるのでしょうか。私は試してませんが。

Answer 2

buf = Dir(ActiveWorkbook.Path & "*.pdf")

これだとどうですか？

追記

いや

buf = Dir(ActiveWorkbook.Path & "\*.pdf")

でいいのでしょうね。

まずは

dim p as String
p = ActiveWorkbook.Path & "\*.pdf"
MsgBox p
buf = Dir(p)

のようにして確認してみることです。

Comments

[RYO_A128]

ご回答ありがとうございます。
変数宣言、デバックのようなものがVBAにあるとは知りませんでした。
勉強になります。早速やってみようと思います。