-
三流君の [コンビニ系HPへ] [VBA系HPへ] [ASP系HPへ] [愚痴系HPへ]

Dim objExcel As New Excel.Application を後輩に教わる

Access から Excel 連携 関連項目
[No.2 AccessからExcel出力]
[No.7 MDBと同フォルダのExcelファイルを開く]
[No.13 Excel セルに名前を付けてみる]
[No.14 Excel 隣のシートを参照して逃げる]
[No.48 AccessからExcelブックを開き、書式設定を行う]
[No.54 AccessからExcel開いて、処理終了後に閉じたい]
[No.58 Access クエリーを Excel既存シートへ エクスポート]
[No.59 Excelのマクロ付きフォーマットを壊されないように]
[No.64 AccessからExcelファイルを開いて・印刷して・閉じたい]

Accessでモジュールの参照設定を選択します

Excel8.0にチェック レ をつけます
Dim objExcel As New Excel.Application で 参照可能となります。
VBでモジュールの参照設定を選択します
Excel8.0にチェック レ をつけます
Dim objExcel As New Excel.Application で 参照可能となります。

<Dim objExcel As New Excel.Application を後輩に教わる>

目次
1.はじめの挨拶 
2.移動中、お昼の時も、色気の無い技術話、、、
3.お飾りは、、サビシイなぁ。。。
4.メルマガ見にくくなりました
5.おわりの挨拶
----------------------------------------------------------------------------
/*
 * 1.こんにちは
*/
こんにちは。
まぐクリックのいたずらか、、、24,25と連続で発行したみたいです。。
*テメエの操作ミスだろ、、、操作ミスをシステムのせい、OSが悪いなんて、、
 まったく、どこかのおじちゃんオペレーターの方が、まだましだよ。

でも、届いていない人、いるみたいだよ?
う〜ん、、なんだろう?
1号から、見てます、24号抜けた?みたいなので、
送ってください、、みたいなメールありました。

コレクションじゃないから、1号抜けても、、いいでしょ?
えっ、送りなおしてほしい?
読者を大切にしないと、解除されちゃうよ。。。
じゃ、希望者は、XX号再送して、、と

今日は、技術話、あまりないので、ヨロシク。

いつものことでしょ、、、ハイハイ。

/*
 * 2.移動中、お昼の時も、色気の無い技術話、、、
*/
水曜日、私のチーム(Ken3システムチーム)
三本柱の一人、21歳のかわいいお嬢さんと、
二人っきりで、客先に納品に行ってきました。。。
*人は、外見じゃない、、、めちゃくちゃ、実力あります。
 21なのに、エース級です。

まぁ、そんな人物紹介は、置いといて
(えっ、気になる、、5行で人の興味を引くなんて、大物だねぇ)

今日、納品のシステム、お決まりパターンの
Access97でデータ管理 --> Excel97で表作成でした。

道中、先輩リーダーらしく?
今後やってみたいことや、プログラムの中身について、話してました。
*周りから見たら、電車の中で変な会話?だったんだろうな、、、

まぁ、ここまでは、普通の話で、
Access側でオブジェクト作成して、作ってるの?
それとも、Excel内にVBAを置いて、処理してるの?
と今回納品のシステムの話を始めました。(←)
*オイオイ電車の中でかよ、、カンベンしてよ
 体調不良で、熱あんだから、寝てりゃよかったんだよ、、、今思えば、、、

ここで、いきなり、知らない単語出る。
Dim objExcel As New Excel.Application
えっ、何それ、、と思いつつ、よく聞いてみる。
(一流の人は、もうピンと来たかもしれませんが、、、、)

話を引っぱって、
私、No21.VBやAccessからExcelにデータを書き込む で
Dim oApp As Object
    'Excel を起動
    ' ↓Accessウイザードで作成されます
    Set oApp = CreateObject("Excel.Application")
と解説しましたねぇ、、、自分でも、おぼえてます。はい。。。

始めは、やってること・結果、同じだからいいかなぁ?
と思っていたのですが、気になって、今調べてみたら、
なんと、
Dim objExcel As New Excel.Application
と書くと、
ソース上で、
objExcel. とピリオドを打った時点で、
エクセルのプロパティ・メソッドが出るじゃないですか、、、
大変驚きました。ホントですよこれ?

かなり、ソース作成時に、影響でそうです。
みなさんも、
Dim objExcel As New Excel.Application
この書き方・行儀作法、、、おぼえておいて下さい。

枠外解説・グチ --- プログラマーに年齢は、関係ないようで関係ある?

21なのに、エース級です。と書きましたが、(反感くること狙って書きました)
プログラマーに年齢、、、ハッキリいって、関係ないです。
と私、思ってます。

