VBAのお勉強　住所の文字列→緯度・経度を求める へのコメント http://www.simple-sys.com/blog/2008/04/06/301/ Sun, 15 Jan 2012 20:38:12 +0000 hourly 1 http://wordpress.org/?v=3.3.1 admin より http://www.simple-sys.com/blog/2008/04/06/301/comment-page-1/#comment-65 admin Wed, 14 May 2008 03:45:12 +0000 http://www.simple-sys.com/blog/?p=301#comment-65 YONさん、再度コメントありがとうございます（＾＾） APIの利用規約については、どこまでが許されてどこからが許されないのか、いまいちよく分からないんですよ（＾＾；） 私の場合、お客様に提供する場合など商用として使う場合は有料サービスを選択しています。個人で使用する場合は、WEBで公開する場合はAPIを使い、公開しない場合は今回取った方法を使う、という感じで使い分けています。 これでよいのかも分かりませんが(＾＾；) ところで、サンプルソース、ありがとうございます（＾＾） 直接IEを呼び出してフォームに値を代入する、という方法ですね。 これなら文字コードとか、気にしなくて良いのかな？ 後でじっくり読ませていただきます。 ありがとうございました（＾＾） YONさん、再度コメントありがとうございます（＾＾）

APIの利用規約については、どこまでが許されてどこからが許されないのか、いまいちよく分からないんですよ（＾＾；）
私の場合、お客様に提供する場合など商用として使う場合は有料サービスを選択しています。個人で使用する場合は、WEBで公開する場合はAPIを使い、公開しない場合は今回取った方法を使う、という感じで使い分けています。
これでよいのかも分かりませんが(＾＾；)

ところで、サンプルソース、ありがとうございます（＾＾）
直接IEを呼び出してフォームに値を代入する、という方法ですね。
これなら文字コードとか、気にしなくて良いのかな？

後でじっくり読ませていただきます。
ありがとうございました（＾＾）

]]> YON より http://www.simple-sys.com/blog/2008/04/06/301/comment-page-1/#comment-64 YON Tue, 13 May 2008 10:10:07 +0000 http://www.simple-sys.com/blog/?p=301#comment-64 そうですね。けちをつけてすみませんでした。 ところで、今日ひまだったので、私もhttp://map.yahoo.co.jp/のﾍﾟｰｼﾞから 経度・緯度をExcel表に書き込むVBAを別の手法で作ってみました。 VBから、「CreateObject("InternetExplorer.Application")」で、ブラウザーを操作して、表示内容を取り込む手法です。IE6.0でないとだめみたいです。 http://www.happy2-island.com/vbs/cafe02/capter00701.shtml を参考にしました。 以下ソースです。 Sub ie_set() Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True Range(Cells(1, 2), Cells(Range("A65536").End(xlUp).Row, 3)).Cells.Value = "" For i = 1 To Range("A65536").End(xlUp).Row Step 1 address = Cells(i, 1).Value objIE.navigate "http://map.yahoo.co.jp/" Do While objIE.Busy = True DoEvents Loop Do While objIE.readyState 4 DoEvents Loop Title = objIE.LocationName 'MsgBox strTitle objIE.document.forms(1).Item("search_module__qbox").Value = address objIE.document.forms(1).Item("search_module__pbox").Value = address objIE.document.forms(1).Item("search_module__bexec").Click Do While objIE.Busy = True DoEvents Loop Do While objIE.readyState 4 DoEvents Loop chk = objIE.LocationName Do While chk = Title chk = objIE.LocationName DoEvents Loop Title = objIE.LocationName Do While objIE.Busy = True DoEvents Loop Do While objIE.readyState 4 DoEvents Loop result_str = objIE.document.links(20).href Cells(i, 2).Value = Mid(result_str, Application.WorksheetFunction.Find("lat=", result_str, 1) + 4, 11) Cells(i, 3).Value = Mid(result_str, Application.WorksheetFunction.Find("lon=", result_str, 1) + 4, 12) Next i End Sub そうですね。けちをつけてすみませんでした。
ところで、今日ひまだったので、私もhttp://map.yahoo.co.jp/のﾍﾟｰｼﾞから
経度・緯度をExcel表に書き込むVBAを別の手法で作ってみました。
VBから、「CreateObject(“InternetExplorer.Application”)」で、ブラウザーを操作して、表示内容を取り込む手法です。IE6.0でないとだめみたいです。
http://www.happy2-island.com/vbs/cafe02/capter00701.shtml
を参考にしました。
以下ソースです。
Sub ie_set()
Set objIE = CreateObject(“InternetExplorer.application”)
objIE.Visible = True
Range(Cells(1, 2), Cells(Range(“A65536″).End(xlUp).Row, 3)).Cells.Value = “”
For i = 1 To Range(“A65536″).End(xlUp).Row Step 1
address = Cells(i, 1).Value
objIE.navigate “http://map.yahoo.co.jp/”
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.readyState 4
DoEvents
Loop
Title = objIE.LocationName
‘MsgBox strTitle
objIE.document.forms(1).Item(“search_module__qbox”).Value = address
objIE.document.forms(1).Item(“search_module__pbox”).Value = address
objIE.document.forms(1).Item(“search_module__bexec”).Click
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.readyState 4
DoEvents
Loop
chk = objIE.LocationName
Do While chk = Title
chk = objIE.LocationName
DoEvents
Loop
Title = objIE.LocationName
Do While objIE.Busy = True
DoEvents
Loop
Do While objIE.readyState 4
DoEvents
Loop
result_str = objIE.document.links(20).href
Cells(i, 2).Value = Mid(result_str, Application.WorksheetFunction.Find(“lat=”, result_str, 1) + 4, 11)
Cells(i, 3).Value = Mid(result_str, Application.WorksheetFunction.Find(“lon=”, result_str, 1) + 4, 12)
Next i
End Sub

]]> admin より http://www.simple-sys.com/blog/2008/04/06/301/comment-page-1/#comment-63 admin Tue, 13 May 2008 05:26:15 +0000 http://www.simple-sys.com/blog/?p=301#comment-63 YONさん、コメントありがとうございます(＾＾) 私自身APIを使用する上での規約は自分なりの解釈でしかないので、正しいかどうかは不明です。 ひょっとしたら、APIを用いてローカルでExcel上で取り込んでも問題ないのかもしれません。 詳細はYahoo！さんまたはGoogleさんにご確認ください。 YONさん、コメントありがとうございます(＾＾)

