Excelファイルを開いた際 保存元ドライブ名を表示できますか

質問

ウインド最上部にファイル名が出ますが、ドライブ名も表示したいです。　複数のドライブに同じファイル名でバックアップを保存しています。
explorerでクリックして開いていますが、他のドライブに「別名で保存する」際、自分がどのドライブだったか忘れます。
また"別名で保存"の際、そのドライブにたどり着くすばやい方法ありますか？
Excel 2000　windowsXPpro

回答No.3

masa_019 · ベストアンサー

>bookを開いてはそのVBA Projectにある
>「ThisWorkbook」に記載しないといけないみたいです。
>それでよろしいのでしょうか？

そんなことは無いですよ。
VBEのメニューの「挿入」-「クラスモジュール」で
PERSONAL.XLSにクラスモジュールを挿入し、
名前はClass1のままにしておきます。
そこに以下を貼りつけ、

Public WithEvents ExcelApp As Application
Private Sub ExcelApp_WindowActivate _
(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

PERSONAL.XLSのThisWorkBookモジュールに、
以下を貼りつけます。

Dim xlClass As New Class1
Private Sub Workbook_Open()
Set xlClass.ExcelApp = Application
End Sub

PERSONAL.XLSをセーブして、一旦エクセルを終了します。
これで、次に任意のブックを開いたらタイトルバーに
ブックのFullNameが表示されます。

お礼

♪出来ました♪ありがとうございます。♪いつも感じるこの感動は PCライフの中でも最高のものです。おかげさまで、使い勝手の良いエクセルになってゆきます。
心地よい幸福感に包まれて今夜は就寝です。心より感謝申し上げます。ありがとうございました。

回答No.5

Wendy02

#4の追伸:

# FullNameを常に表示することは考えてみましたが、私が取りやめたもので、

複数のブックで行き来する時に、文字列を、Captionに送るので、アクティブになるのが、かなり遅くなるような気がします。

お礼

お答え 感謝いたします。
現在フルネーム表示を便利に　ありがたく　使っております。
別名で保存の方は、春になって時間が出来てから　トライしようと考えています。
ありがとうございました。

回答No.4

Wendy02

こんばんは。

私は、全てのブックに、FullName を表示するようには考えておりません。

また、バックアップ・コピーのマクロに関してのみ、Personal.xls の、<標準モジュール>のマクロについてボタンの関連づけを考えております。それは、メニューボタンにつけるからです。もともと、保存をすると、前のブックが閉じて、バックアップコピーで、アクティブブックが移動するからで、ちゃんとしたバックアップ・マクロがあれば、表示の問題はなくなるだろうと思っていました。

だから、Personal.xls で、クラス－インスタンスを設けて、FullNameを常に表示することは考えてみましたが、私が取りやめたもので、それについては、なんとも言えません。

お礼

アドバイス　感謝申し上げます。
私 低スキルながら なるほどしました。
ありがとうございました。

回答No.2

Wendy02

こんにちは。

Visual Basic Editor の画面を開けたら、左上のプロジェクトの中の、ThisWorkbook をダブルクリックして、画面を開いて、以下の三行を加えてください。

'<ThisWorkbook モジュール>
'----------------------------------
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
　ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub
'----------------------------------

＞ウインド最上部にファイル名が出ますが、ドライブ名も表示したいです。　複数のドライブに同じファイル名でバックアップを保存しています。

本当は、マクロ処理したほうがよいですね。それをツールボタンなどにします。多少面倒な手順が必要ですが、

'<個人用マクロブックに登録＞ユーザー設定でボタンを標準メニューに貼り付け>
'---------------------------------
Sub BackUpMacro()
Dim myArray As Variant
Dim d As Variant
　'複数設定する場所を、以下に書き込む。
　myArray = Array("C:\Documents and Settings\<My Name>\My Documents\", "D:\")
　For Each d In myArray
　ThisWorkbook.SaveCopyAs d & ThisWorkbook.Name
　Next
End Sub
'---------------------------------

補足

ありがとうございました。
とりあえず最初の＜ThisWorkbook モジュールに3行の構文追加＞しまして出来ました。常用するブック3個を開いて、それぞれにコピーしました。VBAProject(PERSONAL.XLS)の中に
[Microsoft Excel Objects] に Sheet1 と ThisWorkbook がありますからこれだけにcopyしたのでは、他のブックを開いたときは目的が達せないようなので、bookを開いてはそのVBA Projectにある「ThisWorkbook」に記載しないといけないみたいです。それでよろしいのでしょうか？

回答No.1

k-konno

表示→ツールバー→WEBにチェックで保存先がわかると思います。
保存先のショートカットを作成しておけば、ドライブにたどりつき易いと思います。

以上で対応できませんでしたらごめんなさい。

お礼

出来ました。ありがとうございました。
ツールバーの行が増えるのが難点ではあります。