WINDOWS ME EXCEL2000の環境です。
数日前から、マイコンピュータやエクスプローラからEXCELのファイルをダブルクリックして開けなくなりました。
エラーメッセージの内容は
"ファイルが見つかりません。ファイル名を指定して実行ダイアログボックスに名前を正しく入力していないか、
別の開いているプログラムがシステムファイルを検索出来ません。
ファイルを検索するにはスタートボタンをクリックし、検索をクリックしてください"
とくに環境は何も変わっていません。
EXCELを起動してからファイルを開くと問題なく開くのでファイル自体には問題がないようです。
また、WORD2000の場合は問題は出ていません。
アプリケーションの関連づけはきちんとされています。
EXCELのすべてのファイルで起きています。
なぜこのような状態になってしまったのでしょうか?
復旧方法教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんにちは!



Exselを起動して、
[ツール] メニューの [オプション] の [全般] タブで「他のアプリケーションを無視する」 がオンに設定がされていないでしょうか?
これが付いているとそのエラーになります。
    • good
    • 0
この回答へのお礼

ご指摘の通り、他のアプリケーションを無視するにチェックが入っていました。
いつのまにかクリックしていたのか記憶はないのですが・・・。
非常に助かりました。大感激です。ありがとうございます。

お礼日時:2002/01/18 17:09

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qexcel2003で、excel2000で作成したファイルを開くと

「新しいバージョンで保存しますか?」という確認が出ますね。これを出ないようにできませんでしょうか?excel2003だけがうるさく聞いてきます。分からない人がキャンセルして、更新しないことがあるので、いっそ確認しないで上書きさせたいのですが。

Aベストアンサー

1番です。

なるほど状況がわかりました。
共有しているため、しかも2000と2003が混在しているためですね。

ではExcelのツール→オプション→移行タブで「ファイルの保存形式」を「Microsoft Excel97-Excel2003 および5.0/95ブック」にして「OK」してみてください。

おそらく解決するはずです。

QEXCEL VBA EXCEL2000で「ファイルを開く」を表示させる

EXCELで、「ファイルを開く」を表示させようとしています。
下記命令文でEXCEL2003ではうまくいくのですが、2000だとエラーになるようです。
どちらでも使えるコマンドを教えていただけるでしょうか。
タイトル = "ファイルを開く"
ファイルの場所 = "C:\Users" '場所
フィルタ1a = "CSV" '種類
フィルタ1b = "*.csv" '拡張子
With Application.FileDialog(msoFileDialogOpen)
.Title = タイトル
.InitialFileName = ファイルの場所
.Filters.Clear 'フィルタクリア
.Filters.Add フィルタ1a, フィルタ1b 'フィルタ設定
.AllowMultiSelect = False '複数選択不可
.Show
End With

Aベストアンサー

#3 の回答者です。

>Sub Test2のほうを試したところパスが見つかりません とエラーが出ますが、どういったことなのでしょう

今、調べてみましたが、「\」(パスセパレータ)を抜くと、いけないのでした。こちらには、ないパスだったので、いい加減に書いてしまいました。
Const ファイルの場所 = "C:Users" '場所
  ↓
Const ファイルの場所 = "C:\Users" '場所

Qexcel2003環境で、excel2007のファイルを互換パック導入で開きたい

目的は表題の通りなのですが、以下の通り私の場合ちょっとややっこしい事をしてしまいました。
1.PC購入後、office2003をインストール
2.office2016をインストール
この時点で、excel2003のファイルをダブルクリックしたらどうしても2016で開いてしまう。
(既定のプログラム変更できず)
3.office2016をアンインストール
4.outlook2016を別途購入インストール
5.offic2007互換パックをインストール
(word2007のファイルは問題なくダブルクリックで開くが、excel2007のファイルは開かず、
見るためには、まずexcel2003を開き、そこから開くファイルをexcel2007のファイルを指定
すると開きます。)
6.コントロールパネルの既定のファイルの関連付けを設定するで一覧を見ると、
 .xlsはMicrosoft Office Excelになっていて問題なし。
 .xlsmと.xlsxがアンインストールしたはずのExcel2016になっています。
関連付けをexcel2003に変更がどうしても出来ません。
何とかならないでしょうか。よろしくお願いします。