私自身APIを使用する上での規約は自分なりの解釈でしかないので、正しいかどうかは不明です。
ひょっとしたら、APIを用いてローカルでExcel上で取り込んでも問題ないのかもしれません。
詳細はYahoo！さんまたはGoogleさんにご確認ください。

]]> YON より http://www.simple-sys.com/blog/2008/04/06/301/comment-page-1/#comment-62 YON Tue, 13 May 2008 04:35:38 +0000 http://www.simple-sys.com/blog/?p=301#comment-62 　　API利用の規約についての解釈が釈然としません。 この例でも、結局、Yahoo!地図情報のﾍﾟｰｼﾞを仲介して、Yahooのｻｰﾋﾞｽで緯度・経度を表示させ、勝手に自分のローカルなエクセルにデータを取り込んでいるではないですか？ 　Excel→API→Excel　は、だめでも 　Excel→WebページでAPI発行→Webページの結果→Excel　なら 規約違反にならないという解釈なら、そもそもExcelやVBからは直接 APIを発行出来ない（できるのかしら？）ので、YahooやGoogleの提供 ｻｰﾋﾞｽの結果をローカルなExcelファイルに取り込んではならないこと になりませんか。 　ちなみに私は、ローカルなWebページ（単なるHTMLファイル）を作って その中にGoogleMapのAPI利用したJavaScriptを作っておき、Excelから VBでそのﾍﾟｰｼﾞを操作して、自分のExcel表に緯度・経度を取り込んでいます。これって規約に反するのでしょうか？自分のExcelで利用するためには、このローカルなWebページをインターネット公開するだけでよいのかしら？ インターネット公開するだけで、自分のExcelで使ってよくなるのでしょうか？ 　　API利用の規約についての解釈が釈然としません。
この例でも、結局、Yahoo!地図情報のﾍﾟｰｼﾞを仲介して、Yahooのｻｰﾋﾞｽで緯度・経度を表示させ、勝手に自分のローカルなエクセルにデータを取り込んでいるではないですか？
　Excel→API→Excel　は、だめでも
　Excel→WebページでAPI発行→Webページの結果→Excel　なら
規約違反にならないという解釈なら、そもそもExcelやVBからは直接
APIを発行出来ない（できるのかしら？）ので、YahooやGoogleの提供
ｻｰﾋﾞｽの結果をローカルなExcelファイルに取り込んではならないこと
になりませんか。
　ちなみに私は、ローカルなWebページ（単なるHTMLファイル）を作って
その中にGoogleMapのAPI利用したJavaScriptを作っておき、Excelから
VBでそのﾍﾟｰｼﾞを操作して、自分のExcel表に緯度・経度を取り込んでいます。これって規約に反するのでしょうか？自分のExcelで利用するためには、このローカルなWebページをインターネット公開するだけでよいのかしら？
インターネット公開するだけで、自分のExcelで使ってよくなるのでしょうか？

]]>