- ベストアンサー
アクセスでApplication.Caption
アクセスでApplication.Captionに代わるコードはありますか？ エクセルでなら Sub test01() Debug.Print Application.Caption End Sub は動きますが、アクセスだとコンパイルエラーになります。 CaptionがApplicationのメンバにないからだと思います。 いくつかのアプリケーションを跨いでＶＢＡを動かしているのですが、 アクセスで自身のアプリケーション名、もしくはファイル名を取得するコードはありますか？ ご回答よろしくお願いします。
- XBSELYZX
- お礼率100% (10/10)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ファイル名ということであれば、 Debug.Print CurrentProject.Name
関連するQ&A
- アプリケーションの横幅の値を取得したい vba
アクセスのアプリケーションの横幅の値をｖｂａで取得する事は可能でしょうか？ Sub サンプル() Debug.Print Application.Width End Sub はエラーになっちゃいました。
- ベストアンサー
- オフィス系ソフト
- アクセスからアクセスファイルを開くには？
アクセスからアクセスファイルを開きたいのですがうまく出来ないので教えてください。 Option Compare Database Option Explicit Sub test() Dim App As Access.Application Dim MyFileName As String Set App = CreateObject("Access.Application") MyFileName = CurrentProject.Path & "\アクセスファイル名.mdb" With App .Visible = True End With Set App = Nothing End Sub で、 .Visible = True でアプリケーションは開きますが Set App = Nothing を通過すると開いたアプリケーションが閉じてしまいます。 それにアプリケーションが開くだけで肝心のファイルが開かれません。 なので「.ファイルを開くVBAコード」が必要だと思うのですがそのコードがわかりません。
- ベストアンサー
- オフィス系ソフト
- GetPhonetic("羨ま")
Sub test() Debug.Print Application.GetPhonetic("羨ましい") Debug.Print Application.GetPhonetic("羨まし") Debug.Print Application.GetPhonetic("羨ま") End Sub の戻り値が、 ウラヤマシイ ウラヤマシ は戻るのですが、 「羨ま」は何も取得されません。 正しい日本語ではないからでしょうか？ IMEで変換できないものは、GetPhoneticで取得できないという事でしょうか？
- ベストアンサー
- Excel（エクセル）
- アクセス DCount Between and
テーブルの5月分の件数をvbaで取得するにはどうすればいいでしょうか？ Sub test() Debug.Print DCount("[取引日]", "T取引先", "[取引日] = Between #5/1/2013# And #5/31/2013#") End Sub これだと、実行時エラー3075「クエリ式の構文エラー:演算子がありません。」が返ります。 多分、クライテリアの士気が間違ってるんだと思います。 Sub test() Debug.Print DCount("[取引日]", "T取引先", "[取引日] = #5/1/2013#") End Sub これなら取得できました。 Sub test() Debug.Print DCount("[取引日]", "T取引先", "[取引日] = #5/*/2013#") End Sub ワイルドカードは使えないようで、これもエラーになりました。 5月分の件数を取得する方法はありますか？ よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- 他のファイルからリンクしてるテーブルリンクのパスを
アクセスです。 Sub Sample() Debug.Print CurrentDb.TableDefs("T_TEST").Connect End Sub このコードでアクセスの他のファイルからリンクしてるテーブルリンクのパスを取得できますが VBAでパスを変更するにはどうすれば良いでしょうか？ 例えば ;DATABASE=C:\Users\\TEST1.accdb を ;DATABASE=C:\Users\\TEST2.accdb に変更するコードが知りたいです。
- ベストアンサー
- オフィス系ソフト
- 「Microsoft Excel - 」を表示させ
「Microsoft Excel - 」を表示させない方法はありますか？ Sub t1() ActiveWindow.Caption = "test" End Sub をすると、 「Microsoft Excel - test」になってしまいます。 タスクバーには「test」だけを表示させたいのですが、 「Microsoft Excel - 」があるせいで、testまで表示されません。 Sub t2() Debug.Print ActiveWindow.Caption End Sub を実行しても、testしか取得されないから、 「Microsoft Excel - 」を消すことは無理なのでしょうか？
- ベストアンサー
- オフィス系ソフト
- LocationNameを取得するとアウトルックが
エクセルｖｂａ２０１０です。よろしくお願いします。 Sub Sample() Dim ie As Object For Each ie In CreateObject("Shell.Application").Windows() Debug.Print ie.LocationName Next End Sub このコードで、現在開いているＵＲＬ名を取得すると、 アウトルックを立ち上げてると outlook:%26%2321463・・・ と言うのが取得されるのですが、これは何のパスでしょうか？ メールは立ち上げていません。
- 締切済み
- Visual Basic
- イミディエイトウインドウに吐き出すには
参照設定で[Microsoft Visual Basic Application Extensibility]をチェック Sub subExportAllModuleforAccess() Dim vbcComp As VBIDE.VBComponent For Each vbcComp In Application.VBE.ActiveVBProject.VBComponents Debug.Print vbcComp.Name, vbcComp.Type vbcComp.Export ("C: \test.txt") Next vbcComp End Sub このコードで、コードの中身をテキストに吐き出すのではなく Debug.Printでイミディエイトウインドウに吐き出すには どうすれば良いでしょうか? アクセス2010です。
- ベストアンサー
- オフィス系ソフト
- Application.Captionが設定できな
Application.Captionが設定できない Sub Sample01() Application.Caption = "aaa" End Sub としても、 タスクバーに表示されるファイル名は、 aaa - 正しいファイル名.xlsm と表示されるし、 エクセルのリボンの上の部分に、正しいファイル名.xlsm - aaa と表示されます。 指定した文字列のみ表示させることはできないのですかね？
- ベストアンサー
- オフィス系ソフト
- VBＡコードでイミディエイトウィンドウを表示する方
VBＡコードでイミディエイトウィンドウを表示する方法はありますか？ 例えば、 Sub test() Debug.Print Now End Sub を実行したときに イミディエイトウィンドウが表示されていなければ結果がわかりませんよね。 Ctrl+Gでイミディエイトウィンドウを表示出来る事は知っていますが サブプロシージャーと実行とともに、 イミディエイトウィンドウをVBAで表示する方法を教えてください。 Sub test() Debug.Print Now イミディエイトウィンドウを表示 End Sub のようにしたいです。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
できました。ありがとうございました。