人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:Excel name VBA デスクトップ ファイル
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● llusall
●27ポイント

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

Dim FPath As String

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

ActiveWorkbook.SaveAs Filename:= FPath, _

FileFormat:=xlNormal, CreateBackup:=False

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

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

◎質問者からの返答

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

さっそく試してみます。


2 ● きゃづみぃ
●27ポイント

Application.Dialogs(xlDialogSaveAs).Show ActiveSheet.Name

これで どうでしょうか?

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

◎質問者からの返答

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

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

試してみます。


3 ● Kenju
●27ポイント

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

FileFormat:=xlNormal, CreateBackup:=False


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

http:///

◎質問者からの返答

できました。

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

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