ワークブックに名前をつけて保存するマクロ

解決済

質問者：couleur33
質問日時：2008/01/31 17:06
回答数：5件

教えてください！！
ワークブックで名前をつけて保存するときのマクロなんですが、
自動記録すると下記のように記述されています。
ActiveWorkbook.SaveAs Filename:="C:\○○○\○○○\□□□□□.xls"

この□□□□□の部分はインプットボックスを表示させたいのですが、
こういうマクロを組むことはできますか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： Wendy02
回答日時：2008/02/01 10:34

こんにちは。

>コンパイルエラー：修正候補：ステートメントの最後
>とエラーになってしまいます。

そのエラーは、Sub ○○○()
ときちんと書かれていないからです。ファイル名が入っていないエラーではありません。

私も二種類の型で書いてみました。
Test1 は、まだ、エラー処理が足りません。
'-------------------------------
Sub Test1()
'InputBox を使った方法
　　Dim Fname As String
　　Dim fn As String
　　'規定のパスを書いておく
　　Const MYPATH As String = "C:\○○○\○○○\"
　　Fname = InputBox("ファイル名")
　　If Fname = "" Then Exit Sub
　　fn = MYPATH & Fname & ".xls"
　　If Len(Dir(fn)) = 0 Then
　　　　ActiveWorkbook.SaveAs Filename:=fn
　　Else
　　　　MsgBox Fname & " :すでに同じファイルがあります。", 48
　　End If
End Sub
'-------------------------------
Sub Test2()
'ダイアログを使った方法
　　Dim Fname As String
　　Dim fn As String
　　'規定のパスを書いておく
　　Const MYPATH As String = "C:\○○○\○○○\"
　　Fname = Application.InputBox("ファイル名", Type:=2)
　　If Fname = "" Or StrComp(Fname, "FALSE", 1) = 0 Then Exit Sub
　　fn = MYPATH & Fname & ".xls"
　　With Application.Dialogs(xlDialogSaveAs)
　　　　.Show fn, 1
　　End With
End Sub

- 0
- 件

通報する

この回答へのお礼

ありがとうございます！！！
完璧です。本当に助かります。すっきりしました(喜)
1番目もいいけど、2番目はブック名を引用したいときなんかはすごくいいなと思いました！ありがとうございました！！

通報する

お礼日時：2008/02/01 11:48

No.4

回答者： deepbluetk
回答日時：2008/02/01 10:19

たとえば、

'変数の定義
Dim fname$
'ファイル名入力
fname$ = InputBox("ファイル名を入力してください", "○○○に保存", "")
'キャンセルまたは何も入力しなかったした場合、処理を中断
If fnname$ = "" Then
Exit Sub
Else
End If
'ファイルを保存
　　ActiveWorkbook.SaveAs Filename:="C:\○○○\" & fname$

という感じでどうでしょう。
同名のファイル名を入力したとき上書き確認が出ますが、そこでいいえにした場合、エラーになります・・・中途半端ですいません。