マクロでの自動保存

質問

エクセルで作ったデータをボタン一つで自動的に特定のフォルダーに
保存するマクロを作りたいのですが、色々なサイトを参考に保存名前を
付けて保存するプログラムまでは組めたのですが、特定のフォルダに
保存していくプログラムがうまく動きません。
下記に作成したコードを記載するので、アドバイスお願いします。

Sub データ保存()
Sheets("シート名").Select
パス = ActiveWorkbook.Path
別名 = Application.InputBox(prompt:="入力例.12345", _
Title:=" ファイル名を入力して下さい", Type:=2)
別名 = パス & "\" & 別名 & ".xls"
Sheets("シート名").Copy
ActiveWorkbook.SaveAs Filename:=別名
ActiveWorkbook.Close
End Sub

回答No.1

merlionXX · ベストアンサー

ご質問がいまいちよくわからないのですが、ご提示のコードはそのマクロを書いたBOOKが保存されているフォルダー内にあたらしく保存させるものです。
それを別の指定したフォルダーに変えたいということでしょうか？
そうであれば、以下のように
パス = "C:\Documents and Settings\merlionxx\デスクトップ"
のように直接していするのが簡単です。

Sub データ保存()
Dim パス As String, 別名 As String
Sheets("シート名").Select
パス = "C:\Documents and Settings\merlionxx\デスクトップ"
別名 = Application.InputBox(prompt:="入力例.12345", _
Title:=" ファイル名を入力して下さい", Type:=2)
別名 = パス & "\" & 別名 & ".xls"
Sheets("シート名").Copy
ActiveWorkbook.SaveAs Filename:=別名
ActiveWorkbook.Close
End Sub

回答No.3

imogasi

>ボタン一つで自動的に
この意味はどういうこと。ボタンのクリックをキッカケにプログラムを走らすのか。
Ｇｏｏｇｌｅででも「VBA CommandButton Click」で照会すること。
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_130_02.html
＞自動保存
これもあいまい。
人手の操作を経すに、という意味か。
保存するタイミングはどうする。質問のコードでは、質問のコードを実行するとき、となる。
これをボタンをクリックしたとき、などにしたいのか。簡単だが。
＞特定のフォルダーに保存するマクロ
この点に主眼があるのか。
フォルダ指定をどのようにさせたいのか。
（１）ＩＮＰＵＴＢＯＸなどで応答指定（質問の場合もこれ）
（２）ファイル指定のダイアロウグで選択で行わせる）
（３）プログラムの中に書き込んで固定指定、
（４）その他
など、在りそうだが、どれかあいまいだ
ーー
上記（１）の方法で、ファイル名を含めた「パス」も指定の対象にすれば仕舞いのようでも在る。
ーー
質問表現を丁寧に（その元になる質問者の思考をしっかりと）すること。

回答No.2

merlionXX

ANo1です。

ひょとして保存先ホルダーを自分で選びたいということだったのでしょうか？
それなら

Sub データ保存02()
Sheets("シート名").Copy
If Application.Dialogs(xlDialogSaveAs).Show Then
ActiveWorkbook.Close
End If
End Sub

でできます。