Windows10にアップデート後VBAが使用できない

Question

お世話になります。

Windows10にアップデート後Excel2013にてVBAが使用できなくなりました。

下記太字の部分でエラーがでました。

何が問題であるのかご教示いただければ幸いです。

どうぞよろしくお願いいたします。

Sub MergeLEADdn()

    Dim MyPath As String, FilesInPath As String

    Dim MyFiles() As String

    Dim SourceRcount As Long, FNum As Long

    Dim mybook As Workbook, BaseWks As Worksheet

    Dim sourceRange As Range, destrange As Range

    Dim rnum As Long, CalcMode As Long

Dim FirstCell As String

    ' Change this to the path\folder location of your files.

    MyPath = Range("B4")

    '"N:\Operations\NipponDeliveries\2016&B4&"

    ' Add a slash at the end of the path if needed.

    If Right(MyPath, 1) <> "" Then

        MyPath = MyPath & ""

    End If

    ' If there are no Excel files in the folder, exit.

    FilesInPath = Dir(MyPath & "*.csv*")

    If FilesInPath = "" Then

        MsgBox "No files found"

        Exit Sub

    End If

    ' Fill the myFiles array with the list of Excel files

    ' in the search folder.

Answer 1

MyPath = Range("B4")

でMyPathにはB4の値が代入されていますが、代入されているB4のパスに実際にフォルダは存在しますか？隠しフォルダとかではないですか？

隠しフォルダやシステムフォルダの場合、Dir(○○, vbHidden)などの引数が必要になります。その辺を再度確認された方がいいです。

Answer 2

​nombo さん、いつもアドバイスありがとうございます。

satomiO さん、こんにちは。

マイクロソフト コミュニティへの投稿、ありがとうございます。

VBA の記述内容に問題がないかを確認したい、ということであれば、MSDN フォーラムで情報を集めてみてはいかがでしょうか。

MSDN フォーラム内に VBA 専用のフォーラムがありますので、よろしければご利用ください。

◇MSDN フォーラム > Visual Basic for Application(VBA)

Answer 3

お返事ありがとうございます。

以前のウィンドウズのバージョンではプログラムは問題なく動きますので、プログラムの内容に問題があるかどうか疑問なんです。。。