エクセルの名前を付けて保存について

質問

エクセルの名前を付けて保存について教えてください。a.xlsという表を開き名前を付けて保存(CSV形式)にしますとa.csvに変わります。a.xlsのままでおきたいのですがどのようにすればいいでしょうか？

回答No.11

Wendy02 · ベストアンサー

こんにちは。

私は、そういう場合は、マクロで済ましてしまいますが、

手動で行う場合は、

ワークシート下の[シートタブ]－[右クリック]－[移動またはコピー]

移動先ブック名　（新しいブック)

■コピーを作成する
チェックを入れる

[OK]

[ファイル]－[名前をつけて保存] で、
「a」
ファイルの種類－CSV(カンマ区切り)(*.csv)

保存(S)

ということになります。後は、そのExcelが何か言っても、無視して閉じる。

とします。

それをマクロで簡単に表現すると、こういうことになりますね。

'**標準モジュールに登録**
Sub SaveCSV()
　Dim Fname As String
　Dim strFilter As String
　Dim SaveFname As Variant
　strFilter = "CSVファイル(*.csv),*.csv"
　Fname = Mid$(ThisWorkbook.Name, 1, InStr(ThisWorkbook.Name, ".") - 1)

　ActiveSheet.Copy
　SaveFname = Application.GetSaveAsFilename(Fname, strFilter, 1, "ファイル保存")
　If SaveFname <> "" Or SaveFname <> False Then
　　ActiveWorkbook.SaveAs SaveFname, xlCSV
　　ActiveWorkbook.Close False
　End If

End Sub

なお、これは、厳密に言うとExcelが生成した、CSVファイルです。

回答No.1

sakemoni1008

普通の保存で保存して下さい