Use VBA with Use Fu1nction Jscript (JSE) and Alter RSS, Get text from yahoo, bing and Insert word document file or make utf-8 text file (Windows 10 Enable, office 2013 late 64bit enable)
注意点
今回のプログラムはHPのデザインが変わると使えません。そのたびに解析する必要があります。
また新聞サイトはログインしてやっているので、ログインできない場合はわかりません。
今回はこちらを参考に
たった５行のコードでWebページ取得・解析をするJavaScriptプログラム
これを応用します。しかしこのJscriptはIEが無限にたまってしまうようです。
無限にIEが起動するのを防ぐために
IE.Quit();
IE = null;
この2行を付け加えます。
まずYahoo用の関数です
変数を代入するにはArrayを使います。
つまり変数を並べればいいようです。
WSH.ECHO(yahoointl(args[0]));
今回は0で決め打ちしています。
配列は0からスタートするからです。
var args = new Array();
var oArgs = WScript.Arguments;
try{
for (var tmpI = 0; tmpI < oArgs.length; tmpI++) {
args[tmpI] = oArgs(tmpI);
}
}catch(err){
wscript.quit();
}
oArgs = null;
WSH.ECHO(yahoointl(args[0]));
function yahoointl(ss){
try{
var IE = new ActiveXObject('InternetExplorer.Application');
IE.navigate(ss);
while (IE.busy);
while (IE.document.readyState != "complete");
var buf = IE.document.getElementById('main').innerText;
IE.Quit();
IE = null;
}catch(err){
wscript.quit();
}
return buf;
}
Word側
文書に文字列を挿入する
VBAに入れるとき、参照設定でWindows Script Hostに参照設定をしてください。
次に先ほどのファイルFunctionyahoointl.jseをドキュメントフォルダにおいたものとして処理しています。
strCMDEXE = " C:\Windows\System32\CScript.exe "
は32BitのCscriptで動くようにしています。
この方法の欠点はCMD.EXEの画面が開くことです。
それでも64BitオフィスでJscriptを使うにはこの方法しかないので使います。
Sub InsertYahoointl()
'Jscriptを呼び出して、yahoojp国際のテキストをドキュメントに読み込む
Dim ar
Dim WSHR As New IWshRuntimeLibrary.WshShell
Dim wDoc: Set wDoc = ThisDocument
wDoc.Select
Selection.Delete
Dim str, funcstr, sURL
funcstr = "Functionyahoointl.jse "
str = Environ("USERPROFILE") & "\Documents\" & funcstr
sURL = "http://news.yahoo.co.jp/hl?c=c_int"
ar = WSHR.Exec("C:\Windows\System32\CScript.exe " & str & sURL).StdOut.ReadAll
ActiveDocument.Content.InsertAfter Text:=CStr(ar)
End Sub
テキスト化：Bingを使って特定のキーワードのニュースをテキストファイルにする
参考 JScript・WSHで、UTF-8でファイルの読み書きをする方法
キーワードをとりあえずトランプ大統領としてBingでニュースを検索します。
次に絞り込み条件を7日以内にします。
こうして特定のキーワードで7日以内のニュースを検索するための文字列ができます。
これをADODBでWriteし、
"D:\sample.txt"
に上書きします。
/* ADODB.Stream - SaveOptionsEnum */
var adSaveCreateOverWrite = 2;
/* ADODB.Stream - StreamTypeEnum */
var adTypeBinary = 1;
var adTypeText = 2;
/* ADODB.Stream - StreamWriteEnum */
var adWriteChar = 0;
var adWriteLine = 1;
var IE = new ActiveXObject('InternetExplorer.Application');
IE.navigate('http://www.bing.com/news/search?q=%e3%83%88%e3%83%a9%e3%83%b3%e3%83%97%e5%a4%a7%e7%b5%b1%e9%a0%98&qft=interval%3d%228%22&form=PTFTNR');
while (IE.busy);
while (IE.document.readyState != "complete");
var buf = IE.document.getElementById('mainid').innerText
WSH.Echo( buf );
var st = new ActiveXObject("ADODB.Stream");
st.type = adTypeText;
st.charset = "utf-8";
st.open();
st.WriteText( buf , adWriteLine );
st.SaveToFile("D:\sample.txt",adSaveCreateOverWrite);
st.Close();
st = null;
IE.Quit();
IE = null;
作成のポイント
ポイントはなんといってもNavigateのURLとgetElementByIdに何を入れるかというところになります。あとちょっと不安定で、同じWin10マシンでも動いたり動かなかったりします。
IEで該当ページを開き、F12を押してソースを開きます。
これで取り込みたいテキストの場所を探してこのIDを決めていきます。
長所
ポイントはブラウザを開くのにイライラさせられることがなく、ポンポンとJSEを起動させ、裏で情報が収集できることだと思います。
RSSが使えないところでは便利ではないでしょうか。
なおBingのニュースサイトを使っているのは、裏で起動しているIEをリスペクトするためです。MicroSoftのBingを使ったのはここが便利とかそういうことではありません。
短所
窓が開くこともそうですが、読み込むことに失敗するとIEが起動したまま詰みあがります。原因が不明ですが、システムが不安定になり再起動が必要となります。見よう見まねでTry catchでエラーで止まるようにしたので改善するでしょうか。