VBA～実行時エラー'75':パス名が無効です。～Excel

エラー名

実行時エラー'75':パス名が無効です。

原因

読み取り専用ファイルを下のコードのようにAppendモードやOutputモードで開こうとすると発生します。

パスの形式が不正の時も発生します。

例

Sub test1()

Open "D:\サンプル1.txt" For Append As #1

End Sub

解決策

下のコードのようにGetAttr関数でファイルの属性を判定してからファイルを開くようにすればエラー回避できます。

Sub test2()

If GetAttr("D:\サンプル.txt") And vbReadOnly <> 0 Then

MsgBox "読み取り専用ファイルです。"

Else

Open "D:\サンプル1.txt" For Append As #1

End If

End Sub