Excel VBA質問箱 IV

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

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


15129 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   教えて下さい。
下記のように保存マクロを作りました。
しかし、Windows7では保存できなくなってしまいました。
XPでも7でも保存できるようにするにはどうすればいいのでしょうか?

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


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 質問
【67089】Re:Win7で保存マクロが機能しません かみちゃん 10/11/3(水) 8:17 発言
【67092】Re:Win7で保存マクロが機能しません いわま 10/11/3(水) 10:40 質問
【67094】Re:Win7で保存マクロが機能しません かみちゃん 10/11/3(水) 10:45 発言
【67097】Re:Win7で保存マクロが機能しません いわま 10/11/3(水) 11:17 質問
【67098】Re:Win7で保存マクロが機能しません かみちゃん 10/11/3(水) 11:38 発言
【67105】Re:Win7で保存マクロが機能しません いわま 10/11/4(木) 0:43 お礼
【67495】Re:Win7で保存マクロが機能しません [名前なし] 10/12/9(木) 13:20 発言

15129 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free