三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

データとマクロ(VBA)を一緒にしておくと大変。VBSで開いて再集計

下記のような vbs ファイルを作って、エクセルファイルを開いて、再集計してみた。

 Dim oApp
 Dim yyyymmdd(30)

 Set oApp = CreateObject("Excel.Application")
 oApp.Visible = True '可視にする
 'Only XL 97 supports UserControl Property
 'On Error Resume Next
 oApp.UserControl = True

yyyymmdd(1) = "2008-04-01"
yyyymmdd(2) = "2008-04-15"
yyyymmdd(3) = "2008-05-04"
yyyymmdd(4) = "2008-05-18"
yyyymmdd(5) = "2008-06-01"
yyyymmdd(6) = "2008-06-15"
yyyymmdd(7) = "2008-07-06"
yyyymmdd(8) = "2008-07-20"
yyyymmdd(9) = "2008-08-03"
yyyymmdd(10) = "2008-08-17"
yyyymmdd(11) = "2008-11-02"
yyyymmdd(12) = "2008-11-16"
yyyymmdd(13) = "2008-12-07"
yyyymmdd(14) = "2008-12-21"
yyyymmdd(15) = "2009-01-18"
yyyymmdd(16) = "2009-02-01"
yyyymmdd(17) = "2009-02-15"
yyyymmdd(18) = "2009-03-01"
yyyymmdd(19) = "2009-03-15"
yyyymmdd(20) = "2009-04-05"
yyyymmdd(21) = "2009-04-19"
yyyymmdd(22) = "2009-05-03"
yyyymmdd(23) = "2009-05-17"
yyyymmdd(24) = "2009-06-07"
yyyymmdd(25) = "2009-06-21"
yyyymmdd(26) = "2009-07-05"
yyyymmdd(27) = "2009-07-19"
yyyymmdd(28) = "2009-08-02"

For n = 1 To 28
 'Excelファイルを開く、マクロの起動
 dd = "E:\DATA\" & yyyymmdd(n)   'ファイル名作成
 oApp.Workbooks.Open dd & "\99データ調整.xls"
 'oApp.Workbooks.Open dd & "\99転送2008.xls"  'データ作成する
 oApp.RUN "all_html再作成"    'HTMLごと再作成
 oApp.Workbooks.Close
Next 

 '後始末
 oApp.Quit

 Set oApp = Nothing

データとマクロは分けないとなぁ・・・と思いつつ。
※あと、古いファイルのマクロが更新されていなかったり、、、イロイロと手抜きするとあるんだよなぁ。



2008年
[1月]
[2月]
[3月]
[4月]
[5月]
[6月]
[7月]
[8月]
[9月]
[10月]
[11月]
[12月]

2009年
[1月]
[2月]
[3月]
[4月]
[5月]
[6月]
[7月]
[8月]
[9月]
[10月]
[11月]
[12月]

と、データを修正中、、、

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



Googleを使用して検索する

読者の声:三流君の説明・解説じゃ よくわからなかったから、Googleを使って、自分で検索します。
三流君:残念です。あっ、下記にGoogleの検索窓を設置しました。
いろいろ指定して試してみてください。

Google
探す言葉:気になる単語や,オブジェクト(Document),プロパティ(.Busy)やメソッド(.Navigate)などを入れて検索してみてください。


言語を指定:見つからない時は指定無しで探す

サイト指定:人気QAサイト や 一次情報MS本家を指定する
一次情報・二次情報まとめから探る
QAサイトの質問から探る
検索実行: ←オプション確認後に検索ボタンを押してください

期間指定:情報の鮮度も大切?
検索実行: ←オプション確認後に検索ボタンを押してください


本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)