hdata1
Sub tst031() Dim fff As String 'ファイルパス Dim objIE As Object 'オブジェクト Dim Myhtml As Variant 'HTMLタグデータ  '制御htmlファイル phn = ThisWorkbook.Path fff = phn & "\" & "f-html\tstie025.html"  'Webページ表示 Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate fff  'ç”»é¢è¡¨ç¤ºå¾…ã¡ Do While objIE.Busy = True DoEvents Loop  Myhtml = objIE.Document.Body.innerHTML objIE.Quit MsgBox Myhtml End Sub
エクセルVBAã§ã®IE上ã®æ–‡å—列å–å¾—ã«ã¤ã„ã¦ã®è³ªå•ã§ã™ã€‚WEB上ã®ä¸Šã‹ã‚‰ï¼”行目ã®æ•°å—ã®æ–‡å—列をå–å¾—ã—セルã«ã‚³ãƒ”ーã—ãŸã„ã®ã§ã™ãŒã€ã„ã‚... - Yahoo!知æµè¢‹
エクセル VBAã§ã®IE上ã®æ–‡å—列å–å¾—ã«ã¤ã„ã¦ã®è³ªå•ã§ã™ã€‚ WEB上ã®ä¸Šã‹ã‚‰ï¼”行目ã®æ•°å—ã®æ–‡å—列をå–å¾—ã—セル㫠コピーã—ãŸã„ã®ã§ã™ãŒã€ã„ã‚ã„ã‚試ã—ã¦ã¿ãŸã®ã§ã™ãŒã‚„ã£ã±ã‚Šæ§‹æ–‡ãŒã‚ã‹ã‚Šã¾ã›ã‚“。 ã©ãªãŸã‹æ•™ãˆã¦ãã ã•ã„ エクセル VBAã§ã®IE上ã®æ–‡å—列å–å¾—ã«ã¤ã„ã¦ã®è³ªå•ã§ã™ã€‚ WEB上ã®ä¸Šã‹ã‚‰ï¼”行目ã®æ•°å—ã®æ–‡å—列をå–å¾—ã—セル㫠コピーã—ãŸã„ã®ã§ã™ãŒã€ã„ã‚ã„ã‚試ã—ã¦ã¿ãŸã®ã§ã™ãŒã‚„ã£ã±ã‚Šæ§‹æ–‡ãŒã‚ã‹ã‚Šã¾ã›ã‚“。 ã©ãªãŸã‹æ•™ãˆã¦ãã ã•ã„ ã¡ãªã¿ã«ã‚½ãƒ¼ã‚¹ã¯ <html> <head> <meta http-equiv="Cache-Control" content="no-cache"> </head> <body> ********<hr> <A name="TOP"></A> <a href="m0002Menu.bean">メニューã¸</a><BR> <a href="M30001-001.bean
1
ランã‚ング
障害
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
{{#tags}}- {{label}}
{{/tags}}