[三流君] −−＞ [ＶＢＡで楽しく] −−＞ [バックナンバー一覧]
−−＞ No.015 ＥｘｃｅｌからＡｃｃｅｓｓのフォームを開いてみました

ＥｘｃｅｌからＡｃｃｅｓｓのフォームを開いてみました

メルマガ発行内容

＜ＥｘｃｅｌからＡｃｃｅｓｓのフォームを開いてみました＞

こんにちは、
メルマガ発行中の三流プログラマーＫｅｎ３です。

今回は、
掲示板に質問もらったので、チョット発行してみます。

いつものセリフで、そんなたいしたことじゃないので今回もご安心を。

/*
 * １. 質問内容
*/

http://bbs.melma.com/cgi-bin/forum/m00034126/
に
> ExcelVBAについて教えて下さい。
> 
> ExcelVBAからACCESSのマクロを実行する
> しかたってありますか？

と
掲示板に質問をいただきました。

今度は、ＥｘｃｅｌからＡｃｃｅｓｓを操作かぁ、
少しやってみますか。

/*
 * ２．試しに、ExcelからAccessのフォームを開く
*/

いつもの、いきなりサンプルです。

Sub Macro1()
    
    Dim objACCESS As Object
    
    'Accessのアプリケーションオブジェクトを作成する
    Set objACCESS = CreateObject("Access.Application")
    
    'もちろん、次はファイルを開かないとね
    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\db97.mdb"
    
    ' 指定のフォームを開く、ここでは、テストフォーム
    objACCESS.DoCmd.OpenForm "テストフォーム", acNormal
    
    objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか
    
    objACCESS.UserControl = True 'その後、ユーザーに操作させる
    
    Set objACCESS = Nothing  ' オブジェクト開放、もう私Excelから使用しないから

End Sub

で、軽く解説に入ると、

Dim objACCESS As Object
まぁ、オブジェクトを参照するための変数を定義します。
as Objectがポイントです。

次は、
    'Accessのアプリケーションオブジェクトを作成する
    Set objACCESS = CreateObject("Access.Application")
です。
ここでは、
CreateObject("Access.Application")
で、アクセスのオブジェクトを作成、操作用の変数に代入してます。

アプリケーションの操作の準備ができたので、
ファイルを開きますか。
    'もちろん、次はファイルを開かないとね
    objACCESS.OpenCurrentDatabase ActiveWorkbook.Path & "\db97.mdb"
ここでは、
Ｅｘｃｅｌブックのパスと同じフォルダーの
db97.mdbを開いてます。
C:\data\data.mdbとか固定なら、
objACCESS.OpenCurrentDatabase "C:\data\data.mdb"
で、ＯＫです。
＊意味ありそうなｄｂ９７。ｍｄｂとありますが、
　ただの、ファイル名です。

次に、フォームを開きます。
    ' 指定のフォームを開く、ここでは、テストフォーム
    objACCESS.DoCmd.OpenForm "テストフォーム", acNormal
なんか、見たこと有る？
DoCmd.OpenForm
ですね。
＊DoCmd.〜を次回あたり探らないとなぁ。


    objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか
    objACCESS.UserControl = True 'その後、ユーザーに操作させる
↑こいつがＯｎになってないと、悲惨な目に（笑）

    Set objACCESS = Nothing  ' オブジェクト開放、もう私Excelから使用しないから
↑もう、操作しないので、変数を解放してます。

実行のテストサンプルを
http://www.ken3.org/vba/lzh/vba015.lzh
を落して、動かしていろいろとイタズラしてください。
回答すると
AccessOpenTEST.xls
と
db97.mdb
があって、
AccessOpenTEST.xlsをExcelから開いて、遊んでみてください。

Excel97とAccess97      OS:Win98環境
Excel2000とAccess2000  OS:Win2000環境
で、動作しました。

/*
 * ３．試行錯誤の余談（笑）
*/

    objACCESS.UserControl = True 'その後、ユーザーに操作させる

これ、無いと（コメントにして遊んでみてください）
面白いよ。

Ａｃｃｅｓｓが起動して、チラっとフォームが見えたと思ったら、
すぐに終了してんの（笑）
ぜひ、試してください。

下記は、簡単に想像できるけど（私がやられたけど）
    objACCESS.Visible = True ' Accessを表示ＯＮあたりまえか
これ、やってないと、、、
どうなるんだろう？（笑）

自分への怒りのコメント、
' Accessを表示ＯＮあたりまえか
なんですよね。

表示されなくって、面白いですよ。

＊逆に使えるかも？

/*
 * ４．終わりの挨拶
*/

今回は、
ＥｘｃｅｌからＡｃｃｅｓｓのフォームを開いてみました。

おい、三流作者。
なに？

質問内容はＡｃｃｅｓｓマクロ実行じゃないの？
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
あっ、、、次回ですかねぇ（今回のサンプルでわかっちゃった人もいると思うけど）

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

No.015を読んだ満足度(評価)は？
5満足（参考になった）
4まぁまぁ（一部参考になった）
3普通（どちらとも言えない）
2なんかなぁ（期待と違った）
1不満（読んで損した気分）
 作者に感想・質問を送る場合は下記に気軽に書いてください
あなたのお名前（ニックネーム） さん

作者からの返信は、 不用 E-mail で受信したい
＊質問・感想はメルマガで紹介する場合があります

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係 関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます
広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する
Google
Web www.ken3.org
www.microsoft.com support.microsoft.com
あとは、項目別にMSでお勉強かな？
◆ マイクロソフト サイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジ マップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店
 ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・