目的は表題の通りなのですが、以下の通り私の場合ちょっとややっこしい事をしてしまいました。
1.PC購入後、office2003をインストール
2.office2016をインストール
この時点で、excel2003のファイルをダブルクリックしたらどうしても2016で開いてしまう。
(既定のプログラム変更できず)
3.office2016をアンインストール
4.outlook2016を別途購入インストール
5.offic2007互換パックをインストール
(word2007のファイルは問題なくダブルクリックで開くが、excel2007のファイルは開かず、
見...続きを読む

Aベストアンサー

最近も、私は調整しなおしたのですが、全部、2007以上の話で、2003下位バージョンの下位バージョンはやったことがありません。
なかなか敷居の高い問題だと思います。

以下は、お手数ですが、Office 15の部分は、16に読み替えてください。
それから、作業は、すべてレジストリを書き換えることになります。

まず、ファイルをクリックして開くのは、

\HKEY_CLASSES_ROOT\CLSID\{00024500-0000-0000-C000-000000000046}\LocalServer32

の値として、

C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXE /automation

となっているから、これが Office 15 が起動するわけです。Office 15 は、2013 のことです。(Automation というのがそれオプションです) 
ここまでが、Excelの上位バージョンの話
--------------------
Excel の古いものは、Sheet.8 あたりですが、
\HKEY_CLASSES_ROOT\Excel.Sheet.8\DefaultIcon

\HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\command

ここの値は、このようになっているから、
"C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL.EXE" /dde
2013で開くようになっているわけです。

ここらを直せばよいはずなのです。
それと拡張子の起動も直します。

2003 .xls
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel
KEY_CLASSES_ROOT\Excel.Sheet.11\Shell\Open\command

ファイルをダブルクリックしてからアプリが起動するまで。
https://tunemicky.blogspot.jp/2011/11/blog-post.html

(ここは分かりやすい)
HKEY_CLASSES_ROOT [.xls]を開きます。 (既定)値:Excel.Sheet.8

また、多少参考にはなると思います。
https://support.microsoft.com/ja-jp/help/291288/description-of-the-startup-switches-for-excel

これらを確かめながら、レジストリを書き換えていけばよいと思うのです。
気が乗らない時や忙しい時にはしないほうがよいです。慎重に書き換えていってください。以下は、良くまとまっていると思いました。

http://www.asahi-net.or.jp/~ef2o-inue/kankyo/sub02_03_031.html

最近も、私は調整しなおしたのですが、全部、2007以上の話で、2003下位バージョンの下位バージョンはやったことがありません。
なかなか敷居の高い問題だと思います。

以下は、お手数ですが、Office 15の部分は、16に読み替えてください。
それから、作業は、すべてレジストリを書き換えることになります。

まず、ファイルをクリックして開くのは、

\HKEY_CLASSES_ROOT\CLSID\{00024500-0000-0000-C000-000000000046}\LocalServer32

の値として、

C:\Program Files\Microsoft Office 15\Root\Office15\EXCEL....続きを読む

QExcel2000でファイルを複数開くと複数Excelが起動してしまう!!

御世話になっております。

エクスプローラからファイルをダブルクリックして
開くと開いたファイルの数だけExcelが起動して
しまいます。
Excelファイルを複数開いたときにExcelが一つの
ままで中でファイルを複数開きたいのです。
(SDIではなくMDIとして開きたい。)
理由は多数のファイルを開くとメモリ不足になって
しまい困っているからです。

回避方法を教えて下さい。

試したこととしては。。
Excelのオプションで表示タブで
「ウィンドウをタスクバーに表示」を
オフにしても回避できませんでした。

<環境>
1.OSはW2K
2.Excel2000
3.エクスプローラのファイルタイプ
拡張子「xls」のopenオプション
"C:\Program Files\Microsoft Office\Office\Excel.exe" "%1"
DDEを使うはオフ
(多少いじりましたが駄目でした)

以上

Aベストアンサー

こんにちは。maruru01です。

[アクションを実行するアプリケーション]の「"%1"」オプションを削除してはどうでしょうか?
私の環境(Windows2000、Excel2000)では、

[アクションを実行するアプリケーション]
:「"C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /e」
[DDEを使う]:ON
[DDEメッセージ]:「[open("%1")]」

で、複数起動はしません。
ちなみに、タスクバーとは関係ないと思います。
(単独起動でも、ファイルごとにタスクバーにアイコンが出ますから。)

あと、参考になりそうなページも載せておきます。
(ページの下の方)

http://www.asahi-net.or.jp/~ef2o-inue/kankyo/sub02_03_02.html

参考URL:http://www.asahi-net.or.jp/~ef2o-inue/kankyo/sub02_03_02.html

QExcel VBAで検索(Win2000 Excel2000)

現在、下記のようなコードを書いています。データテーブルの縦と横の検索値を探してその列数と行数を返したいのですが、下記の Sub検索1 と Sub検索2 を1つのSubで実行させるにはどうしたらよいのでしょうか?よろしくお願い致します。

-----------------------------------------
Sub 検索1()
Worksheets("Data").Activate
Dim x As Integer
For x = 3 To 22
If Cells(2, x).Value >= 12 Then
MsgBox x
Exit Sub
End If
Next
MsgBox "見つかりません"
End Sub
---------------------------------------------
Sub 検索2()
Worksheets("Data").Activate
Dim i As Integer
For i = 4 To 42
If Cells(i, 2).Value = "A" Then
MsgBox i
Exit Sub
End If
Next
MsgBox "見つかりません"
End Sub

現在、下記のようなコードを書いています。データテーブルの縦と横の検索値を探してその列数と行数を返したいのですが、下記の Sub検索1 と Sub検索2 を1つのSubで実行させるにはどうしたらよいのでしょうか?よろしくお願い致します。

-----------------------------------------
Sub 検索1()
Worksheets("Data").Activate
Dim x As Integer
For x = 3 To 22
If Cells(2, x).Value >= 12 Then
MsgBox x
Exit Sub
End If
Next
MsgBox "見つかりません"
End Sub
-----------------...続きを読む

Aベストアンサー

Worksheets("Data").Activate
Dim x As Integer
Dim y as Integer

For x = 3 To 22
 If Cells(2, x).Value >= 12 Then
 MsgBox x
 For y = 4 To 42
  If Cells(y, 2).Value = "A" Then
   MsgBox y
   Exit Sub
  End If
 Next
 End If
Next
MsgBox "見つかりません"
End Sub

これだと、縦位置2の行で、まず横方向で12を探し見つかったら、その位置をメッセージ表示します。
で、横位置2の列を、縦方向に検索し見つかったら、メッセージ表示をし、関数を抜けます。見つからなければ”見つかりません”のメッセージを表示します。
こんな所で如何でしょう?


人気Q&Aランキング

おすすめ情報