起動場所の判断 C,VB,Access,Excel ここはどこ？私は誰？

こんにちは。

今回は、
タイトル、
C,VB,Access,Excel ここはどこ？私は誰？ ---> 記憶喪失？
あなたは、どこから来たの？どこのダレ？ ---> 職務質問？
です。

えっ何？？？いつも、タイトル変でわからないよ。
そんなんだと、読まないで、ゴミ箱に入れられちゃうよ。。。。

改めまして、今回は、自分が起動した場所と自分の名前を調べる方法です。
C,VB,Access,Excelによって、違うので、４パターン書きました。

Excel,Access,VB,Cの順番に解説します。

枠外解説・グチ --- 最近、職務質問、されてない

いきなり、関係無い話ですが、
最近、帰りが早いので、警察官に職務質問されてない。
６・７年前、夜中に帰ったときは、たまに質問されてたっけ、、、
また、早朝出勤時に、警察官に「いま、帰りですか」とＡＭ４時頃に聞かれ、
「いまから出勤です」
なんて、いったら、
「どこに？行くんだ、会社のガギは？」
と連続に質問され、
その時、自転車の前カギがたまたま付いてなく、盗難自転車扱いされたり、、
なんて、こと、ありました。

最近は、仕事でハマってないのと、警察官が熱心じゃないのかなぁ？
まぁ、いいことなんだけど、チョット思い出したので。

警察官殿に、
自販機荒しや変造500円なんとかしろ、、
と言いたい酒屋の次男坊でした。

/*
 * ２.Excel VBA ここはどこ？私は誰？
*/
Ｅｘｃｅｌファイルが、
どこから起動したか（どこに保管されているか）
知りたい時、ありませんか？

えっ、無い。。。さようなら。
じゃなくて、相対パスとかで、
処理したいとき、知っていると便利だと思うので、説明します。
＊各処理言語によって、微妙にちがう、、、VBAで一緒にならないの？かなぁ

-----
Sub Record1()
    
    MsgBox "Application.Path = " & Application.Path
    MsgBox "Application.Name = " & Application.Name
    MsgBox "ActiveWorkbook.Path = " & ActiveWorkbook.Path
    MsgBox "ActiveWorkbook.Name = " & ActiveWorkbook.Name

End Sub
-----
を実行してみてください。

Application.Pathかな？と思ったのですが、
これは、Ｅｘｃｅｌ本体のインストールされているパスで、
目的のほうは、
ActiveWorkbook.Pathです。

う〜ん。。。

/*
 * ３．Access VBA ここはどこ？私は誰？
*/
次に、Access MDBの位置です。
-----
Private Sub B_RUN_Click()

    Dim dbsA As Database
    
    Set dbsA = CurrentDb
    MsgBox "name = " & dbsA.Name
    MsgBox "Ver = " & dbsA.Version
    
    Set dbsA = Nothing

End Sub
-----
よく、わからなかったので、
CurrentDbを開いて、.Nameを見てます。
＊ここの.Nameってパス付きなんだよね、、、逆に.Pathがなかったような？

う〜ん、、、私の調べ方が悪い？

/*
 * ４．VB ここはどこ？私は誰？
*/
次にＶＢです（私の環境ＶＢ５です、、、）
----
Private Sub Command1_Click()
    MsgBox "App.Path = " & App.Path
    MsgBox "App.EXEName = " & App.EXEName
End Sub
----
あれ、Ａｐｐなの、、こんどは。。。
で、.EXENameですか、、、

まぁ、気にしない、気にしない、、、

/*
 * ５．C ここはどこ？私は誰？
*/
最後に、Ｃです（Ｍｓ−ＤＯＳコンソール）
-----
#include 

int main(int argc, char *argv[])
{

    printf("argv[0] = %s\n", argv[0]);

}
-----
まだ、講座でやってませんが、Ｍａｉｎ関数の引数の、
argvの0番目に、位置が入っていると思います。

Ｃは、違っても、気にならないのですが、
Excel,Access,VB と微妙に違ったので、なぜ？と思いました。

/*
 *　６.おわりの挨拶
*/
次は、デルファイ、、、では、、と行きたいとこですが、
私、まだ、デルファイやってないので、、、、、

前回の文字コードと今回の起動位置？を使用して、
次回ぐらいに、ファイル処理とは、、とカッコつけて、発行したいと考えてます。

今回も軽めにサヨナラです。
お時間のある人は、サンプルダウンロードして、研究してください。

では、また。　　三流ＰＧのＫｅｎ３でした。

下記のようなテスト結果です。

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を