[三流君] −−> [プログラマー業務の愚痴] −−> [バックナンバー一覧]
−−> No.020 C,VB,Access,Excel ここはどこ?私は誰?

C,VB,Access,Excel ここはどこ?私は誰?


本文(発行内容)


<C,VB,Access,Excel ここはどこ?私は誰?>
目次
1.はじめの挨拶 
2.Excel VBA ここはどこ?私は誰?
3.Access VBA ここはどこ?私は誰?
4.VB ここはどこ?私は誰?
5.C ここはどこ?私は誰?
6.おわりの挨拶
----------------------------------------------------------------------------
/*
 * 1.こんにちは
*/
こんにちは。

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

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

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

実行できるサンプルを
hosoku/020/index.html
に置いておくので、あわせてみてください。

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

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

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

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

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







/*
 * 2.Excel VBA ここはどこ?私は誰?
*/
Excelファイルが、
どこから起動したか(どこに保管されているか)
知りたい時、ありませんか?

えっ、無い。。。さようなら。
じゃなくて、相対パスとかで、
処理したいとき、知っていると便利だと思うので、説明します。
*各処理言語によって、微妙にちがう、、、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かな?と思ったのですが、
これは、Excel本体のインストールされているパスで、
目的のほうは、
ActiveWorkbook.Pathです。

う〜ん。。。

/*
 * 3.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がなかったような?

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

/*
 * 4.VB ここはどこ?私は誰?
*/
次にVBです(私の環境VB5です、、、)
----
Private Sub Command1_Click()
    MsgBox "App.Path = " & App.Path
    MsgBox "App.EXEName = " & App.EXEName
End Sub
----
あれ、Appなの、、こんどは。。。
で、.EXENameですか、、、

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

/*
 * 5.C ここはどこ?私は誰?
*/
最後に、Cです(Ms−DOSコンソール)
-----
#include 

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

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

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

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

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

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

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

では、また。  三流PGのKen3でした。

PS.なんか、20回もメルマガ発行したけど、進んでないし、
  あまり、タメになってないような気がします。
   5回に1回ぐらいはタメになるマルマガめざして、がんばりますかねぇ。


ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか?少々心配しつつ、、、

リンクや広告など

項目別に本音?それとも建て前?的な記事をまとめました。

気になったジャンル↓を選択してください。
[ルーキー rookies]・・・ 新人さん達 初心者さんへ
[学ぶ study]・・・学習、技術の取得
[仕様書 doc]・・・仕様書・設計書関係の話
[共同作業 team]・・・チーム、グループ作業
[プログラムは心? spirit]・・・プログラマー 心・気質・魂

[掲示板デビューしようぜ bbs]・・・掲示板関係の話、質問者・回答者の気持ちほか
[昔はできた seo]・・・三流式の効果無しSEOとアフィリエイト
[仕事や作業、転職 job]・・・仕事や転職、評価、作業など
[その他 etc]・・・その他 分類外の記事

※↑文章の味付けが変わっていて、お口に合うかわかりませんが。。。
※※読んで、気分を悪くされたらスミマセン。

Blogとリンク:[三流君の作業日記]/ [愚痴(Bookmark)]/ [広告Blog(Bookmark)]



[三流君(TOP ken3.org へ戻る)] / [プログラマー業務の愚痴] / [バックナンバー 一覧]