VBA Macのエクセルで作成したマクロをWindowsで正常に実行できない。

Question

以下のマクロをMacのエクセルで作成し正常に実行できるのを確認したのですが、windowsで実行しようとすると、転記先に何も転記されず、何も実行されませんでした。

こうなる前は、
「プロジェクトまたはライブラリが見つかりません」
というコンパイルエラーが出ており、その際は参照設定を少しいじって解決したのですが、それ以降この問題で詰まってしまいました。

windowsとMacではそもそもマクロの設定が異なるみたいな話も聞いたのですが、以下のソースをどのように修正したら、windowsでも動くようになるでしょうか。

どうか、ご助力をいただけたらと思います。。

転記先と転記元は以下のようになっています。

補足ですが
デバッグをしたところ①から②へ処理が飛んでいました（今windowsが手元にないので微妙に場所が違ったかもです、すみません）

転記元

転記先

Sub sample1()

    Dim lngRowsNo       As Long                     ' 書きこむ位置
    Dim lngSheetIndex   As Long                     ' シートの番号
    Dim strFile         As String                   ' Excelファイルの場所
    Dim xlsAcq          As New Excel.Application    ' 取得側Excel
    Dim wbAcq           As Workbook                 ' 取得側Excelブック
    Dim wsAcq           As Worksheet                ' 取得側Excelシート
    Dim wsSet           As Worksheet                ' 設定側Excelシート
    Const strPath       As String = "パスを指定"
    Set wsSet = ActiveSheet
    Dim i As Long

     strFile = Dir(strPath & "*.xls")
    lngRowsNo = 3
    Do Until strFile = ""
'①
        '----- Excelブックを開く
        Set wbAcq = Workbooks.Open(strPath & strFile)

        '----- シートを検索
        For lngSheetIndex = 1 To wbAcq.Worksheets.Count
            '----- 「更新」シートを検索
            If wbAcq.Worksheets(lngSheetIndex).Name = "更新" Then
                '----- 「更新」シートを変数へ登録
                Set wsAcq = wbAcq.Worksheets(lngSheetIndex)
                '----- 「更新」シートの内容を現在のシートにコピー(自由に変更して下さい)
                With wsAcq
                Dim fname As String        'ファイル名
                Dim n As Long                  'ループで使用します。
                Dim m As Long                  'ループで使用します。
                Dim ec1 As Long               '各開発の一番下の担当者のセルを取得
                Dim ec2 As Long               '各開発の 月の一番右（最後）のセルを取得
                Dim ColumnNo As Long    ' 転記先の列番号（初期値４）
                Dim ColumnNo2 As Long    ' 転記元の列番号（初期値５）＋３されていく
                
                ColumnNo = 4
                ColumnNo2 = 5

                For i = 1 To .UsedRange.Rows.Count

                  If (Left(.Cells(i, 2).Value, 3) = "開発A" Or Left(.Cells(i, 2).Value, 3) = "開発B" Or Left(.Cells(i, 2).Value, 3) = "開発C") And .Cells(i, 2).MergeCells = False Then
                     '月を取得して転記
                    ec2 = .Cells(i + 1, 5).End(xlToRight).Column + 1
                    For col = 5 To ec2
                    
                        wsSet.Cells(2, ColumnNo).Value = .Cells(i + 1, ColumnNo2).Value
                        
                        ColumnNo = ColumnNo + 1
                        ColumnNo2 = ColumnNo2 + 3
                        
                    Next col

                    ' ------ 開発〇から一番上の担当者のセル位置を相対的にCells(i + 3, 3)として取得し
                     'データの入っているところまでループさせる (その時、開発名を転記)
                     ec1 = .Cells(i + 3, 2).End(xlDown).Row
                        For n = i + 3 To ec1
                        
                        '担当者が空白の時スキップする
                        If Cells(n, 3) = "" Then
                        GoTo NEXT99
                        End If
                        
                            'ファイル名
                            fname = ActiveWorkbook.Name
                            wsSet.Cells(lngRowsNo, 1).Value = fname
                            
                            '開発
                            wsSet.Cells(lngRowsNo, 2).Value = .Cells(i, 2).Value
                            
                             '担当者
                            wsSet.Cells(lngRowsNo, 3).Value = .Cells(n, 3).Value
                            
                             '工数
                            wsSet.Cells(lngRowsNo, 4).Value = .Cells(n, 5).Value
                            
                            wsSet.Cells(lngRowsNo, 5).Value = .Cells(n, 8).Value
                            
                            wsSet.Cells(lngRowsNo, 6).Value = .Cells(n, 11).Value
                            
                            wsSet.Cells(lngRowsNo, 7).Value = .Cells(n, 14).Value
                            
                            wsSet.Cells(lngRowsNo, 8).Value = .Cells(n, 17).Value
                            
                            wsSet.Cells(lngRowsNo, 9).Value = .Cells(n, 20).Value
                            
                            wsSet.Cells(lngRowsNo, 10).Value = .Cells(n, 23).Value
                            
                            wsSet.Cells(lngRowsNo, 11).Value = .Cells(n, 26).Value
                            
                            wsSet.Cells(lngRowsNo, 12).Value = .Cells(n, 29).Value
                            
                            wsSet.Cells(lngRowsNo, 13).Value = .Cells(n, 32).Value
                            
                             '１行下へ
                            lngRowsNo = lngRowsNo + 1
                            
                            
                            
NEXT99:
                        Next n
                    End If
                Next i
                End With
               '②
                '----- 検索の終了
                Exit For
            End If
        Next lngSheetIndex

        '----- シート参照の解放
        Set wsAcq = Nothing
        '----- ブックを閉じる
        wbAcq.Close Savechanges:=False
        '----- 次のファイルへ
        strFile = Dir()
    Loop

    '----- Excelへの参照の解放
    Set xlsAcq = Nothing

End Sub

Comments

[hana_yama_san]

winとmacでVBAの仕様が違うのは、
「まあ、多分そうなんでしょうね」
という感慨しかありません。

で、正直に言って
「他人の書いた、しかもこんなクソ長いコードを読めるかよ」
と、身も蓋もない答えしか出ません。
　※しかも、あまり構造化しているとは言い難い。

自分でコードを整理して、
ある程度構造化したら、
質問に回答してくる人も出てくるかも知れません。

[yorozuya]

"パスを指定"
↑の指定を間違えているに１票

[icecleam]

パスはwinとMacの時で変わるので特に注意して何度も確認しましたが、それでもダメでした。。

[yorozuya]

末尾に￥記号はついてますか？

[icecleam]

/xxxx/yyyy
という形で記載していました。。
末尾に¥がいるのですね、すみません、明日それで試して見ます！

Answer 1

パス指定で区切り忘れを防止したいのであればこんな方法もあります。

strFile = Dir(strPath & Application.PathSeparator & "*.xls")

Application.PathSeparatorはWindowsなら「\」を、Macなら「:」を返します。