Excel VBA質問箱 IV

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

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


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

15202 / 76807

←次へ　｜　前へ→


	【67088】Win7で保存マクロが機能しません

いわま - 10/11/3(水) 1:40 -


	引用なし

	パスワード

教えて下さい。
下記のように保存マクロを作りました。
しかし、Windows7では保存できなくなってしまいました。
ＸＰでも７でも保存できるようにするにはどうすればいいのでしょうか？

ファイル名は自動で入れたいので、保存場所だけ任意で選べるように
するのも方法かと思いますが、どうすればよいのか解りません。
よろしくお願いします。

Sub 保存()
'
' 保存 Macro

西暦 = Sheets("データシート").Range("B7")
月 = Sheets("データシート").Range("B8")
部署名 = Sheets("データシート").Range("B10")

If ActiveWorkbook.Name = 部署名 + ".xls" Then
If 西暦 = "0" Or 月 = "0" Then
If MsgBox(部署名 & " .xlsを保存します。", vbYesNo) = vbYes Then
　ActiveWorkbook.Save
　 End If
　 Exit Sub
If MsgBox(部署名 & 西暦 & "年" & 月 & "月" & "のシートを保存します。", vbYesNo) = vbYes Then
　　
　　　　Sheets("データシート").Activate　　 'そのシートを指定
　　　　Fname = Range("B10") & Range("B7") & "年" & Range("B8") & "月" + ".xls"
　　　　ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\All Users\デスクトップ\" & Fname
　　　
　　End If
　　Exit Sub
　　End If

　　Exit Sub
End If
　　If ActiveWorkbook.Saved = False Then
　　If MsgBox(部署名 & 西暦 & "年" & 月 & "月" & "のファイルを保存します。", vbYesNo) = vbYes Then
　　ActiveWorkbook.Save
　　End If
　　Exit Sub
　　End If

End Sub

0 hits

▼

【67088】Win7で保存マクロが機能しません いわま 10/11/3(水) 1:40

≪