エクセルでシート名のCSV形式ファイルの一括複数保存

エクセルで編集した複数のシートをそれぞれのシート名でCSV形式ファイルとして保存するにはシートを開いてはファイル名を指定してCSVで保存という操作をシート分だけしなければならないのですが、これを少ない操作で行う事は可能でしょうか。たとえばシートを複数選択して、CSV形式だけを選択して一括で保存するとかです。

投稿日時 - 2005-10-05 11:05:08

QNo.1693388

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。
マクロを使えばできます。

下記マクロを該当エクセルファイルか個人用マクロブックにコピペして実行してみてください。
エクセルファイルと同じフォルダにシート名+".csv"という名前のCSVファイルを作成します。
(選択したシートのみ)

Sub SaveCsv()
Dim mySheet As Worksheet
For Each mySheet In ActiveWindow.SelectedSheets
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & mySheet.Name & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
Next
End Sub

投稿日時 - 2005-10-07 16:46:19

お礼

完璧です。ありがとうございます。

投稿日時 - 2005-10-07 21:31:58

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(0)

あなたにおすすめの質問

MSN恋人探し

MSN恋愛・結婚

婚活お悩み相談室

告白は確信がないと…

彼女たちに恋の悩みを打ち明けた男性社員は、その恋が成就するという噂。

[PR] お役立ち情報

PR

PR

おすすめ特集

あなたの疑問にお答えします!
あなたの疑問にお答えします!

産経新聞社会部が、あなたの身の回りで起きている問題や疑問を徹底調査した上でご報告します。

簡単ゲームが無料で楽しめる!
簡単ゲームが無料で楽しめる!

スキマ時間にサクッと遊べる!MSNゲームは、インストール不要の簡単ゲームが無料です。