EXCEL VBAで、

①シートの名前をファイル名にして、
②保存先(例えばデスクトップなど)を指定して保存
というマクロを作成しています。

自分で作ったのは下記のようなものですが、
これだと②の保存先を指定することができません。

ActiveWorkbook.SaveAs Filename:=ActiveSheet.Name, _
FileFormat:=xlNormal, CreateBackup:=False

これをどう変更すれば保存先を指定できるのでしょうか?
当方VBA初心者です。よろしくご指導くださいませ。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2006/04/28 16:57:31
  • 終了:2006/04/28 17:47:48

回答(3件)

id:llusall No.1

llusall回答回数505ベストアンサー獲得回数612006/04/28 17:14:24

ポイント27pt

こんなで、いけるかと思います。

Dim FPath As String

FPath = "C:\" & ActiveSheet.Name & ".xls"

ActiveWorkbook.SaveAs Filename:= FPath, _

FileFormat:=xlNormal, CreateBackup:=False

'FPath を変更してみてください。

http://www.google.co.jp/ (ダミー)

id:taroemon

お返事ありがとうございます。

さっそく試してみます。

2006/04/28 17:44:57
id:taknt No.2

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/04/28 17:14:25

ポイント27pt

Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Name

これで どうでしょうか?

http://www11.ocn.ne.jp/~very/92.htm

id:taroemon

お返事ありがとうございます。

スマートで良い感じですね。

試してみます。

2006/04/28 17:44:35
id:Kenju No.3

Kenju回答回数30ベストアンサー獲得回数22006/04/28 17:18:26

ポイント27pt

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\xxxxxx\デスクトップ\" & ActiveSheet.Name, _

FileFormat:=xlNormal, CreateBackup:=False


Filenameにパスを指定すれば保存先を指定できます。

http:///

id:taroemon

できました。

みなさんのおかげで望んだとおりできました。

本当にありがとうございます。

2006/04/28 17:43:49
  • id:taknt
    自分で指定してということだったので、ダイアログを出すようにしたのですが、いかがだったでしょうか?
  • id:taroemon
    当方が質問してから、またたくまに3件もお返事いたので、
    びっくりして最後にいただいた方法で試したら、
    うまくいきました。

    まだtakntさんのやりかたは試していませんが、
    実はダイアログを出すやり方の方が理想的です。
    これから試してみます。

    お返事ありがとうございました。
    またご指導お願いします。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません