Webサイトからテーブルの内容をエクセルシートに保存

http://uwscscript.blog.fc2.com/blog-entry-30.html を参考にさせていただいるのですが、 現在参考の目的のIEが無いようで、 テーブルの要素を書き込む部分の「エクセルに書き込みでエラーが出てしまいます。」 仮にサイトを別のサイトで置き換えて、下記を理解できれば解決に至れるのかと思うのですがご教授お願いできれば幸いです。 —————————— sheet.cells[y,2].value = table.item(3).rows(3).cells(2).innerText sheet.cells[y,2].value→エクセルのシートの場所を指してると思っています。 table.item(3)→取得したWebサイト側のテーブルだと思ってます。 rows(3)→何を指しているかわかりません。 cells(2)→何を指してるかわかりません。 innerText→書き込む動作として理解しております。 ——————————

タグ

2016年11月12日 | コメント/トラックバック(0) |

カテゴリー:掲示板

ファイルへの追記書き出しについて

いつもありがたく使わせてもらっています。 早速ですが、FOPENで開いたファイルに対して追記することはできないのでしょうか? 外部アプリからUWSCを呼び出してスクリプトを実行していますが、UWSC側での動作ログを書きだそうとして以下のようにしてみました。 Fid=FOPEN(“.\log.txt”,F_READ or FWRITE) FPUT(Fid,G_TIME_YY2 + “/” + G_TIME_MM2 + “/” + G_TIME_DD2 + ” ” + G_TIME_HH2 + “:” + G_TIME_NN2 + “:” + G_TIME_SS2,0,1) FCLOSE(Fid,TRUE) 想定では起動するたびにログに時間が追記されていくと思っていたのですが、上書きモードになってしまい最新1件分しかない状態です。 どうすれば追記モードとして動作することができるでしょうか?

タグ

2016年7月4日 | コメント/トラックバック(1) |

カテゴリー:掲示板

エクセルの特定のセルにあるメルアドをiniファイルに書込する方法

エクセルの特定のセル、例えばA1にあるメルアドの文字列を、iniファイルに下記のように書込する方法ないでしょうか? [メルアド1] メールアドレス=A1にあるメルアドの文字列

タグ

2016年6月24日 | コメントは受け付けていません。 |

カテゴリー:掲示板

8桁のランダムなアルファベット数字の文字列を作成したい(先頭はアルファベット)

8桁のランダムなアルファベット数字の文字列を作成したい(先頭はアルファベット)を作成したいのですが、下記のスクリプトでは先頭が数字になる場合があります。 先頭はアルファベットで数字とアルファベットの組み合わせの文字列の作成する方法ないでしょうか? 宜しくお願いします。 IDPASS = “” //文字列10個出力 FOR A = 1 TO 10 //文字数は8文字 FOR B = 1 TO 8 IDPASS = IDPASS + RETURNCHAR() NEXT IDPASS = IDPASS + “” NEXT SENDSTR(EXEC(“NOTEPAD”),IDPASS) FUNCTION RETURNCHAR() LETTER = CHR(97 + RANDOM(26)) //アルファベットの小文字、大文字、数字を出す SELECT RANDOM(3) CASE 0 //小文字はそのまま RESULT = LETTER CASE 1 //大文字を出す場合は変換 RESULT = STRCONV(LETTER,SC_UPPERCASE) CASE 2 //数字の場合は0~9をランダムに出す RESULT = RANDOM(10) DEFAULT RESULT = LETTER SELEND FEND

タグ

2016年6月24日 | コメントは受け付けていません。 |

カテゴリー:掲示板

ページ検索後に得られた単語にマウスを移動させたい

任意のサイトで目的の単語をページ検索し、その結果得られた単語部分にマウスを移動させたいのですが、わかりません。最近、このフォーラムを知って、小林さんの本を買ったりしていろいろ勉強しているところです。このトピックに関して、参考となるサイトやアドバイスなどいただけると幸いです。

タグ

2016年6月6日 | コメントは受け付けていません。 |

カテゴリー:掲示板

CLKITEMを使ったマウス移動について

CLKITEMを使って、3番目のアイテムに マウスカーソルを置くコードについて 教えてください。 ———————— wid = GETID(GET_ACTIVE_WIN) CLKITEM(wid, アイテム名, CLK_ACC or CLK_MUSMOVE, FALSE, FALSE, 3) ———————— 上記のアイテム名を指定する際に、 value値(キャプションの文字)なら マウス移動できるのですが、 input type値(“radio”や”checkbox”) ではできません。 何か良い方法が あれば教えてください。

