エクセルVBAのWinXpでの問題と解決方法

前へ 次へ
このQ&Aのポイント
  • Win98SEで作成したエクセル2000VBAファイルをWinXpにコピーしても開けない問題が発生しています。
  • 「マクロを有効にする」ボタンを押すと「ファイルエラー：データが失われた可能性があります」というエラーメッセージが表示されます。
  • また、エクセルの画面にはボタンが表示されず、57121エラーが発生しています。
回答を見る
  • ベストアンサー

エクセルVBA Win98SE　WinXp

以前Win98SEで作ったエクセル2000VBAファイルですが、WinXp SP3にコピーしたのですが、同じようにファイルが開けません。 Win98SEのパソコンでは問題ありません。LANでWinXpパソコンからアクセスしても同じ症状です。 WinXpもエクセル2000です。 「マクロを有効にする」ボタンを押すと 最初に、「ファイルエラー：データが失われた可能性があります」です。 次にエクセルの画面になりますが、そこに付けてあった「ボタン」が一つもありません。57121エラー「デバック」画面にそのシートの　Sheets("top").Selectにラインが入っています。 １）どんな、ことでこうなっているのでしょうか？ ２）どうすれば、解決できますか？

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

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

Internet Explorerのバージョンが7である場合に発生するようです。 詳しくは、以下の記事をご覧下さい。 http://oshiete1.goo.ne.jp/qa4195663.html

Kaze-omy
質問者

お礼

早速、ありがとうございました。 Internet Explorer_7 環境によるものですネ エクセル2000上に「画像」のような貼り付け物は、表示できなくて「エラー」が出ているのですネ？ＶＢＡで作ったものだけですヨネ？ WinXP上で、エクセル2000VBAで、最初からテストでちょっとしたもの作ってもみようカナ・・・ 「エクセル2003以降・・・」のところも見ました、持っていなのです。

Kaze-omy
質問者

補足

Internet Explorerのバージョン7　です。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. その他([技術者向] コンピューター)