が、技術経歴書なんて物を書くと、
3年目のできるPGと5年目・7年目のPGを見せると、
5年目・7年目のPGのほうが経験積んでるから、安心そうに見え、
単価的に、3年目のできるPGよりも、高い単価になりやすいです。
(出向単価や外からもらえる単価 の場合、、、受託請負は関係無いけどね)

技術経歴書なんて、嘘っぱちのもの信じちゃダメですよねぇ。。。
私の経歴書みたけど、、、水増し多いし、、、要求分析なんて、最近でしょ始めたの、、
三流PGが二流SEぐらいで、書いてある。
*PGとSEって書き方(分け方)、嫌いなんですが、イメージつかむために書きました。

あと、年齢関係無いで印象的なのは(できごとは)
私が20の時(もう、7年前か、、、)
当時、先輩と処理方法でもめてた時、
課長に、
「どちらをとっても影響の無い処理なら、先輩のほうが採用されるよ」
「くやしかったら、2つぐらいは上の意見を言わないとダメだよ」
と言われました。
そんななぐさめ?でも納得できなくて、
「紙一重上でもダメなんですか?」と言いながら、
机をたたき・ゴミ箱をヘコマシ(後で、厳重注意、、を受ける)
一人泣いて夜中コーディングしなおした記憶あります、、昔話だけどね。。。

そんな経験したので、後輩の好きなように作ってもらっているつもりです。
*でも、後輩からみたら、ゆずらない先輩と思われてるかもね。。

/*
 * 3.お飾りは、、サビシイなぁ。。。
*/
今日、初めて、お飾り状態、味わいました。

お飾り状態--->上司がタダいるだけの状態?

インストール・客先説明の頭から、やってもらい、
とくにトラブルも無く、無事に終了。
さすが、うちのエースは、、と思いつつ、何も無かったのがさびしかった。。。

あっ、これがお飾り状態ね、、、なれないとなぁ。。。

枠外解説・グチ --- ピッチャーからキャッチャー、、コーチ・監督へ、、、

今まで、自分が作業者だったので、好きなようにやれて、心配もなかった。。
今は、キャッチャーで、ピッチャーの調子をみながら、リードしていく立場かな?
そのうち、コーチ・監督へ、、、

名文句で、名選手・名監督にはなれない、、、ってあったなぁ。
えっ、心配しないでも大丈夫?
なんで?
テメエは、名選手じゃなかっただろ、、、あっ、そっか。。。納得。

ふざけて書きましたが、自分がプログラム・システムわからなくても、
管理している管理者、すごいと思います。
今の自分だと、最悪、自分で後始末つければイイヤ的な部分があるので、
管理?していません。

オレは、管理野球が嫌いだ、、、もカッコいいけどねぇ。。。

/*
 * 4.メルマガ見にくくなりました。
*/

ある読者より
>ken3さんは硬派かと思ってたんだけど、
>広告に手を出したんですね。
>メルマガ見にくくなりました。

なんて、言われちゃうし、、、
チョット金、、なんて、思ったのが、
送信遅延や送信されなかった?で、読者に迷惑かけてたのかなぁ、、、

でも、意外だったのが、硬派?
メルマガの印象からだと、、軟派の方が強いと、思ったけど。
今回は(も?)特に、硬派っぽくないような。。

読者あってのメルマガ、、考えさせられますね。

CreateObject("Excel.Application") Excel操作の関連項目
[No.2 AccessからExcel出力]
http://www.ken3.org/backno/backno_vba01.html#2
で、
・ウィザードを使ってたサンプルを作れることを説明
・マクロ記録でExcelの操作をVBAにする
・頭にオブジェクト変数を付けてAccessからExcelを操作
を簡単に説明しました。

[No.7 MDBと同フォルダのExcelファイルを開く]
http://www.ken3.org/backno/backno_vba02.html#7
では、
CurrentDb.NameからMDBの位置を取りだし、
相対位置(同じパス)のExcelファイルを開きました。

[No.13 Excel セルに名前を付けてみる]
http://www.ken3.org/backno/backno_vba03.html#13
では、
Accessから名前付きのセルにデータをセットして、
変更が少ないシステムについて説明しました。

[No.48 AccessからExcelブックを開き、書式設定を行う]
http://www.ken3.org/backno/backno_vba10.html#48
では、
AccessからExcelブックを開き、
objEXCEL.Selection.Style = "Comma [0]"
objEXCEL.Selection.NumberFormatLocal = "0.00_ "
で書式設定を行うサンプルを解説しました。

[No.54 AccessからExcel開いて、処理終了後に閉じたい]
http://www.ken3.org/backno/backno_vba11.html#54
では、
.RunでExcelのVBA関数を呼び出し、処理後、
oApp.ActiveWorkBook.Close SaveChanges:=False
oApp.Quit で終了する処理を解説しました。

