Excel VBA : ファイル出力で「パスが見つかりません」エラーが出る

Question

Excel で 100 行ごとに CSV ファイルを出力するスクリプトを書こうとしているのですが、実行すると下記のスクリプトの最後の行で
「実行時エラー '76':
パスが見つかりません。」
というエラーが出ます。しかし、csvFilePath を MsgBox で見ると正しいパスが出力されています。原因と対処法を教えてください。

    Dim i As Integer
    Dim csvFilePath As String
    i = 0
    ' CSVファイルパスの作成
    csvFilePath = ActiveWorkbook.Path & "\csv\variable_" & i & ".csv"
    ' ファイル番号
    fileNo = FreeFile
    ' ファイル開く
    Open csvFilePath For Output As #fileNo

Comments

[morinatsu]

csvのフォルダは存在していますか？

[stringthread]

空のフォルダとして存在します。

Answer 1

再現しようと思ったら、普通に作れてしまいました。
環境のほうが怪しそうですね。

Sub macro1()
    Dim i As Integer
    Dim csvFilePath As String
    i = 0
    ' CSVファイルパスの作成
    csvFilePath = ActiveWorkbook.Path & "\csv\variable_" & i & ".csv"
    ' ファイル番号
    fileNo = FreeFile
    ' ファイル開く
    Open csvFilePath For Output As #fileNo
    Close #fileNo
End Sub

Comments

[stringthread]

なるほど、ありがとうございます。具体的な原因として有り得そうな理由などは分かりますか？

[morinatsu]

私のコードは、標準モジュールを追加して、プロシジャ(Sub)を切ったその中にあります。
プロシジャの中か外か、およびそれがどこに書かれているかもExcelは気にします。

[morinatsu]

あと、一般論として、ActiveWorkbookが自分の想定したブックでなかったなども。複数のファイルを取り扱うマクロでは気にします。（というか、なるべくActive～のような状況に依存するコードは書きません。）

Answer 2

正しいパスを指定されていても、文字数が多すぎ場合、
Open　ステートメントの限界パスを超過したことによる
エラーが発生の可能性があります。
http://mgate.info/computer/software/msoffice/excel/959/

限界パスが原因でない場合、該当フォルダーが存在していることを
確認してみてください。

Comments

[stringthread]

そういう問題もあるのですね。今回はパスが 55 バイトしかないようなので違う原因のようですが、今後必要なときには気を付けようと思います。

[TanakaHiroaki]

違う原因ですね。
空のフォルダではなく該当ファイルが保存されている必要があります。

[stringthread]

そうなのですか？書き換え前には、全てのデータを一度に出力するプログラムを書いていて、そのときはファイルそのものがなくとも問題なく出力できたのですが、何か該当ファイルが必要となる条件などはあるのでしょうか

[TanakaHiroaki]

ファイルは必要ありません。勘違いでした。