タグ

2016年2月28日 | コメントは受け付けていません。 |

カテゴリー:掲示板

CLKITEMのマウスカーソル移動について

CLKITEMを使って、3番目のアイテムにマウスカーソルを置く コードについて教えてください。 ———————— wid = GETID(GET_ACTIVE_WIN) CLKITEM(wid, アイテム名, CLK_ACC or CLK_MUSMOVE, FALSE, FALSE, 3) ———————— 上記のアイテム名を指定する際に、 value値(キャプションの文字)ならマウス移動できるのですが、 input type値(“radio”や”checkbox”)ではできません。 何か良い方法はないのでしょうか?

タグ

2016年2月27日 | コメントは受け付けていません。 |

カテゴリー:掲示板

Excel 空白セルの判定がうまくいかない

こんにちは。UWSCで、Excelのセルにデータが入っているか判定するプログラムを書こうと思っています。 ExcelのSheet1のA1に何らかの文字列が入っていれば、処理を行うといった事をしたいのですが、下記のコードだとうまく動きません。 A1に文字列が入っていないにも関わらず、IF文がTRUEになってしまい、DO SOMETHINGを実行してしまいます。 下記のコードを試したのですが、ダメでした。 ☓ LENGTH(.Range(“A” + “1″)) “” ☓ LENGTH(.Range(“A” + “1″)) 0 ☓ .Range(“A” + “1″) “” ☓ .Range(“A” + “1″) EMPTY ☓ .Range(“A” + “1″) NOTHING ☓ .Range(“A” + “1″) NULL EXCEL = GETACTIVEOLEOBJ(“Excel.Application”) WB = EXCEL.WorkBooks(“myFile.xlsx”) With WB.WorkSheets(“sheet1″) if LENGTH(.Range(“A” + “1″)) “” then //Do SOMETHING endif EndWith どのようにすれば解決できますでしょうか?UWSCの問題というよりは、Excelの問題のような気もしますが・・・ お手数おかけします。よろしくお願いいたします。

タグ

2016年1月15日 | コメントは受け付けていません。 |

カテゴリー:掲示板

アマゾンの検索結果の並べ替え条件の変更の仕方について

アマゾンの検索結果の並べ替え条件を変えたいのですが、うまく出来ずに困っています。

例)URL : http://www.amazon.co.jp/s/ref=sr_pg_1?rh=n%3A561958%2Ck%3Advd&keywords=dvd&ie=UTF8&qid=1452480712&lo=dvd

処理としては、下記のことをしています。

//サンプルコードここから
IE = CreateOLEObj(“InternetExplorer.Application”)

IE.Visible = True

IE.Navigate(“http://www.amazon.co.jp/s/ref=sr_pg_1?rh=n%3A561958%2Ck%3Advd&keywords=dvd&ie=UTF8&qid=1452480712&lo=dvd”)

BusyWait(IE)

doc = IE.Document

for k=0 to doc.forms(3).elements.length-1
    ifb (pos(“select-one”,doc.forms(3).elements(k).type)0)
        break
    endif
next

//おすすめ順を選択したい場合
doc.forms(3).elements(k).selectedIndex = 1
doc.forms(3).submit

Procedure BusyWait(ie)
Sleep(0.5); repeat; Sleep(0.2); until (! ie.busy) and (ie.readyState=4); Sleep(0.5)
Fend
//サンプルコードここまで

上記の処理で、並べ替え条件の表示は「おすすめ順」に変わるのですが、実際にはおすすめ順には並べ替えがされません。
doc.forms(3).submit は、あってもなくても結果は変わりませんでした。
何か処理が足りないのだと思うのですが、そこが分かりません。

OSはWindows7 Professional 64bit、IEのバージョンは11.0.9600.18124です。

どなたか分かる方がいらっしゃったら、ご教示いただければ幸いです。

よろしくお願いいたします。

タグ

2016年1月11日 | コメント/トラックバック(1) |

カテゴリー:掲示板

エクセルの特定行を削除するにはどうしたらいいのでしょうか

いつもお世話になってます かなり初歩的な質問ですが、スクリプトを使ってエクセルの特定なセル、または特定な行を削除するには、どんな命令を使用したらいいのでしょうか サイト内で検索してもヒットしませんでしたので、 こちら質問させて頂きました、ご教示よろしくお願いします

タグ

2015年10月20日 | コメント/トラックバック(1) |

カテゴリー:掲示板

このページの先頭へ