Excel97VBA

質問

Excel97のVBAでマクロを作っています。

1.xlsというファイルを、2.prn（スペース区切りテキスト）で保存し、再度1.xlsというファイルで元のファイルに上書き保存したいのですが、1というファイル名を任意に変更したいので、保存形式とファイル名を元のファイルと同じにして元のファイルに上書きする、ということは可能でしょうか？

回答No.3

nishi6 · ベストアンサー

prnで保存した時に、シート名が変わってしまいました。以下のように変更すれば、シート名を元に戻します。

Sub SaveMe()
　　Dim myPath As String '最初のxlsのパス
　　Dim myFileName As String '最初のxlsのファイル名
　　Dim mySheetName As String '保存するシート名(***追加***)
　　Dim prnFileName As String 'prnファイル名

　　prnFileName = "2.prn"

　　myPath = ThisWorkbook.Path
　　myFileName = ThisWorkbook.Name
　　mySheetName = ActiveSheet.Name '(***追加***)

　　'メッセージを出さない
　　Application.DisplayAlerts = False
　　'prnでディスクトップに保存
　　ActiveWorkbook.SaveAs Filename:="C:\WINDOWS\デスクトップ\" & prnFileName, _
　　　　　　　　　　　　　　　　　　　　　　　　　　FileFormat:=xlTextPrinter
　　ActiveSheet.Name = mySheetName '(***追加***)
　　'xlsで最初のドライブ・フォルダに保存
　　ActiveWorkbook.SaveAs Filename:=myPath & "\" & myFileName, _
　　　　　　　　　　　　　　　　　　　　　　　　　　FileFormat:=xlNormal
End Sub

お礼

ありがとうございました。
おかげで完成しました。