Results of 1 - 1 of about 1240 for カレンダー (0.001 sec.)
- [[20140205170451]]
- #score: 6122
- @digest: ef2c191f6d5eef95e0e3f04e5e9541a9
- @id: 64446
- @mdate: 2014-02-06T05:16:55Z
- @size: 1803
- @type: text/plain
- #keywords: themejp (23246), getelementsbytagname (9608), innerhtml (9264), calendar (8264), getcalendar (7748), ー描 (7323), plugins (7005), ジ全 (6984), swait (4054), ー部 (3509), 画し (2362), カレ (2257), sleep (1976), readystate (1908), navigate (1651), dwmilliseconds (1639), internetexplorer (1542), が認 (1510), 記サ (1467), レン (1405), 描画 (1389), リプ (1316), wend (1312), kernel32 (1301), ンダ (1238), content (1230), 決法 (1175), ダー (1147), プト (993), obj (960), クエ (948), document (934)
- 『WEBクエリで表が認識されず取り込めない』（mfree）
下記サンプルサイトよりカレンダーを取り込みたいのですが、 ページ全体が認識され、カレンダー部の表が認識されません。 http://themejp.com/ またページ全体を取り込んだ場合、カレンダー部のデータは取り込めません。 どなたか解決法を教えて下さい。 ＜ 使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- ご指定のURL自身はカレンダー描画しておらず、JAVAスクリプトの、 http://themejp.com/wp-content/plugins/biz-calendar/calendar.js の中のgetCalendar()で描画していますね。 ご自身でcalendar.jsを作成したのならば、必要なパラメータは分かりそうですが、 そうでないならば厳しいかも。 しかし、カレンダーが得たいだけならば、わざわざ取り込まなくとも、VBA自身で…。 （???） 2014/02/05(水) 18:22 ---- Webクエリを使わず、IEオブジェクトを利用してデータを抜き出す例。 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub test() Dim IE As Object Dim i As Long Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.Navigate "http://themejp.com/" Call sWait(IE) With IE.Document Range("A1") = .all(1).getElementsByTagName("td")(0).innerhtml For i = 0 To 6 Cells(2, i + 1).Value = .all(1).getElementsByTagName("th")(i).innerhtml Next i For i = 4 To .all(1).getElementsByTagName("td").Length - 1 Cells(3 + Int((i - 4) / 7), 1 + (i - 4) Mod 7).Value = .all(1).getElementsByTagName("td")(i).innerhtml Next i End With IE.Quit Set IE = Nothing End Sub Sub sWait(OBJ As Object) Sleep 1000 While OBJ.readyState <> 4 While OBJ.Busy = True DoEvents Sleep 100 Wend Wend Sleep 1000 End Sub （???） 2014/02/06(木) 14:15... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201402/20140205170451.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97028 documents and 608171 words.
訪問者：