エクセルファイルをCSVファイルに変換する方法

解決済

質問者：wakazzzz
質問日時：2005/05/31 17:17
回答数：5件

初歩的な質問ですいません。
時間のある方教えてください。

今、エクセルで保存しているものをCSVファイルへ変換するマクロを教えていただきたいのですが、

たとえばマクロを実行すると
waka.xlsというファイルが、
waka.csv
になるというだけなのですが、よく分からないので
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： Wendy02
回答日時：2005/05/31 17:54

ふつうは、記録マクロで十分なのですが、一般的なコードとなると、このようなものになりますね。

貼り付ける場所は、どこでもよいのですが、一応、"<標準モジュール>"でお願いします。

Alt + F 11 で、VBE画面を開けたら、挿入－標準モジュールで、出てきた画面に以下を貼り付けて、Alt+F11で閉じます。後は、フォーム・ボタンにでもつけると便利だと思います。このマクロは、CSVファイル側は、閉じてしまいますので、出来たかどうかは、エキスプローラやExcelメニューのファイルから調べてみてください。

'---------------------------------
Sub MakingCSV()
Dim Fname As String
　Fname = ActiveWorkbook.Name
　Fname = Mid$(Fname, 1, InStrRev(Fname, ".xls") - 1) & ".csv"
　　ThisWorkbook.ActiveSheet.Copy
　　Application.DisplayAlerts = False
　With ActiveWorkbook
　　　　　　 .SaveAs Filename:=Fname, _
　　　　　　　　　　 FileFormat:=xlCSV, _
　　　　　　　　　　 CreateBackup:=False
　　　　　　　　　　
　　　　　　 .Close False
　End With
　Application.DisplayAlerts = True
End Sub

この回答への補足

すいません、一点だけ
今回CSVファイルは自分のMydocumentに入ったのですが、その部分を指示している部分はどこなのでしょうか？
というよりはDesktopに保存ができればというのがニーズです。

よろしくお願いします。

補足日時：2005/06/01 12:27

通報する

- 0
- 件

通報する

この回答へのお礼

ありがとうございます！
すばらしいです。
うまくいきました。

ありがとうございました。

通報する

お礼日時：2005/06/01 12:26

No.5

回答者： Wendy02
回答日時：2005/06/01 15:01

こんにちは。

＞Desktopに保存ができればというのがニーズです。

つい、うっかり気が付かなくて、すみません

Const myPath As String = "○○\"

ここの部分を、実際のフォルダ名に直してください。

Sub MakingCSV2()
Dim Fname As String
　'設定:注意　行末は、必ず「\」を入れてください。
　Const myPath As String = "C:\Documents and Settings\[ Users]\デスクトップ\"
　Fname = ActiveWorkbook.Name
　Fname = Mid$(Fname, 1, InStrRev(Fname, ".xls") - 1) & ".csv"
　　ThisWorkbook.ActiveSheet.Copy
　　Application.DisplayAlerts = False
　With ActiveWorkbook
　　　　　　 .SaveAs Filename:=myPath & Fname, _
　　　　　　　　　　 FileFormat:=xlCSV, _
　　　　　　　　　　 CreateBackup:=False
　　　　　
　　　　　　 .Close False
　End With
　Application.DisplayAlerts = True
End Sub