• ベストアンサー

Excel VBA 57121のエラー

最近のWindows Updateのあと、Excel 2003のVBAで エラー 57121が 表示されるのですが、なにか情報はありませんか? シート名を取得する簡単なVBAなのに... s=sheets("テスト").name Updateで今まで動いていたマクロがうごかなくなると Updateと言うより ウィルスだよねww

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

ここで、回答した事ですけど http://oshiete.goo.ne.jp/qa/8942253.html 2015/3/11のWindowsUpdateを実行すると、Excel2003ではVBAの実行時に上記のようなエラー57121が頻繁に発生するようになります。 私の場合、今まで動いていた、次の一行でさえ57121が発生するようになりました。 　Worksheets("買掛・未払伝票").Range("L1").Value = Gyo_Ban ただし、Excel2013では問題なく動きます。 Microsoftに問い合わせても、すぐには解決されないでしょう。 MicrosoftがWindowsUpdate後の動作確認を、Excel2003のVBAで実施していないのが原因と思われます。 したがって、セーフモードでたちあげ、システムの復元を実行し、2015/3/9の状態に戻しました。 結果、上記一行も動くようになり、実行時エラー57121は発生しなくなりました。 4月のWindowsUpdateで問題が解決されることを祈るのみです。 それまでは、Excel2003でVBAを使っている人は、WindowsUpdateを実行してはいけません。 システムの復元以外の解決策があるのなら、私も知りたいです。 WindowsUpdateのバグ以外に原因はありません。 絶対安全を求めるマスコミが、Microsoftに求めない理由がわかりません。 ちなみに、私は100%のことはできません。私に100%は求めないで下さい。 この回答にも・・・・・

tate1943
質問者

お礼

ありがとうございます。システムの復元を実行しましたが、1回分の復元ポイントしかなく、元にもどせませんでした。一度、アンインストールから更新ファイルをすべて削除して使えるようになりました。 ありがとうございました。

その他の回答 (1)

回答No.1

