-
三流君の
[コンビニ系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"
と別名に保存して、元ファイルを壊されない小細工を説明しました。
...
■番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)
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主な飛び先
人気ページ/アクセスランキング
↑一週間の訪問者数と人気のページを表示してます
その他、宣伝ページです
・[
アンケート/ポイント]などで月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作成、メルマガ書いてます。
最近、[初心者にやさしいプログラム]の解説と[
ネットで稼ぐ小悪テク]の解説を始めようかなぁと思ってます。
...