Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13018 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7532】上書きメッセージを表示させない ちちみ 03/9/8(月) 12:02 質問
【7533】Re:上書きメッセージを表示させない ハマゾウ 03/9/8(月) 12:23 回答
【7534】Re:上書きメッセージを表示させない ぴろ 03/9/8(月) 13:13 発言
【7536】Re:上書きメッセージを表示させない ちちみ 03/9/8(月) 13:19 質問
【7537】Re:上書きメッセージを表示させない ぴろ 03/9/8(月) 13:33 回答
【7543】Re:上書きメッセージを表示させない ちちみ 03/9/8(月) 15:09 お礼
【7552】Re:上書きメッセージを表示させない ぴろ 03/9/8(月) 16:13 回答
【7535】Re:上書きメッセージを表示させない ちちみ 03/9/8(月) 13:13 お礼
【7532】上書きメッセージを表示させない
質問  ちちみ  - 03/9/8(月) 12:02 -
引用なし
パスワード
   教えて下さい。
ファイルを名前を付けて保存するマクロを作成しました。
この場合だと「この場所に同じ名前のファイルが存在します。置き換えますか？」
とメッセージが表示されてしまいます。
いつもこの場所にこの名前で登録させたいのでメッセージを表示させたくありません。
どうしたら良いのでしょうか？

　 ActiveWorkbook.SaveAs Filename:= _
　 "K:\日々管理\報組立係.xls", FileFormat:=xlNormal, _
　　　Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
　　　CreateBackup:=False

まったくの初心者です。宜しくお願い致します。
【7533】Re:上書きメッセージを表示させない
回答  ハマゾウ E-MAIL  - 03/9/8(月) 12:23 -
引用なし
パスワード
   ▼ちちみ さん：
以下のとおり一行追加すればOKです。

>　 Application.DisplayAlerts = False 'この行を追加
>　 ActiveWorkbook.SaveAs Filename:= _
>　 "K:\日々管理\報組立係.xls", FileFormat:=xlNormal, _
>　　　Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
>　　　CreateBackup:=False
>
【7534】Re:上書きメッセージを表示させない
発言  ぴろ  - 03/9/8(月) 13:13 -
引用なし
パスワード
   こんにちは。

>以下のとおり一行追加すればOKです。
>>　 Application.DisplayAlerts = False 'この行を追加

記述はハマゾウさんの書かれたとおりですが、
Excel2000の場合、最低SR-1のサービスパックを当てていないと
この設定が無効になる（どう記述しても確認のダイアログが表示される）
という障害がありますので、使用する環境できちんと当てられているか、確認が必要になると思います。

以前に客先のExcelにSR-1があたっていなかった為に作ったExcelに対して
障害だと言われたことがあります。
使ってもらう人にSR-1は必須であることを伝えるべきですね。
【7535】Re:上書きメッセージを表示させない
お礼  ちちみ  - 03/9/8(月) 13:13 -
引用なし
パスワード
   ▼ハマゾウ さん：
ありがとうございます！できました＼（＾＾）／万歳

たった１行なのに、大切な１行なんですね。
【7536】Re:上書きメッセージを表示させない
質問  ちちみ  - 03/9/8(月) 13:19 -
引用なし
パスワード
   ▼ぴろ さん：
ご忠告ありがとうございます。
すみません、私まったくの”シロウト”なもので、

>Excel2000の場合、最低SR-1のサービスパックを当てていないと
>この設定が無効になる（どう記述しても確認のダイアログが表示される）

と、教えていただいたのですが…
SR-1のサービスパック自体何の事だか分らないのです。すみません。
もう少し、説明していただけますか？
【7537】Re:上書きメッセージを表示させない
回答  ぴろ  - 03/9/8(月) 13:33 -
引用なし
パスワード
   ▼ちちみ さん：
>SR-1のサービスパック自体何の事だか分らないのです。すみません。
>もう少し、説明していただけますか？

Microsoftのような巨大なところでもソフトウェアを開発する際に
バグがでるため、バグを修正した差分です。

ここ最近発売されているOffice製品（WordやExcelなど）は最初から
このSR-1というプログラムの修正部分が適用された形で売られているのですが、
それ以前に買った場合には何も適用されていないのです。
現在はサービスパック3か4くらいまで出ていますが、Office製品は最低SR-1という
修正差分が適用されていないと使い物にならないと言われているくらい、
重要な修正ですので、使う環境では念のため確認したほうが良いと思います。

詳しくは、MicrosoftのOfficeホームページをいろいろ見てみてください。
http://office.microsoft.com/home/
【7543】Re:上書きメッセージを表示させない
お礼  ちちみ  - 03/9/8(月) 15:09 -
引用なし
パスワード
   ▼ぴろ さん：
丁寧にありがとうございました。
修正用のプログラムのことなのですね。

社内展開のエクセルファイルなので､私のパソコンで実行してから
業務の担当者のパソコンでも、実行してみました。
おかげさまで、メッセージが表示されないまま上書き保存ができました。

これで大丈夫だと、思うのですがどうでしょうか？
【7552】Re:上書きメッセージを表示させない
回答  ぴろ  - 03/9/8(月) 16:13 -
引用なし
パスワード
   ▼ちちみ さん：

>社内展開のエクセルファイルなので､私のパソコンで実行してから
>業務の担当者のパソコンでも、実行してみました。
>おかげさまで、メッセージが表示されないまま上書き保存ができました。
>
>これで大丈夫だと、思うのですがどうでしょうか？

多分、修正が適用されてからのExcelを使われているようなので
大丈夫だと思います。
社内に配布する際に、一応、「SR-1」が適用されていないと動作に不備が
出る可能性がある、と一言付け加えておけば万全だと思いますよ。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13018 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free