Excel マクロについて

質問

Excelで作成したシートを次の手順で保存できるようなマクロを作成したいのですがどうしたらいいでしょうか？

　１）あらかじめ所定のフォーマットを用意しユーザーが入力できるようにする。

　２）ユーザがボタンを押すとそのシートの上２行(1行、2行)と左１列(A列)が削除され、
　　　(タイトル行なのでCSVにする際に不要な為。)

　３）「名前を付けて保存」のダイアログボックスが表示し

　４）保存先のフォルダが「X:\DATA\」となるようにし

　５）ファイル名がその日付（yyyymmdd.csv）、CSV形式 (例:20031125.csv)となるようにし、
　　　（ユーザーにても変更の可能性もあるので固定にはしない）

　６）ユーザーが保存先、ファイル名等を確認語保存する。

　７）保存後は元のEXCELシート（CSV形式でない）で開いた状態で終了とする。

自分でも作成したのですが、本当にこれでいいのかも疑問でご意見を教えて下さい。
特に、7)のところがうまくいかず、6)での保存後どうしても開いているファイルの状態が CSV状態になります。

以上、ご存知の方教えて下さい。

回答No.3

Taketoshi · ベストアンサー

保存ファイル名、保存先フォルダの指定ができているものとして記述します。

全体として
(1)保存シートを新規ブックに保存
(2)新規ブックをcsvで保存
(3)新規ブックを閉じる
とすれば、保存後は元のExcelシートが表示されると思います。

とりあえずのコードです。
--------------------------------
'画面設定
Application.ScreenUpdating = False
Application.DisplayAlerts = False

'保存ファイル名設定
fName = Application.GetSaveAsFilename
If fName = False Then
GoTo EOF
End If

'保存シート選択
Sheets("Book1").Select
'保存シートを新規ブックにコピー
Sheets("Book1").Copy
'新規ブック保存
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlCSV, CreateBackup:=False

'新規ブッククローズ
ActiveWorkbook.Close

EOF:
'画面設定
Application.ScreenUpdating = True
Application.DisplayAlerts = True

回答No.4

bikkuri

#2の捕捉です。

>>７）が上手く行かないことについてです処理対象のシートをコピーして
>>コピーしたシートを加工、保存したのち、削除するのはどうでしょう
>
>できるだけユーザの手が掛からないようにしたいのですか？

当然、シートのコピーや最後の削除は一連のマクロ（プログラム）内で
するものです。
シートのコピーで上手く行かないようなら、#3さんのように
新しいBookを利用するのがいいようですね。

回答No.2

bikkuri

７）が上手く行かないことについてです
処理対象のシートをコピーして
コピーしたシートを加工、保存したのち、
削除するのはどうでしょう

補足

>７）が上手く行かないことについてです処理対象のシートをコピーして
>コピーしたシートを加工、保存したのち、削除するのはどうでしょう

　できるだけユーザの手が掛からないようにしたいのですか？

回答No.1

78tch

保存するのに
ActiveWorkbook.SaveAs
を使ってますか？
「本当にこれでいいのか」は何がどういいのか誰が決めるんですか？

補足

>保存するのに ActiveWorkbook.SaveAs を使ってますか？
　　使っています。
>「本当にこれでいいのか」は何がどういいのか誰が決めるんですか？
　　社内ユーザーの数人に使ってもらい判断したいと思ってみます。