別フォルダに保存してあるテキストファイルを重複して強制保存したい

質問

別フォルダに保存してあるテキストファイルを重複して強制保存したいのですが、

Sub wsave() '書き出し後の保存
Dim myOldName As String
Dim myNewName As String
Sheets("AAA").Range("B2").Select
If Selection = "" Then
Exit Sub
Else
myOldName = Sheets("AAA").Range("H11") & "HPlist.txt" '変更元ファイル
myNewName = Sheets("AAA").Range("H11") & Range("H16") '変更後のファイル名
　　　If Len(Dir(myOldName)) > 0 Then
Application.DisplayAlerts = False
Name myOldName As myNewName
Application.DisplayAlerts = True
　　　End If
End If
　　Application.Quit
End Sub

このままではエラー「既に同名のファイルが存在しています」と成り保存されないのです。
どなたかよい方法を教えていただけませんでしょうか？

回答No.1

shin_nosuk · ベストアンサー

こんばんは。

> Name myOldName As myNewName

ここでエラーでしょうか。

Name ステートメントは、変更先の名前が既に存在していればランタイムエラーです。
簡単なのは、Name の前に、

Kill myNewName

ってして、変更先のファイルを削除することでしょうか。
ただし、Kill も、myNewName がない場合は、ランタイムエラーのはずなので、Dir(myNewName) で存在確認してからにしてください。

つまり、

If Len(Dir(myNewName)) > 0 Then Kill myNewName
If Len(Dir(myOldName)) > 0 Then Name myOldName As myNewName

という感じで。
Application.DisplayAlerts は、Excelオブジェクトに関連するエラーだけに関連するプロパティなので、ここでは意味がないです。

次回からは、Excel マクロを使っています、くらいは書くようにしてください。

失礼しました。。。

お礼

こんばんは。

大変有難うございました。

初めての投稿で投稿先を間違えてしまいました。

今後気を付けて投稿いたします。

shin_nosuk　さま　本当に有難うございました。

補足

ご回答を有難うございます。

早速記入し直してやってみました。

myOldName = Range("H11") & "MOVstock.txt" '元ファイル
myNewName = Range("H11") & "m" & Range("H16") & ".html" '変更後の名前
If Len(Dir(myNewName)) > 0 Then Kill myNewName
If Len(Dir(myOldName)) > 0 Then Name myOldName As myNewName
End If
ですね。

これでエラーもなく出来ました。

次回からは、「Excel マクロを使っています」も記入するよう注意いたします。

本当に有難うございました。