[No.59 Excelのマクロ付きフォーマットを壊されないように]
http://www.ken3.org/backno/backno_vba12.html#59
では、
ActiveWorkbook.SaveAs FileName:="XXXXXX"
と別名に保存して、元ファイルを壊されない小細工を説明しました。


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


...



番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)
2000/05/13 SQL Count関数を使ってみる
2000/05/11 Access97 標準関数Midなどが使えない
2000/05/09 SendObjectのエンコード
2000/05/08 クエリーで〜以外とは
2000/04/27 Imagingコントロールを使ってみた
2000/04/25 Excel97 VBA イベントなど
2000/04/24 Access97で複数のプリンタを切替えて使用
2000/04/20 書式付きエクスポート DoCmd.OutputToで、できます
2000/04/19 Access97でExcel形式へExport時に書式設定を行いたい
2000/04/13 Access97でOutlook97/98とリンクする方法
2000/04/13 VBA Nameステートメント
2000/04/04 Accessでキー取得
2000/04/04 AccessでFile参照ダイアログ?
2000/04/03 縦書用数値変換改良
2000/04/01 Access Err テーブルを消したい
2000/03/31 縦書き数値、どうしてますか?
2000/03/29 VBA 手抜きで、処理後、explorerを開く
2000/03/28 Access --> Word へデータ
2000/03/24 名前一覧Excelの機能で、同じことできました
2000/03/23 Excel97 VBA セルに付けた名前一覧を作成する
2000/03/21 Excel セルに名前付け
2000/02/25 iniFileを読む GetPrivateProfileString
2000/02/15 Excel VBA Rangeオブジェクトとサンプル
2000/02/14 Access97 SizeMode/OLEサイズ で画像調整
2000/02/10 Access97 Pictureプロパティとサンプル
2000/02/09 Access97 集計クエリーで重複値をハジク
2000/02/07 Access97 サブフォームへ値をセット
2000/02/04 Access97 コントロールソース、チョットした使用法
2000/02/01 Access97 フォームフッター
2000/01/18 Access97 now()関数で有効期限処理、、、

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

人気ページ/アクセスランキング
↑一週間の訪問者数と人気のページを表示してます

その他、宣伝ページです
・[ アンケート/ポイント]などで月500円を必死に稼いでます(笑)
・[ SOHO/在宅プログラマー/派遣]の話題、Webエントリー後の反応など
・[ 出会い系]のお話、自分で出会い系のシステム作れないか?探ったお話
・[ ネットで小金を稼げるか?]実験中だが成果は無し
※あとは、[パソコン関係の書籍]や[ゲームソフト]、 [パソコンパーツ] をバナーから売ろうとするけど、
 なかなかうまくはいかないよね(笑)
←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社(アスキー、インプレス等)が共同運営するコンピュータの本・専門店 種類が豊富で探し易い※在庫ありが48時間以内発送

プログラム系、流れや基本系?
[No.4 プログラムって?流れって?]
[No.5 変数・乱数・定数]
[No.8 配列とArray関数]
[No.9 If文で範囲のチェック]
[No.10 Select Case XX To XX と Is >= XX]
[No.11 InputBox関数で簡単な値を受け取る]
[No.12 入力結果の判断いろいろ]
[No.19 Exit Subで途中退場する]
[No.20 配列変数ですっきりと?(2次元配列)]
[No.21 変数の型を意識する]
[No.22 関数って?Subプロシージャを呼ぶ]
[No.23 値を返すユーザー関数、Function関数]
[No.24 関数のパターンを少し]
[No.35 イベント処理について]
[No.36 オブジェクトのプロパティについて]
[No.37 オブジェクトのメソッドについて]
[No.45 歌詞の表記を参考に関数を作成]
[No.73 オブジェクトのループはFor Each In でループさせる]

VBA関数
[No.3 Dir関数でファイルの存在をチェックする]
[No.17 Val関数で文字列を数値に変換してみた]
[No.18 文字列を数値に変換、CIntで変換]
[No.38 キャラクタコード?って何? Chr関数、Asc関数]
[No.39 StrConv関数で半角を全角文字にしてみた]
[No.40 Len関数で遊ぶ、遊ばれる]
[No.72 文字列を日付型に変換、Cdateへの値の渡し方いろいろ?]
[No.77 Not演算子で細工する、プログラムはパズルのように...]

Excel関係
[No.28 Excelのグラフをgifへ変換 .Exportメソッド使用]
[No.43 セルのB3を参照するには?]
[No.44 Cells(257)とCells(2,1)の関係]
[No.49 Excel Rows(n).Select で行選択]
[No.47 Excel Application.GetOpenFilenameでファイル名取得]
[No.60 Cancel=Trueの使い方(例題:Excel 右クリック禁止)]
[No.51 Excel Range オブジェクトを使う]
[No.86 Excel 起動オプションのお話(引数的なラブレターを渡したい)]

