Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20064 / 76735

←次へ　｜　前へ→


	【62096】Re:マクロ実行後の「名前を付けて保存」をキャンセル

neptune - 09/6/22(月) 15:16 -


	引用なし

	パスワード

▼まき子さん：
このマクロはご自分で書いたんですよね？

ササッとしか見てませんけど、
>　　Dim myFileName As String　　
>　　fn = ThisWorkbook.ActiveSheet.Range("C3") '拠点名
>　　fn2 = "結果" & "(" & fn & ")"　　　 '新しいBook名。
>　　　'名前を付けて保存ダイアログボックスを開く
>　　　　myFileName = Application.GetSaveAsFilename(fn2, "Excelファイル(*.xls),*.xls")
>　　　　If myFileName = "False" Then
>　　　　　　Exit Sub
>　　　　Else
>　　　　　　With Application
>　　　　　　　　ActiveWorkbook.SaveAs myFileName, FileFormat:=xlNormal, _
>　　　　　　　　Password:="6920", WriteResPassword:="", _
>　　　　　　　　ReadOnlyRecommended:=False, CreateBackup:=False
ここで名前をつけて保存をしてますが、その時には
・ActiveWorkbookはまだ3シート持っているんじゃないですか？

UPされているソースを見る限りそれだけの問題のように見えます。

0 hits

▼

【62094】マクロ実行後の「名前を付けて保存」をキャンセル まき子 09/6/22(月) 14:18