Excelのファイルを開くと、そのファイルしか開いていないのに
「同じ名前のファイルが既に開いています」と毎回出ます。
OKを押せばそのまま作業はできますが、どのExcelファイルを開いても
毎回出るのでうっとうしいです。
特に変なことをした覚えはないんですが、何かよい解決方法を教えて下さい。

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

A 回答 (2件)

もしかしてエクセルを先に起動してから、「開く」でファイルを開けば正常に開くんじゃありませんか?


そうであれば、「フォルダオプション」-「ファイルの種類」タブでMicrosoftExcelワークシートを選んで「編集」ボタンをクリックすると「ファイルの種類の編集」ウィンドウが開きます。その中の「アクション」の中にOpenもしくは開くが2つありませんか?もし、2つあると1つのファイルをダブルクリックすると2回開くことになってしまいます。ですから、どちらか(たぶん下にあるほう)を削除して下さい。
    • good
    • 1
この回答へのお礼

確かにExcelを先に起動すると正常に開いたので、さっそくフォルダオプションを
見てみたのですが、openはひとつしかなく、ちょっとさわるともっと悲惨なことに
なったので、とりあえず一度関連付けを削除し、再度設定するとなんとか
正常に開けるようになりました。回答ありがとうございました。

お礼日時:2001/08/24 09:12

ツール→ユーザー設定→ツールバー



チェックを見直す。
    • good
    • 0
この回答へのお礼

回答ありがとうございました。

お礼日時:2001/08/24 09:09

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Q「古い圧縮ファイル」の確認方法

Dドライブのディスクのクリーンアップをしたいのですが、実行できるものが、「古い圧縮ファイル」の削除しかありません。

「古い圧縮ファイル」がどのプログラムかを確認する方法を教えてください。

また、圧縮されたファイルの名前は青くなるらしいのですが、見つかりません。どうしてでしょうか
圧縮ファイルは1G弱あります。

Aベストアンサー

http://www.atmarkit.co.jp/fwin2k/win2ktips/106cleanup/106cleanup.html

初期設定では、50日以上アクセスの無かったファイルに対して、圧縮が行われます。
当然、圧縮してからでないと、ファイル名は青色にはなりませんので、ディスク・クリーンアップでの候補段階では、黒色のままです。


尚、設定によっては青色表示にならない場合も有りますけど。

http://121ware.com/qasearch/1007/app/nec.jsp?005084

QEXCEL VBA)ファイルを作成する際に「そのファイルは既に存在します」の警告を出さずに上書きしたい

下記の「AAA」ブックを作成するコードを実行した際に、「そのファイルは既に存在します。上書きしますか[はい][いいえ]」という警告が出ます。この警告を出さずに、即上書きするようにしたいのですが、どうすればよいでしょうか。よろしくお願いします。

ActiveWorkbook.SaveAs Filename:="c:\FILE\AAA.xls"

EXCEL2000を使用しています。

Aベストアンサー

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="c:\FILE\AAA.xls"
Application.DisplayAlerts = True

Qファイルの圧縮方法

AVIやMPGの画像ファイルを圧縮する方法を教えてください。900mb位のファイルをCD-Rに落とし込める700mbまで圧縮したいんですが。できれば、zipやlzhなどの後で解凍しなくてはいけないような圧縮方法ではなく、多少画像が荒くなってもファイルを単純に縮小させるような方法を教えていただけると有り難いのですが。。
因みに、TMPGEncを試してみたんですが、どうもうまくいかなくて。。ファイルサイズが元のファイルより逆に大きくなってしまうんです。
すいませんが、宜しくお願いします。

Aベストアンサー

