indexデータの取得

VBA morningstar

Option Explicit Private Sub testParse() Dim url As String url = "http://www.morningstar.co.jp/FundData/common/chart/xml/all/MSCI011010.xml" Application.StatusBar = "Loading: " & url Dim xdoc As New DOMDocument60 xdoc.async = False xdoc.Loa…

2009-07-18

既定メンバ（既定のプロパティ）とするには

VBA

Collection で Item が省略できるように if e.hasError then を if e then とできないか調べてみたらどうやらできるみたいだ。（VBAだから，ちょっとトリッキーだけど）まずは普通にプロパティを定義 Public Property Get hasError() As Boolean hasError …

2009-07-01

timeGetTime で時間を待つのは予想よりも奥が深かった

VBA

http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200502/05020047.txt まあ，ここを見たんだけど，イベントを受付つつ待機したい場合，timeGetTime を使って経過時間が過ぎるまで DoEvents でイベント処理しつつ，待機するって方法があるんだけど， …

2009-06-19

他のプログラムにボタン押下のメッセージ(SendMessage)を送る

VBA メモ

これもまたよくある例だけど。やってることはSettingButtonsを実行すると，対象ウィンドウからボタンを見つけてきて，ボタン名とハンドルを紐付けconfのコレクションに保存し，pushButton(ボタン名)を実行するとそのボタンが押下するってだけ。ただし，…

2009-06-18

ウィンドウの列挙＠VBA

VBA メモ

まあ，よくあるけどメモのため。それとobjptr始めて使ったけど，スゲーあっさりコールバック関数内でコレクションが使えてしまった（汗何も考えずByVal lParam as Objectで受け取っただけなんだけど。。。あと，固定文字列使うとRTrimして再代入すると末尾…

2006-09-11

excelから他のアプリにキーコードを送る

VBA

Option Explicit Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long) Sub hoge() Dim c As range Dim CB As New DataObject Dim ReturnValue ReturnValue = Shell("c:\\Program Files\\EmEditor\\emeditor.exe", vbNormalFocus) …

2006-07-17

クリップボードコピーした内容を別のシートから検索するマクロ

VBA

Dim str As String Dim dobj As New dataobject With dobj .GetFromClipboard str = .GetText End With Windows("F_Data.xls").Activate Selection.End(xlUp).Select Range("D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Find(Wha…

2006-07-17

マクロを消す

VBA

マクロを削除しなければならないことがどうやらあるらしい。たとえば、内部では仕様書のメンテにマクロを使い、外部へはそのマクロを削除して提出する場合などが考えられる。とりあえず、ほかの人が作ったらしいが、自分なりに調べてみた。（勉強のために…