関連するQ&A

  • エクセルのVBAでシート名が重なるときの処理　

    お世話になります。 エクセルのＶＢＡにてリストボックスで選択した単語をシート名に 反映させるマクロを作成しました。 が、一度シート名を作ると２回目に同じ単語を選択すると、 デバック？画面になってしまいます。 『同じ名前のシート名は作れません・・・』 希望としては、同じ名前が出たら自動に連番が割り振られる ようなものを希望しています。 マクロの記録で確認しても、やはり同じデバック要画面がでます。 別シートにシート名を反映させて、同じ名前がヒットしたら 文字列を追加して、そのシートに反映し続ける・・・ ようなことは考えられますが、どうも不細工で気が向きません。 もっとスマートな考えがあれば教えていただきたく よろしくお願いします。 参考に作ったＶＢＡを下記します。 これだと、途中でシートを削除してしまうと デバック画面が発生してしまいます。 （マクロの切り抜きなので、 　リストで選択したものが反映されるマクロではありません） Dim シート名 As String Dim n As Integer Sheets("伝票マスター").Select Worksheets("伝票マスター").Copy before:=Worksheets("伝票マスター") n = Sheets.Count Sheets("伝票マスター (2)").Select ActiveSheet.Name = "伝票" & n - 1 Range("D2") = n - 1 Range("D1").Select 、

  • エクセルVBA実行後にファイルを自動で閉じるVBA

    Sub 印刷() ' ' Macro1 Macro ' マクロ記録日 : 201X/X/X ユーザー名 : AAAA ' ' If MsgBox("実行する場合はＯＫ、間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。(日付確認後、印刷のこと。)", vbOKCancel) = vbCancel Then End End If 'A印刷 ChDir "L:\フォルダB\X\新規" Workbooks.Open Filename:="L:\フォルダB\X\新規\記録表\工程分析.xls" Sheets("毎日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("月曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("火曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("水曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("木曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("金曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("土曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("日曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Save ActiveWindow.Close あるエクセルファイルのボタンに上記のVBAが記入されています。 そのボタンを押すと「工程分析.xls」ファイルを呼び出し各シートを自動印刷して保存して閉じるVBAです。 質問ですがボタンの配置されたあるエクセルファイルの上記VBAの処理を全て完了した後に上書き保存を自動で実行し、自動であるエクセルファイルを閉じるVBAはどの様に追加すれば良いでしょうか？

  • VBA エクセル2003だと出るエラー

    VBAはじめたばかりですが、宜しくお願いいたします。 エクセル2000ではエラーがでませんが、2003の場合次のようなエラーがでます。 実行時エラー1004 アプリケーション定義またはオブジェクト定義エラーです 「デバック」を押して、コードをみますと、次の行に黄色いマーカーがつきます。 Sheets("TXT").SaveAs FileFormat:=xlCurrentPlatformText, Filename:=ThisWorkbook.Path & "\今月.txt" マウスオーバーすると、次の２つが表示されます。 xlCurrentPlatformText=　-4158 ThisWorkbook.Path ="C:\Document&【現在このファイルがあるパス】" 解決方法はありますでしょうか。 ご存知の方、いらっしゃいましたら、なにとぞ宜しくお願いいたします。 このマクロの実行目的は、あるエクセルファイルを加工して、最終的にテキストファイルを生成することです。 テキストファイルをつくったあと、保存するタイミングでエラーがおきるようです。

  • EXCEL VBAでシートを削除したい

    こんにちは。ＥＸＣＥＬ　ＶＢＡのことで質問させていただきます。 マクロでシートを削除しようと思い、 下記のように記述しました。 Sheets(1).Select ActiveWindow.SelectedSheets.Delete しかし、このように記述すると「選択したシートを削除します。～」のようなメッセージが出てきてしまうため、何度もOKボタンを押さなければなりません。これではマクロで自動実行した意味がなくなってしまいます。 このメッセージを回避する方法はないでしょうか。 宜しくお願い致します。

  • VBAでシートのコピー

    お世話になっております。 VBAの未熟者ですが、個人の資料作成のためのシステムをコツコツと作っております。 今までマクロでシートのコピーをやっていたのですが、コマンドボタンでできるように変更しようとしてうまくいきません。 ファイルＡの中にある幾つかのシートの内、シート「個人事業」を「請求書」ファイルの「Sheet2」にコピーしたいのです。その後名前を変更しています。 マクロのプログラムをそのままコピーしてみたのですが、[sheets("個人事業").paste]のところでエラーが出ます。 マクロとコマンドボタンではやはり設定を変更しないといけないのでしょうか？ご教授お願いします。 Private Sub CommandButton1_Click() Sheets("Sheet2").Select Windows("未請求リスト.XLS").Activate Sheets("個人事業").Select Selection.Copy Windows("請求書.xls").Activate Sheets("Sheet2").Select Sheets("個人事業").Paste Sheets("Sheet2").Name = "個人事業請求一覧" Sheets("請求書").Select End Sub 宜しくお願いします。

  • エクセルVBAでＶＢＡの修正は出来るのでしょうか？

    エクセルVBAでＶＢＡの修正は出来るのでしょうか？ あるエクセルファイルにマクロを組み込んでいます（ユーザーフォームも使用）。 このエクセルファイルを複数個フォルダ内にコピーしています。 このコピーした全てのファイルのマクロの修正をVBAで出来ないかと考えています。 修正箇所はモジュール内のコード修正、モジュールの追加、既存のユーザーフォームにボタン等の追加等です。 エクセルは2003を使用しています。 どなたか教えてください。

  • エクセルVBA

    エクセルVBAのコードについて質問です。エクセル初心者です。 Windows10で32bit版のエクセル2010を使っています。 1．エクセルのマクロは32bit版でも64bit版にも対応できるようコードを組んでいるのですが、 32bitで動いているのか64bitで動いているのかどのように確かめたらよいでしょうか？ あるマクロの途中に ＃If VBA7 And win64 Then MsgBox ” 64bit ” ＃Else またはIf VBA7 And win32 MsgBox ”32bit” ＃End If を組み込むと、If分の終わりには If分の最後に＃EndIfが必要です、と表示されて（EndIfを書いているのに） エラーになります。 2．エクセルマクロをIEと連携させて使っています。 IEを操作させている途中でエクセルのメッセージBoxを最前面表示させるには どうしたらよいでしょうか？ IEで特定の操作をしたら、エクセルが最前面に出て、OKボタン付きのメッセージBoxが表示され、OKボタンを押すとIEを操作する という動作をコードに書いています。 コードを書いた直後は、IE上での特定の操作のあとメッセージBoxが適切に最前面表示されますが、 一度保存し閉じてファイルを開き直しマクロを実行すると、メッセージBoxは最前面に出てくれません。 検討したコードは 1. SetForegroundWindow 2.VBA AppActivate. Microsoft Excel. Capture 3.AppActivate Microsoft です。いずれのコードを書いた場合も、保存まではうまくメッセージBoxに回答できるが 保存しファイルを開き直してマクロを実行するとメッセージBoxはIEの後ろに隠れたままであり、エクセルを選択しないと最前面表示されません。 しかし一応最前面表示されることもあることから、マクロを一度実行するごとにエクセル内のデータが変わる可能性も考えられす。

  • Excel VBA インポートファイル名指定したい

    Excel VBA 初心者です。 スイッチを押すと、テキストファイルのインポートダイアログを開いて、外部データの取り込みをしたいと考えています。 指定セルにインポートを設定＋シートにマクロ実行スイッチを配置＋マクロの自動記録の記述を参照してマクロを登録し、そのスイッチを押す事で、正常にインポート作業を行なう事ができました。 しかし不明点が２箇所ほどあります。 １．ダイアログを開いたとき、ファイル拡張子を指定したいのですが、どうすれば指定できますか？ ２．ダイアログを「キャンセル」で閉じると、「実行時エラー１００４：アプリケーション定義またはオブジェクト定義のエラー」と表示されるのですが、解決方法はどうすればいいですか？ 　※マクロの自動記録を参照して記述したマクロ処理 Sub Macro1() Sheets("HIN").Select Range("A1").Select ActiveCell.Offset(2, 0).Select Selection.QueryTable.Refresh BackgroundQuery:=False Sheets("Sheet1").Select End Sub 環境：EXCEL2000、VB6.0 以上、宜しく御願い致します。

  • Excel VBA 57121のエラー

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

  • 旧VBAがExcel2013で突然実行エラー

    Excel2003で作ったVBAマクロを互換モードで保存し、ずっとExcel2013で実行できていましたが、2014.12.13に実行しようとしましたら、 Sheets("当番表サンプル").Select で実行エラー（インデックスエラー）になってしまいました。 Excel2010で実行したら、通りました。 どういう理由でしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する