Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 8.1 Pro : Excel 2010)
マクロ実行中に「MicroSoft Excelは動作を停止しました」が発生する
投稿日時: 18/05/30 14:47:03
投稿者: ふぁんふぁn

個人毎の作業日報があり、入力したら「入力完了」マクロを各人に実行してもらっています。
マクロではシート内のチェックを行い、チェックが全てOKの場合、ブックの保存とバックアップ用に別なフォルダに名前を付けて保存しています。
 
名前を付けて保存中に「MicroSoft Excelは動作を停止しました」のエラーメッセージが発生したり、しなかったりで運用に困っています。
※30名が作業日報を利用していますが、全員が同じ現象が発生しているとは限りません
※実際に私も使用していますが、私のPCでは発生していません
※発生するPCのExcelのセキュリティセンターの値を私のPCのExcelにも適用しましたが発生しません。
※30名が使用しているPCは、メーカーはバラバラ、CPU、メモリもバラバラです。
※ソフトウェアは社内で決められた標準ソフトのみを全員が利用しています。
(但し、私と事務員のPCにはCADソフトはなく、他のメンバーはCADソフトを使用しています)
 
下記が使用中のマクロです。
         
      ActiveWorkbook.Save
 
 'バックアップファイルの作成
       Application.DisplayAlerts = False
    '現在のファイルがおいてある一つ上のフォルダへ移動する
       Dim パス
      パス = CreateObject("Scripting.FileSystemObject").GetParentFolderName(ThisWorkbook.Path)
      If パス = "G:\G04\管理\作業日報" Then
 @ ActiveWorkbook.SaveAs Filename:=パス & "\バックアップ\" & 作業月日 & "_" & 氏名 & ".xls", FileFormat _
                :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
                False, CreateBackup:=False
           Application.DisplayAlerts = False
           ActiveWorkbook.Close
      Else
 A ActiveWorkbook.SaveAs Filename:=パス & "\作業保存用\" & 作業月日 & "_" & 氏名 & ".xls", FileFormat _
                :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
                False, CreateBackup:=False
           Application.DisplayAlerts = False
           ActiveWorkbook.Close
      End If
 
 通常は@のロジックとなります。
 
マクロが問題なのか、PCの環境が問題なのか不明です。
ご助言いただけたら嬉しいです。
 
 
 
 

回答
投稿日時: 18/05/30 15:09:18
投稿者: mattuwan44

>「MicroSoft Excelは動作を停止しました」
その文言で検索してみるのが一番です。
多くのサイトで、エクセルの「修復」を試してみろといっているようです。
 
https://www.aiseesoft.jp/tutorials/excel-has-stopped-working.html
 
あと、アドインソフトなどそのパソコンのみ入れているソフトが邪魔してないかも確認してみてください。
改善しないならエクセルの再インストールとか僕ならやってみるかも。
 
あぁ、その前にブックが壊れないか、シートを新規ブックにコピーして、
マクロも移してみて試してみてください。
 
他のPCで不具合が出てないなら、
多分マクロのせいではないでしょう。
 
ブックかアプリケーションそのものが壊れているのでは?と、推測します。
断言はできませんが。。。

投稿日時: 18/05/30 15:20:28
投稿者: ふぁんふぁn

mattuwan44 様
 
早速のご助言ありがとうございます。
「MicroSoft Excelは動作を停止しました」で検索してみましたが、一応マクロも見てもらえばと思い、あげてみました。
 
共通のアドインソフトもありますが、全員に聞き取りしていないため、アドインを含め一つずつ潰してみようかと思います。
 
「ふー」って感じです。
 
 
 

mattuwan44 さんの引用:
>「MicroSoft Excelは動作を停止しました」
その文言で検索してみるのが一番です。
多くのサイトで、エクセルの「修復」を試してみろといっているようです。
 
https://www.aiseesoft.jp/tutorials/excel-has-stopped-working.html
 
あと、アドインソフトなどそのパソコンのみ入れているソフトが邪魔してないかも確認してみてください。
改善しないならエクセルの再インストールとか僕ならやってみるかも。
 
あぁ、その前にブックが壊れないか、シートを新規ブックにコピーして、
マクロも移してみて試してみてください。
 
他のPCで不具合が出てないなら、
多分マクロのせいではないでしょう。
 
ブックかアプリケーションそのものが壊れているのでは?と、推測します。
断言はできませんが。。。

回答
投稿日時: 18/05/30 15:40:42
投稿者: Suzu

こんにちは。
 
1. ファイル容量はどのくらいなのでしょう?
 
2. パスが、G:となっています。 これは、ネットワークドライブなのでは?
   その場合、このファイルは複数人が同時使用していたりしませんか?
 
3. なぜ直接SaveAsしようとするのですか?
   受験分岐せずにローカルドライブに保存して、それをコピーすれば良いのでは?
   そのあとに、条件分岐でパスを分けては?
   そうすればExcelの問題なのか、ネットワーク(ネットワークドライブ含む)絡みの問題なのか判るのでは?
    (必要に応じて「起動時」に前回のファイル削除。
    保存した時点でローカルが本体になりますから削除できません)

投稿日時: 18/05/30 17:14:30
投稿者: ふぁんふぁn

mattuwan44 様
 
Excelの修復を行っても同じ現象でした。
また、アドインも私のPCと同じものが入っており問題なさそうです。
Officeの修復を行ってみるつもりです。
 
 
 

ふぁんふぁn さんの引用:
mattuwan44 様
 
早速のご助言ありがとうございます。
「MicroSoft Excelは動作を停止しました」で検索してみましたが、一応マクロも見てもらえばと思い、あげてみました。
 
共通のアドインソフトもありますが、全員に聞き取りしていないため、アドインを含め一つずつ潰してみようかと思います。
 
「ふー」って感じです。
 
 
 
mattuwan44 さんの引用:
>「MicroSoft Excelは動作を停止しました」
その文言で検索してみるのが一番です。
多くのサイトで、エクセルの「修復」を試してみろといっているようです。
 
https://www.aiseesoft.jp/tutorials/excel-has-stopped-working.html
 
あと、アドインソフトなどそのパソコンのみ入れているソフトが邪魔してないかも確認してみてください。
改善しないならエクセルの再インストールとか僕ならやってみるかも。
 
あぁ、その前にブックが壊れないか、シートを新規ブックにコピーして、
マクロも移してみて試してみてください。
 
他のPCで不具合が出てないなら、
多分マクロのせいではないでしょう。
 
ブックかアプリケーションそのものが壊れているのでは?と、推測します。
断言はできませんが。。。

回答
投稿日時: 18/05/30 18:06:55
投稿者: Abyss2

保存形式が「.xls」ファイルならばその事実を明確にしてみては?
 
  xxx.SaveAs ..., FileFormat:=xlExcel8, .....

トピックに返信