自動化ツールuwsc使いよ集まれ4
at SOFTWARE
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このスレッドのURL
■項目テキスト
50:名無しさん@お腹いっぱい。 09/03/19 15:38:36 qhvpuXrj0 body = IEGetSrc(IE, "BODY") body = Copy(body, Pos("<SMALL>日付</SMALL>",body), 999999) // 取得開始位置 body = Copy(body, 1, Pos("</TBODY>",body)) // 取得終了位置 body = ChgMoj(body, "<B>", "") // 邪魔なタグ body = ChgMoj(body, "</B>", "") dim sdat[7] y = 0 While True for x = 1 to 7 // 列 sdat[x] = BetweenStr(body, "<SMALL>", "</SMALL>", y*7+x) if sdat[x] = EMPTY then break 2 next y = y + 1 XLSETDATA(Excel, sdat, "A"+y) // 行単位で設定 Wend これワケわかめ 51:名無しさん@お腹いっぱい。 09/03/19 16:14:32 78bA8AOX0 これの解説書って windowsマクロテクニックのことでしょうか? 他にもお勧めあったら教えていただきたい 52:名無しさん@お腹いっぱい。 09/03/20 01:14:08 2vqtVJvk0 見たこともないからアレだけど、本を読むくらいならこれのヘルプのサンプルを 順にやって見た方が早い気がするなぁ。 ヘルプ、M$のヘルプなんかに比べて遥かに判りやすいと思うよ… それをやって感じが判れば、後は公式のログ調べればヤリタイことの類似のサンプルは豊富にあるし。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック!
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
5289日前に更新/18 KB
担当:undef