http://www.ka-net.org/blog/?p=5251 が修正されていない ActiveXコントロールを使っているなら使わない記述に変更する必要がある

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • EXCEL VBA シートをコピーする時にエラーが発生してしまう件

    EXCEL VBAでシートをコピーするマクロを作成しているのですが、【10】にて時々エラーが発生してしまいます。100シート分ぐらいをコピーしたいのですが、途中で30シートぐらいの所で止まってしまいます。 （シートが10前後だと問題なく処理が終ります） 止まってしまうシートはまちまちなので、 シート名称が問題だとは考えにくいです。 ちなみに【8】でのsheets_nameは取得できてます。 前後に何かを入れることにより解決するのか、 ソース本体をいじれば解決するのか、 詳しい方、何卒、解決方法を ご指導いただけますよう宜しくお願いします。 【1】 '取得した配列の数だけループを行う。 【2】 For i = LBound(test) To 配列数 - 1 【3】 【4】 列番号 = Mid(test(i), 4, 3) 【5】 Debug.Print "test(" & i; ") : " & test(i) 【6】 【7】 'FORMATシートをコピーし、その名称を変数名にする 【8】 sheets_name = Worksheets("実績").Cells(18, 列番号).Value 【9】 【10】 Worksheets("FORMAT").Copy After:=Sheets("FORMAT") 【11】 【12】 ActiveSheet.Name = (sheets_name) 【13】 Cells(4, 3) = (sheets_name)

  • エクセルVBAでSheetの変数を取得する方法

    エクセルVBAの初心者です。基本的なことだと思いますが、質問いたします。 Sheetを指定するには、Sheet(1)もしくはSheet("シート名")の二つがあるかと思います。 シート名を取得するには、Sheets（1）.Nameがあたるかと思いますが、シート名からシート番号を取得する方法がありましたら教えていただきたいです。 何卒よろしくお願いいたします。

  • エクセルVBAで一番左の可視シート名を取得

    エクセルVBAで一番左側にあるシート名を取得する場合、通常は Sub test01() 　　MsgBox Sheets(1).Name End Sub で簡単にできますが、このSheets(1)が非表示になっている場合でもその名前が取得されるため、見た目での一番左側にあるシート名ではなくなってしまいます。 もちろん、非表示になっているシートを除外して Sub test02() 　　Dim n As Integer 　　For n = 1 To Sheets.Count 　　　　If Sheets(n).Visible Then 　　　　　　MsgBox Sheets(n).Name 　　　　　　Exit For 　　　　End If 　　Next End Sub とすれば取得できるのはわかりますが、こんなまだるっこい方法以外に簡単に一番左の可視シート名を取得する方法はないでしょうか？ （＾∇＾）？ ご教示くださいませ。

  • エクセルのVBAについて

    エクセルのVBAについて教えて下さい。 エクセルのVBAでプログラムを組んでいるのですが、一つわからないことがあるのです。 マクロが実行(オープン)されるファイル名（ファイルパス）をVBAで取得するためにはどうすればいいでしょうか？ たとえば、マクロが実行されるファイルがC:\テスト.xlsならば "C:\テスト.xls"を取得したいと考えています。 どなたかご教授お願い致します。 宜しくお願い致します。

  • Excel VBAの不可解（？）な動作について

    Excel 2000 VBAでの質問です。 Sheet1に以下のようなコードを書きました。 --------------------------------------------------------- Public Sub test() Application.DisplayAlerts = False Sheets("Sheet2").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "test" Sheets("test").Visible = xlVeryHidden Sheets("Sheet3").Visible = xlVeryHidden Sheets("test").Visible = True Sheets("test").Delete Sheets("Sheet2").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "test" '問題の行 Application.DisplayAlerts = True End Sub --------------------------------------------------------- このコードで期待している動作は、最終的にSheet3（xlVeryHiddenになっている）の後ろにSheet2をコピーし、その名前を「test」にするというものです。 しかし、実際にはSheet3の後ろにSheet2がコピーされるものの、名前はSheet2が「test」と変更されてしまいます。 Sheets.Countの値はSheet3をさしているはずなのですが・・・。 皆様に教えていただきたいのは、 ・この意図しない動作がなぜ起こるか ・どうすればこの問題を回避できるか です。よろしくお願いいたします。 もし初歩ミスでしたら、申し訳ありません・・・。ご指摘ください。

  • Excel vba

    Excel vba をはじめて1ヵ月程度の初心者ですが、すいません質問させて下さい。 シートをCodeNameでSheets()みたいに指定はできるのでしょうか？ また、図形をIDでShaps()みたいに指定する方法はあるのでしょうか？ どちらも名前(.Nameの方)は変えてある状態です。 例えばアクティブシート名は"テスト"、図形名は"サンプル"みたいな状態です。 名前は自由に変えていきたいのですが、名前が変わってもかわらず指定できるようにしたいです。 Sub test1 Debug.Print Activesheet.Name Debug.Print Activesheet.Index Debug.Print Activesheet.CodeName Debug.Print Excel.Selection.Name Debug.Print Excel.Selection.Index Debug.Print Excel.Selection.ShapeRange.ID End Sub どなたか御教授おねがい致します！！

  • エクセルのVBAマクロで隠れシートを表示させる方法について教えて下さい

    エクセルのVBAマクロで隠れシートを表示させる方法について教えて下さい。 エクセルで”書式→シート→表示しない”を実行するとエクセルのシートを非表示にすることが出来ます。 逆に”書式→シート→表示する”にすると隠れているシートが表示出来ます。 この非表示のシートを表示させるVBAマクロの記載を教えて下さい。 但し、”Sheets(シート名).Visible = True”の様にシート名を記載すれば非表示のシートが表示されるのは知っています。今回知りたいのは、シート名の分からない全ての非表示のシートを表示させるVBAマクロの記載方法を教えて下さい。

  • Excel VBAでオブジェクト名を変更する方法

    Excelでシートを新規追加するマクロを作っています。この時、下記のようなコードでシート名を変更するのですが、同時にオブジェクト名も変更する事は可能でしょうか？ Sheets.Add ActiveSheet.Name = "テスト" なぜオブジェクト名も変更したいのかと言いますと、動的にイベントプロシージャを作成する際、下記のようなコードを記述してるのですが、シート名とオブジェクト名が一致してないとエラーが出てしまうんです。 Dim cdMoj as CodeModule Dim Ln as Long Set cdMoj = ThisWorkBook.VBProject.VBComponents(ActiveSheet.Name).CodeModule Ln = cdMoj.CreateEventProc("Click", "Command1") cdMoj.InsertLines Ln + 1, "MsgBox ""ＶＢＡで追加したマクロです。""" なにか良い方法がありましたらご教授下さい。どうぞ宜しくお願いします。

  • ＥＸＣＥＬのＶＢＡですが。

    ＥＸＣＥＬのＶＢＡですが。 Sub macro1() Dim mycnt As Integer Dim sheet_name1 As String Sheets("kekka").Select Range("A1").Select Sheets("shiji").Select mycnt = Range("B1").Value sheet_name1 = Range("c" & mycnt) Sheets("kekka").Select Sheets("kekka").name = sheet_name1 Sheets("kansuke").Select Sheets("kansuke").Copy Before:=Workbooks("2007年報告.xls").Sheets(3) End Sub （やりたいこと） B1に入っている数値でＣ１からC10に入っているあるシートの名前(たとえばkansukeとする）を取り、その名前で kekkaというシート名をkansukeという名前に変える。 名前を変えたkansukeというシートを別の2007年報告というbookにコピーを転送する。 (質問）上のコードで実はkansukeと書いてあるところは，Ｂ１の値次第で当然いろいろに 変化するため、そのシート名にとらわれない書き方をしたいのですがどう記述すればいいのか わかりません。以上お願いします。

  • エクセル２０００マクロインデックスエラー

    下記のマクロでインデックスが有効範囲にありません。 Windows(F_NAME).Activate→エラー個所 Sheets(M_KAKOBA(count)).Select→エラー個所 教えてください。 Dim work, hensu, i, j, h Windows("加工品.xls").Activate work = Sheets("masta").Cells(3, 6).Text 'シート名の変更 Windows(F_NAME).Activate Sheets(M_KAKOBA(count)).Select ActiveSheet.Name = work

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する