Excel VBA Dirが使えなくなってしまった

Question

Office365にバージョンアップしたら、VBAマクロのDirの部分でエラーが出るようになってしまいました。
myFname = Dir(パス名 & "*.xls", vbNormal)　　←ここでエラーになります。
Dirの中を変数に変更して試してもダメでした。
簡単に修正できる方法がありましたら、ご教示をお願いいたします。

Dim パス名 As String
パス名 = ThisWorkbook.Path

Dim myFname As String
myFname = Dir(パス名 & "\*.xls", vbNormal)

Dim i As Integer
i = 2

Dim ii As Integer
ii = 2

Do While myFname <> ""
    If myFname = "." Then
    ElseIf myFname = ".." Then
    Else
        Cells(i, 1) = myFname
        Cells(i, 2) = パス名 & "\" & myFname

        i = i + 1

    End If

    myFname = Dir()

Loop

Comments

[y_waiwai]

エラーが出たなら、エラーメッセージを提示しましょう
エラーメッセージは、よけいな省略翻訳しないで出たそのママをコピペで提示してください

[Seria]

失礼いたしました。
コンパイルエラー52です。
よろしくお願いいたします。

[sazi]

コンパイルエラーじゃなくて、実行時エラーでしょう？

Answer 1

これでしょうね。
Windows 10でエラーになるマクロ

ファイルの存在を確認するDir関数は、Cドライブなどローカルのパソコン内では正しく動作しますが、http://などで始まる、インターネット上のURLには対応していません。

ご存じない方が多いのですけど、Windows 10では「ドキュメント」フォルダ、「デスクトップ」フォルダ、「ピクチャ」フォルダに保存したファイルは、お使いのパソコン内だけではなく、OneDrive内にも保存されます。

解決策も記載されているので、参考に。

Comments

[Seria]

ありがとうございました！！
OneDrivemと同期されているので、これだと思います。
試してみます。

[Seria]

保存するフォルダの場所をCドライブ直下にしたら実行できました。
本当にありがとうございます。
助かりました。