ここから本文です

マクロ csv 特定シートを任意のフォルダへ出力

bel********さん

2012/7/2218:27:14

マクロ csv 特定シートを任意のフォルダへ出力

はじめまして。

アクティブなシートからマクロを実行し、特定のシートの内容をcsvで出力したいと思っております。
出力の際、保存先のフォルダとファイル名を選択できるとうれしいです。

初心者のため、コードをモジュールにコピペできるように回答いただけると助かります。

よろしくお願いいたします。

閲覧数:
2,441
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

har********さん

2012/7/2221:15:14

たとえばSheet3をCSVで保存する場合です。
Application.GetSaveAsFilenameで「名前を付けて保存」の時のダイアログを表示します。
InitialFileNameとFileFilter(CSVを設定)を使っていますが、ほかにもいろいろな引数があるので、必要なら調べてみてください。


Sub sample()
Dim csvName As String
csvName = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="CSVファイル(*.csv),*.csv") '「名前を付けて保存」ダイアログ(CSV対象)
If csvName = "False" Then Exit Sub 'キャンセルなら終わり
Sheets("Sheet3").Copy 'Sheet3を新しいBookにコピー
ActiveWorkbook.SaveAs FileFormat:=xlCSV, FileName:=csvName '今作ったBookがアクティブなので、それをCSVで保存
ActiveWorkbook.Close False '保存せずに閉じる
End Sub

質問した人からのコメント

2012/7/23 23:14:09

harlequin2012さん

できました。
こちらの要望通りにコピペの記載をしていただいて感謝しております。
教えていただいたように、ほかの方法も試してみたいと思います。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる