三流君 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つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



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