実行時エラー76 パスが見つかりません。

Question

前提・実現したいこと

CSVを書き出そうとすると表題のエラー出ます。
ローカル(デスクトップ)ではうまくいくのですが
共有サーバー上ではエラーとなります。
どのようにしたらエラーが解消されますでしょうか。

Open datFile1 For Output As #1

の箇所でエラーとなります。

発生している問題・エラーメッセージ

実行時エラー76　パスが見つかりません。

該当のソースコード

Sub makeCSV()

Application.ScreenUpdating = False

    Workbooks("例01.xlsm").Sheets("お知らせ").Range("A1:AA5000").Copy _
    Workbooks("マスタ.xlsm").Sheets("貼付01").Range("A1:AA5000")
    Workbooks("例02.xlsm").Sheets("お申込み受領のお知らせ").Range("A1:Q5000").Copy _
    Workbooks("マスタ.xlsm").Sheets("貼付02").Range("A1:Q5000")

With Range("E1")
    .AutoFilter 5, "1"
    Range(Range("B1"), Cells(Rows.Count, 2).End(xlUp)).Offset(1, 0).Copy Worksheets("対象者").Range("A1")
    .AutoFilter 5, "2"
    Range(Range("B1"), Cells(Rows.Count, 2).End(xlUp)).Offset(1, 0).Copy Worksheets("対象者").Range("B1")
    .AutoFilter 5, "3"
    Range(Range("B1"), Cells(Rows.Count, 2).End(xlUp)).Offset(1, 0).Copy Worksheets("対象者").Range("C1")
    .AutoFilter 5, "4"
    Range(Range("B1"), Cells(Rows.Count, 2).End(xlUp)).Offset(1, 0).Copy Worksheets("対象者").Range("D1")
    .AutoFilter 5, "5"
    Range(Range("B1"), Cells(Rows.Count, 2).End(xlUp)).Offset(1, 0).Copy Worksheets("対象者").Range("E1")
    .AutoFilter
End With

With Range("G1")
    .AutoFilter 7, "4"
    Range(Range("F1"), Cells(Rows.Count, 6).End(xlUp)).Offset(1, 0).Copy
    Worksheets("対象者").Range("F1").PasteSpecial Paste:=xlPasteValues
    .AutoFilter
End With

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim ws4 As Worksheet
Dim ws5 As Worksheet
Dim ws6 As Worksheet

Set ws1 = ThisWorkbook.Worksheets("csv1")
Set ws2 = ThisWorkbook.Worksheets("csv2")
Set ws3 = ThisWorkbook.Worksheets("csv3")
Set ws4 = ThisWorkbook.Worksheets("csv4")
Set ws5 = ThisWorkbook.Worksheets("csv5")
Set ws6 = ThisWorkbook.Worksheets("csv6")
 
Dim datFile1 As String
datFile1 = ActiveWorkbook.Path & "\1_" & Range("J2").Value & ".csv"
 
Open datFile1 For Output As #1
 
Dim i As Long
i = 1
Do While ws1.Cells(i, 1).Value <> ""
    Print #1, ws1.Cells(i, 1).Value
    i = i + 1
Loop
 
Close #1
 
Dim datFile2 As String
datFile2 = ActiveWorkbook.Path & "\2_" & Range("J3").Value & ".csv"
 
Open datFile2 For Output As #2
 
i = 1
Do While ws2.Cells(i, 1).Value <> ""
    Print #2, ws2.Cells(i, 1).Value
    i = i + 1
Loop
 
Close #2

Dim datFile3 As String
datFile3 = ActiveWorkbook.Path & "\3_" & Range("J4").Value & ".csv"
 
Open datFile3 For Output As #3
 
i = 1
Do While ws3.Cells(i, 1).Value <> ""
    Print #3, ws3.Cells(i, 1).Value
    i = i + 1
Loop
 
Close #3

Dim datFile4 As String
datFile4 = ActiveWorkbook.Path & "\4_" & Range("J5").Value & ".csv"
 
Open datFile4 For Output As #4
 
i = 1
Do While ws4.Cells(i, 1).Value <> ""
    Print #4, ws4.Cells(i, 1).Value
    i = i + 1
Loop
 
Close #4

Dim datFile5 As String
datFile5 = ActiveWorkbook.Path & "\5_" & Range("J6").Value & ".csv"
 
Open datFile5 For Output As #5

i = 1
Do While ws5.Cells(i, 1).Value <> ""
    Print #5, ws5.Cells(i, 1).Value
    i = i + 1
Loop
 
Close #5

Dim datFile6 As String
datFile6 = ActiveWorkbook.Path & "\6_" & Range("L2").Value & ".csv"
 
Open datFile6 For Output As #6

i = 1
Do While ws6.Cells(i, 1).Value <> ""
    Print #6, ws6.Cells(i, 1).Value
    i = i + 1
Loop
 
Close #6

MsgBox "CSVに書き出しました"
 
End Sub

試したこと

ネット上のはいろいろ試しましたが好転しません。

補足情報（FW/ツールのバージョンなど）

Answer 1

その出ている通り、パスがないってことなんで、

datFile6 = ActiveWorkbook.Path & "\6_" & Range("L2").Value & ".csv"

ここで生成しているパスが共有サーバにあるのかをチェックしてみよう。

Comments

[退会済みユーザー]

ローカルではファイルを同じ階層に出力されるのですが、共有サーバーの場合は別途何か指定しなくてはいけないのでしょうか。

[y_waiwai]

あなたの共有サーバがどういうフォルダ構成かわからないのでこちらではなんとも言えません。

とにかく、Open文のところで実行を止め、datFile1のナカミがどういうパスになってるか確認することです。
そして、共有サーバではどう修正すればいいかを決めましょう

おそらく、その共有サーバには、オープンしようとしているディレクトリが存在していないと思われます。
それを作成してやるなりしてみればどうですか

[y_waiwai]

ああ、こういうはなしかな？
https://pulogu.net/blog/020-computer/excel-vba/get-the-activeworkbook-path/

[退会済みユーザー]

ありがとうございました。
共有サーバーのファイル名に記号が使われていたのが原因でした
教えていただいた方法で「?」が表示されていたので分かりました。