画像圧縮?くす(^^
エンコはTMPGEncやaviutlでやるのがふつーです。
ええ 絶対! 
aviutl
http://ruriruri.zone.ne.jp/aviutl/

zipとかで圧縮しても意味ありません サイズ的に。

で、TMPGEncで元より大きくなるのは問題は
コーデック、画像サイズ、 音声ファイルなど
理由はいっぱいあります。対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=625581

だから圧縮というか再エンコードが面倒なら
ファイルをテキトーな部分でカットする方向性はどお?
CD-R 2枚に保存 450 450 くらいでカット。
対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=610331
ではでは!

追伸
カンタンにならrmファイルに変更かなあ
でも画質は落ちますよ
ネット配信 ストリーミング形式でどぞ!
RealplusG2とかRealEncoderで変換
でもaviでもないしmpegでもないですけど、どお?

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=610331

画像圧縮?くす(^^
エンコはTMPGEncやaviutlでやるのがふつーです。
ええ 絶対! 
aviutl
http://ruriruri.zone.ne.jp/aviutl/

zipとかで圧縮しても意味ありません サイズ的に。

で、TMPGEncで元より大きくなるのは問題は
コーデック、画像サイズ、 音声ファイルなど
理由はいっぱいあります。対処は類似質問みて↓
http://oshiete1.goo.ne.jp/kotaeru.php3?q=625581

だから圧縮というか再エンコードが面倒なら
ファイルをテキトーな部分でカットする方向性はどお?
CD-R 2枚に保存 450...続きを読む

QExcelのVBAで、選択したファイルが既に開かれているか確認したい

ExcelのVBAで、PowerPointのファイルに対し処理を行ないたいと思っています。
処理の前にファイルを選択し、そのファイルが既に開かれていた場合に処理を中断する判定を入れたいと思っているのですが、ファイル選択後に
「実行時エラー429ActiveXコンポーネントは、オブジェクトを作成できません」
というエラーになってしまいます。
「For Each PptFile In」のあとの「PowerPoint.Presentations」の記述に問題があるようなのですが、改善方法をお教えいただけませんでしょうか。

Sub test()
Dim PptApp As PowerPoint.Application
Dim PptFile As Object
Dim myFilename As String

myFilename = Application.GetOpenFilename
Set PptFile = GetObject(, "Powerpoint.Application")
For Each PptFile In PowerPoint.Presentations
If PptFile = Dir(myFilename) Then
MsgBox "指定したファイルは開かれています"
Exit Sub
Else
MsgBox "PowerPointの処理を実行します"
'処理
End If
Next
End Sub

ExcelのVBAで、PowerPointのファイルに対し処理を行ないたいと思っています。
処理の前にファイルを選択し、そのファイルが既に開かれていた場合に処理を中断する判定を入れたいと思っているのですが、ファイル選択後に
「実行時エラー429ActiveXコンポーネントは、オブジェクトを作成できません」
というエラーになってしまいます。
「For Each PptFile In」のあとの「PowerPoint.Presentations」の記述に問題があるようなのですが、改善方法をお教えいただけませんでしょうか。

Sub test()
Dim PptApp A...続きを読む

Aベストアンサー

こんばんは。

どこが間違いとかいうよりも、私なら、こう書いているかなっていう感じですね。直してみると、違った趣旨のコードが残る所をみると、まったく違ったことを考えていらっしゃるのかなぁっていう気がします。

'//
Sub test1()
 Dim PptApp As Object
 Dim PptFile As Object
 Dim myFilename As String
 
 myFilename = "PowerPointの使い方" 'Application.GetOpenFilename 
'ここでファイル名を求めると、まったく違った内容になるはずです。
 Set PptApp = GetObject(, "Powerpoint.Application")
 If PptApp Is Nothing Then
  MsgBox "PowerPointは、起動しておりません", vbExclamation
  Exit Sub
 Else
  For Each PptFile In PptApp.Presentations
   If PptFile.Name Like myFilename & "*" Then
    MsgBox "指定したファイルは開かれています"
    Exit Sub
   Else
    MsgBox "PowerPointの処理を実行します" 'この意味が分かりません。
   '処理
   End If
  Next
  End If
End Sub
'//

こんばんは。

どこが間違いとかいうよりも、私なら、こう書いているかなっていう感じですね。直してみると、違った趣旨のコードが残る所をみると、まったく違ったことを考えていらっしゃるのかなぁっていう気がします。

'//
Sub test1()
 Dim PptApp As Object
 Dim PptFile As Object
 Dim myFilename As String
 
 myFilename = "PowerPointの使い方" 'Application.GetOpenFilename 
'ここでファイル名を求めると、まったく違った内容になるはずです。
 Set PptApp = GetObject(, "Powerpoint.Applicat...続きを読む

Qファイルの圧縮方法が解りません

窓の杜やベクター等に置かれている、フリーの圧縮、解凍ソフトをダウンロードしていますが、テキストファイルや、画像ファイルの圧縮方法が解りません。何方か教えて頂けませんか?

Aベストアンサー

ソフトの開発者のサイトで質問することをお奨めします。

ソフトごとに操作方法が異なりますので、使用しているソフト名すらない状態では誰も必要とする回答を出せません。

窓の杜やベクターでは開発者のサイトへのリンクがありますから、そこからアクセスできますよ。

Q「もし既にファイルを開いているなら、開かない」

おはようございます。
accessからExcelのブックを開く処理をしています。

VBAでファイルを開く時に、「もし既にファイルを開いているなら、開かない」
という行為をしたいのですが、どのようにすればいいでしょうか?

***************************************************************************
Sub サンプル()
Dim xlApp As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\【Excel】\料理.xlsm")

xlApp.Visible = True'ファイルを開く?表示する?

Set xlApp = Nothing
Set xlBook = Nothing
End Sub
***************************************************************************
このコードの、
xlApp.Visible = Trueを、

if xlBook がまだ開いてない then
xlApp.Visible = True
Else
End If

のような事がしたいのですが、可能でしょうか?
ご教授よろしくお願いします。

おはようございます。
accessからExcelのブックを開く処理をしています。

VBAでファイルを開く時に、「もし既にファイルを開いているなら、開かない」
という行為をしたいのですが、どのようにすればいいでしょうか?

***************************************************************************
Sub サンプル()
Dim xlApp As Object
Dim xlBook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\【Excel】\料理.xlsm")

xlApp.Visible = True'ファイル...続きを読む

Aベストアンサー

accessが使える環境でないので未確認ですが

Set xlBook = xlApp.Workbooks.Open("C:\【Excel】\料理.xlsm")
を操作した後なので

If xlBook.ReadOnly Then
??
Else
xlApp.Visible = True
End If

開いたブックが読み取り専用かどうかで判断します。

Qpsdファイルの圧縮方法

psdファイルの圧縮方法を教えてください。(基本的質問で恐縮ですが)
win98です。なお、ファイルは9MB程度ですが、圧縮したものを解凍する際、鮮明度が落ちずに元通りの画像で開けますでしょうか?

Aベストアンサー

●大きなサイズのファイルを分割して送付

+Lhaca 1.20 デラックス版での分割方法
http://park8.wakwak.com/~app/Lhaca/

 1. インストールは、ダウンロードした Lhaca120.exe を実行する。
 2. デスクトップに作成された +Lhaca のショートカットに、
   対象のファイルをALTキーを押しながらドロップする。
 3. 保存場所を聞いてくるので、望みの場所を指定する。
   (圧縮形式は、相手が解凍できる形式を選ぶ。)
 4. 分割されたファイル群と結合用のバッチファイルが作成される。
   (デフォルトでは 1.2MB を上限として分割される。)
   (このサイズは +Lhaca で変更できる。)
 5. (4)のファイル全てを、容量を超えないようにメールに添付して送信
   する。
   (添付ファイル総数を本文に明記すること。)
 6. 受け取った側は、全ての添付ファイルを一箇所に集めて、バッチファ
   イルを実行する。
   (操作手順は、本文に明記すること。)
 7. 分割されたファイルが結合されるので、結合された圧縮ファイルを解
   凍する。
 8. 9MBのファイルが解凍されるので、作業する。


これでどうかな!?

※他の圧縮ソフトも分割機能が備わっていると思うが・・・

●大きなサイズのファイルを分割して送付

+Lhaca 1.20 デラックス版での分割方法
http://park8.wakwak.com/~app/Lhaca/

 1. インストールは、ダウンロードした Lhaca120.exe を実行する。
 2. デスクトップに作成された +Lhaca のショートカットに、
   対象のファイルをALTキーを押しながらドロップする。
 3. 保存場所を聞いてくるので、望みの場所を指定する。
   (圧縮形式は、相手が解凍できる形式を選ぶ。)
 4. 分割されたファイル群と結合用のバッチファイルが作成される。
   (...続きを読む

QとあるExcelファイルを開くと、勝手に同じファイルが2つ開いてしまう

OSはXPで、Excelのバージョンは2003です。

例えば「abc01」というExcelファイルがあるとします。
それをダブルクリックして開くと、同じファイルが2つ開いてしまいます。
(今までそんな事はありませんでした。今日初めてそうなりました。)

と言っても、全く同じ名前のファイルは開けませんので、
「abc01.1」「abc01.2」という名前も勝手に付けられて開きます。
それを閉じると、デスクトップにはやっぱり「abc01」というファイルしかありません。

なぜこんな現象が起きるのでしょうか・・・?
試しに他のExcelファイルを2~3個開いてみましたが、
そんな事は起きませんでした。

例えば「abc01.1」の方でsheet2を表示して、
「abc01.2」の方を見てみるとsheet1のままだったりするので、
連動(?)はしていないようです。
あと「abc01.1」の方をちょっと編集して一旦両方閉じて、
また開くとちゃんと両方編集されていました。
「abc01.1」を編集→上書き保存の時点で「abc01.2」がどうなっているかは見ていません。

職場のパソコンで起きた事で、
今は家から投稿しているので上記の状況以外は書けませんが、
どなたか原因が分かる方、よろしくお願いいたします。
(もしかして明日には普通になっているかも知れませんが・・・)

※次に職場のパソコンを開くのは明日の夜になりますので、
 補足・その後の報告・お礼などは遅くなってしまいます。

OSはXPで、Excelのバージョンは2003です。

例えば「abc01」というExcelファイルがあるとします。
それをダブルクリックして開くと、同じファイルが2つ開いてしまいます。
(今までそんな事はありませんでした。今日初めてそうなりました。)

と言っても、全く同じ名前のファイルは開けませんので、
「abc01.1」「abc01.2」という名前も勝手に付けられて開きます。
それを閉じると、デスクトップにはやっぱり「abc01」というファイルしかありません。

なぜこんな現象が起きるのでしょうか・・・?
...続きを読む

Aベストアンサー

http://oshiete1.goo.ne.jp/qa3816162.html

たぶん、↑と同じ現象です。

QNTFS圧縮したファイルを全部まとめて戻す方法

NTFS圧縮したファイルをプロパティからひとつひとつチェックをはずして戻すのではなく、圧縮されたファイルを全部まとめて元に戻す方法ってあるのでしょうか?

Aベストアンサー

圧縮を解除したいファイルを全て選択した状態で
→プロパティ→NTFS圧縮のチェックを外す→OK

それらのファイルがフォルダに入っているなら
フォルダのプロパティからやってもいい。
(サブフォルダにも適用するか尋ねられるからOKにする)

QExcel2007で新規ファイルを2回開くと使用中のファイルとメッセージが開きます。

Excel2007を使用しています。エクセルを起動中にデスクトップのエクセルアイコンから起動させると「PERSONAL.XLSBは編集のためロックされています。」というメッセージが表示されます。
今までそんなメッセージが表示されることはなかったのですが、急に表示するようになってしまいました。どーしたらよいのでしょうか?
特にべつのファイルを開いていることはないのですが…

Aベストアンサー

NO1追加
>PERSONAL.XLSBは編集のためロックされています


一度でもPERSONAL.xlsにマクロを保存すると、マクロを削除してもファイルは残ってしまいますから、削除します。
2つ起動させようとすると、エラー表示されます。
Excelがすでに開いていれば、「ファイル」「新規作成」 またはツールバーの「新規作成」から、新しいブックを呼び出します。
参考URLをご覧ください。

参考URL:http://cgi.fuji.ne.jp/~fj2094/cgi-bin1/exqalounge.cgi?print+200508/05080076.txt


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング