機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAのエラー

既に同名のファイルが存在しています



Sub Sample1()
    Name "C:\Sample.txt" As "C:\Sample1.txt"
End Sub



主に、Nameステートメントでファイル名を変更するときなど、変更しようとした新しい名前のファイルがすでに存在していると起こります。

新しい名前のファイルがすでに存在しているかどうか、Dir関数で調べてからNameステートメントを実行しましょう。

Sub Sample2()
    If Dir("C:\Sample1.txt") <> "" Then
        MsgBox "C:\Sample1.txt はすでに存在します"
    Else
        Name "C:\Sample.txt" As "C:\Sample1.txt"
    End If
End Sub



このエントリーをはてなブックマークに追加