エクセルファイルのアプリケーションタイトルに拡張子を含まない自身のファイル名を表示する方法
- エクセルファイルのアプリケーションタイトルに拡張子を含まない自身のファイル名を表示する方法について解説します。
- 「Private Sub Workbook_Open()」を使用して、アプリケーションタイトルを設定することができます。
- ファイル名のみ表示するためには、全画面表示ではなく、最大化を止める必要があります。
- ベストアンサー
アプリケーションタイトルにファイル名のみ表示したい
エクセルファイルを開いた時に、 アプリケーションタイトルに拡張子を含まない自身のファイル名を設定したいので Private Sub Workbook_Open() Application.Caption = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) End Sub としたのですが、 こうすると、タスクバーから見た時などは ファイル名 - ファイル名 .xlsm と表示されてしまいます。 - より右の「 ファイル名 .xlsm」は不要なのですが、 どうしてこうなってしまうのでしょうか？ ファイル名のみ表示させたいです。 こうなるのは全画面表示の場合のみで最大化をやめるとファイル名のみ表示されます。 全画面表示でエクセルは開きたいです。
- eklfobwtsqjv
- お礼率77% (46/59)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
デフォルトの "Test.xlsm - Microsoft Excel" を表示変更する記述。 "Test - Microsoft Excel" にする場合 ActiveWindow.Caption _ = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1) "Test" だけにする場合 ActiveWindow.Caption = "" Application.Caption _ = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
関連するQ&A
- Application.Captionが設定できな
Application.Captionが設定できない Sub Sample01() Application.Caption = "aaa" End Sub としても、 タスクバーに表示されるファイル名は、 aaa - 正しいファイル名.xlsm と表示されるし、 エクセルのリボンの上の部分に、正しいファイル名.xlsm - aaa と表示されます。 指定した文字列のみ表示させることはできないのですかね？
- ベストアンサー
- オフィス系ソフト
- アプリケーションも閉じたいのですが
ブック（ファイル）だけじゃなくて アプリケーションも閉じたいのですが Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close SaveChanges:=True End Sub としたのですが、実際閉じるのはブックだけでアプリケーションは開いたままです。 「ウインドウを閉じる」を押して、ブックだけが閉じるのはわかるのですが 図のようにアプリケーション閉じるボタンを押してもウインドウ（ブック）しか閉じません。 Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close SaveChanges:=True Application.Quit End Sub にしても結果は同じです。 しかし、Workbook_BeforeCloseイベントがないファイルなら、 アプリケーション閉じるボタンを押しても全て終了できます。 Workbook_BeforeCloseイベントを使っても アプリケーションも閉じる方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- タスクバーに表示される文字を指定したい
エクセルについて質問です。 通常ならタスクバーに「Microsoft Excel」と表示されますが、 ファイル名を表示させたいです。 なので、 Sub test() ActiveWindow.Caption = ActiveWorkbook.Name End Sub としましたが、ウインドウの文字が変化するだけで、タスクバーに表示される「Microsoft Excel」はそのままです。 ａｃｃｅｓｓなら起動時の設定で「アプリケーション タイトル」で指定できますが エクセルは無理なのでしょうか？ ヴァージョンは２００３です。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- タスクバーのファイル表示について
はじめまして、いつもお世話になっています。 エクセルマクロ初心者です。 エクセルマクロで、ファイル（データ入力.xls）を開いた時に他のファイル（data.xls）を開く記述をしました。 エクセルの「ウィンドウ」では両方ともファイルが開いている状態になっていますが、パソコン画面下部のタスクバー（ツールバー？）にデータ入力ファイルしか表示されません。 dataファイルも表示させたいのですが、表示は可能ですか？ ちなみに、エクセルを起動させてから初めてファイルを開くと表示させず、エクスプローラやエクセルが起動している状態でファイルを開くと表示されます。 どう記述すれば確実に表示されますか？ どなたかご教授下さい。よろしくお願いします。 エクセル２００３です。 --------標準モジュール---------------- Public myFile Public myPath As String Public myYNO(121795) As String Public myYAD(121795) As String Public myNO As String Public myAD As String Public KenData As String --------This Workbook----------------- Private Sub Workbook_Open() Application.ScreenUpdating = False myPath = ActiveWorkbook.Path myFile = ActiveWorkbook.Name Workbooks.Open Filename:=myPath & "\data.xls" i = 0 KenData = myPath & "\ken_all.txt" Open KenData For Input As #1 Do Until EOF(1) i = i + 1 Input #1, myNO, myAD myYNO(i) = myNO myYAD(i) = myAD Loop Close #1 Workbooks(myFile).Activate Sheets("menu").Select Range("E2").Select Application.ScreenUpdating = True End Sub
- ベストアンサー
- Visual Basic
- ファイル名のみを取得するには？
Sub 取得() MsgBox ActiveWorkbook.Name End Sub を実行すると 「エクセル.xls」 と取得されますが 拡張子を除いたファイル名だけを取得するにはどうすればいいでしょうか？ 「エクセル」だけを取得したいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- vbsでexcelファイルを開いた時とダブル
お世話になっています。 vbsでexcelファイルを開いた時と、ダブルクリックでexcelファイルを開いた時とで表示するフォームを変えたいのです。 どうしてもうまくいきませんので、教えてください。 「起動.xlsm」というexcelファイルに「検索画面」「登録画面」という2つのユーザーフォームがあります。 excelの立ち上げ方法によってこの2つのフォームをどちらを起動時に立ち上げるかを決定したいのです。 1. vbsファイルの上に任意のファイルをドラッグさせた時には ’vbsには oApp.RUN "SHOW_Form_登録画面" ’excelには Sub SHOW_Form_登録画面() 登録画面.Show End Sub として登録画面を表示させています。 2. 「起動.xlsm」をダブルクリックした時には Private Sub Workbook_Open() 検索画面.Show End Sub として検索画面を表示しています。 どちらも単体では動きますが、両方を書き込むと どちらの方法をとっても検索画面が前面に立ち上がってしまいます。 どうしたら希望のことができるでしょうか？ いったん表示させた「検索画面を閉じる」ということでもかまいません。 すいませんが、教えていただけると助かります。
- ベストアンサー
- その他（プログラミング・開発）
- UsableHeight シート名が消える
エクセルｖｂａでリボンを非表示にして、ブックを最大化して、微調整したいのですが Workbook_Openイベントで実行すると、シート名が見えない状態になります。 コードはこれです。 Private Sub Workbook_Open() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'リボンを非表示にする ActiveWindow.WindowState = xlMaximized 'ウィンドウを最大化する With ActiveWindow .WindowState = xlNormal .Top = 0 .Left = 0 .Width = Application.UsableWidth .Height = Application.UsableHeight ' ウィンドウが使うことのできる範囲の最大限の高さにする End With End Sub ブックを開いた時はシート名が見えないサイズになってしまうのですが もう一度手動でWorkbook_Openイベントを実行すると、ちゃんとシート名まで表示されます。 なぜ同じコードなのに結果が違うのでしょうか？ 横幅に関しては１回目も２回目も同じです。
- ベストアンサー
- Excel（エクセル）
- アクセスのMDBファイルを他のユーザーに強制的に読
アクセスのMDBファイルを他のユーザーに強制的に読み取り専用で開かせる方法は？ 私が作ったファイルを他の人にメールで送って その人はローカルで保存し、共有ではなく一人で使う場合、 読み取り専用にしたいです。 エクセルなら Private Sub Workbook_Open() Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, ReadOnly:=True End Sub でできましたが アクセスの場合は どうすればいいでしょうか？ ヴァージョンは2003です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA エクセルの表示について
下記のプロシージャを実行し、Userform1のみ表示したじょうたいで、他のエクセルファイルを開くとエクセルが表示されません。他のエクセルファイルを開いた時に、エクセルが自動で表示されるような対処法を教えてください。どうかよろしくお願いします。 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub
- ベストアンサー
- Visual Basic
- excelファイルが意図せず起動
下記を参考にして、起動時にタイマーを設定してexcelファイルを5分後に自動的に 保存・終了するようにしています。 http://okwave.jp/qa/q2911086.html しかし実際5分を待たず、手動でそのexcelファイルを終了した場合、 後でそのexcelファイルが自動で起動して、そのまま終了しているようです。 この症状をなくしたい場合どのように、記述を加えればよいか教えていただけないでしょうか？ 記述は下記です。 '標準プロシージャ Public Operated As Boolean Sub SetTimer() Application.OnTime Now + TimeValue("00:05:00"), "CloseMe" End Sub Sub CloseMe() If Operated Then Operated = False SetTimer Exit Sub End If 'ブックの上書き保存 ActiveWorkbook.Save ' 保存確認を避けるため、保存済みにする ThisWorkbook.Saved = True ' 他にブックが開いていなければ、Excelを終了する If Workbooks.Count <= 1 Then Application.Quit ' 本ブックをClose ThisWorkbook.Close False End Sub 'ワークブックプロシージャ Private Sub Workbook_Open() Operated = False SetTimer End Sub Private Sub Workbook_BeforePrint(Cancel As Boolean) Operated = True End Sub Private Sub Workbook_Deactivate() Operated = True End Sub Private Sub Workbook_Activate() Operated = True End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) Operated = True End Sub
- ベストアンサー
- Excel（エクセル）
お礼
どうもありがとうございました。