Excel UserForm
[No.30 Excel UserForm テキストボックスのイベント]
[No.32 Excel UserForm_KeyDownイベント発生条件]
[No.34 ┌ ─ ┐│└ ┘を使って、文字列を囲ってみたい]
[No.42 ExcelのForm シートと連動させる]
[No.46 カウンタで先頭行チェック、空白で終わりの判断]
[No.61 Excel Form 閉じる方法 Unload Me]
[No.63 Excel UserForm で データ・フォームの機能を真似てみる]
[No.68 Excel Formで値を設定、標準モジュールで使用したい]
[No.84 Excel UserFormでコンボボックスを使用してみた]

Access 関係
[No.1 いきなりサンプルじゃぁねぇ、、文句の一つ言いたいよ]
[No.75 空のMDBを作成後、DoCmd.CopyObjectでテーブルコピー]
[No.85 Access クエリーで演算フィールドを使ってみる]

Access フォーム
[No.41 AccessのForm .Pictureプロパティで画像参照]
[No.62 Access フォームでパスワード入力(入力後*****表示)]
[No.65 Access Form TextBoxの.SelLength .SelStartプロパティ]
[No.66 Access ユーザーマスターのチェックとメニュー切り替え]
[No.67 Access Formを隠す Me.Visible = False (Closeとの違い)]
[No.69 Access コンボボックスを自動で開きたい]

Access レポート
[No.74 Access 列型レポートの左端に印刷したい]
[No.76 Access レポート Me.NextRecord = Falseで移動を止める]

Access から Excel 連携
[No.2 AccessからExcel出力]
[No.7 MDBと同フォルダのExcelファイルを開く]
[No.13 Excel セルに名前を付けてみる]
[No.14 Excel 隣のシートを参照して逃げる]
[No.48 AccessからExcelブックを開き、書式設定を行う]
[No.54 AccessからExcel開いて、処理終了後に閉じたい]
[No.58 Access クエリーを Excel既存シートへ エクスポート]
[No.59 Excelのマクロ付きフォーマットを壊されないように]
[No.64 AccessからExcelファイルを開いて・印刷して・閉じたい]

Excel から Access 連携
[No.15 ExcelからAccessのフォームを開いてみました]
[No.16 ExcelからAccessのモジュールを呼んでみました]

テキストファイル処理
[No.27 テキストファイル処理 ファイルへの書き込み]
[No.29 テキストファイル処理 ファイルからの読み込み]
[No.31 Write #で ””を付けた書き込み]
[No.33 FreeFile関数で空いてるファイル番号を返す方法]

インターネットエクスプローラーの操作(InternetExplorer.application)
[No.50 IE起動 CreateObject("InternetExplorer.application")]
[No.52 InternetExplorer.application .document.body.innerText]
[No.53 文字列を探す、InStr関数の使い方]
[No.70 InternetExplorer.application .document.all(0).innerHTML]
[No.71 IE操作 リンク先を取出す .Document.links(i).href]

Outlookを操作する
[No.55 Outlookを操作してメールを送りたい]
[No.56 Outlookから複数のアドレスにBCC送信]
[No.57 Outlook メールアイテムの形式でハマる]
[No.78 Outlookでファイルを添付するには?.Attachments.Add]

FTPの設定ファイルを作成してみた
[No.25 コマンドラインのFTPを使ってみた]
[No.26 FTP -n オプションとuserコマンド]

Excel HTML表作成ツールもどき
[No.80 Excelのセル範囲をHTMLの表(.html)にしてみる]
[No.81 セルの右寄せ、中央寄せをHTMLの表にしてみる]
[No.82 背景色、フォントカラーをHTMLの表にしてみる]
[No.83 改行LFを<BR>などHtml用にエンコードして書き込む]

その他
[No.6 ファイルの起動場所を知る方法]
[No.79 SJIS--JISコードの文字列を作成したい]

...
挨拶
最後まで読んでいただき、どうもです。
失敗続きのAB型の変わり者 三流プログラマー Ken3です。
[Excel/Access VBA],[ ASP(Active Server Pages)]の解説
[ プログラマーの愚痴]、[ 元コンビニ店長時代の話] をネタにしてHP作成、メルマガ書いてます。
最近、[初心者にやさしいプログラム]の解説と[ ネットで稼ぐ小悪テク]の解説を始めようかなぁと思ってます。
作者に感想・質問/要望を送る(気軽に質問・感想書いてください)
あなたのお名前(ニックネーム) さん

作者からの返信は、 不用 掲示板 E-mail で受信したい
※送っていただいた質問・感想はアドレス以外、メルマガで紹介する場合があります

...