{"id":2318,"date":"2022-04-24T21:35:29","date_gmt":"2022-04-24T12:35:29","guid":{"rendered":"http:\/\/oreoreki.gotdns.ch\/?p=2318"},"modified":"2022-04-29T16:50:58","modified_gmt":"2022-04-29T07:50:58","slug":"post-2318","status":"publish","type":"post","link":"http:\/\/oreoreki.gotdns.ch\/?p=2318","title":{"rendered":"VBA100\u672c\u30ce\u30c3\u30af\u306e100\u672c\u76ee\u3092\u3084\u3063\u3066\u307f\u305f"},"content":{"rendered":"<p>VBA100\u672c\u30ce\u30c3\u30af\u306e100\u672c\u76ee\u3092\u3084\u3063\u3066\u307f\u305f\u3002<\/p>\r\n<p><span class=\"embed-youtube\" style=\"text-align:center; display: block;\"><iframe loading=\"lazy\" class=\"youtube-player\" width=\"750\" height=\"422\" src=\"https:\/\/www.youtube.com\/embed\/-nJIFJOQbtE?version=3&#038;rel=1&#038;showsearch=0&#038;showinfo=1&#038;iv_load_policy=1&#038;fs=1&#038;hl=ja&#038;autohide=2&#038;wmode=transparent\" allowfullscreen=\"true\" style=\"border:0;\" sandbox=\"allow-scripts allow-same-origin allow-popups allow-presentation allow-popups-to-escape-sandbox\"><\/iframe><\/span><\/p>\r\n\r\n<div class=\"hcb_wrap\">VBA\u3067\u4f5c\u3063\u305f\u307f\u305f\u3002\r\n<pre class=\"prism line-numbers lang-ts\" data-lang=\"TypeScript\"><code>Sub Macro1()\r\n    'IE\u3092\u8d77\u52d5\u3059\u308b\r\n    Dim objIE As InternetExplorer\r\n    Set objIE = New InternetExplorer\r\n    'IE\u306e\u4f4d\u7f6e\u30fb\u5927\u304d\u3055\u306e\u8a2d\u5b9a\u3001IE\u3092\u8868\u793a\r\n    objIE.Top = 10: objIE.Left = 6160: objIE.Width = 800: objIE.Height = 900\r\n    objIE.Visible = True\r\n    \r\n    objIE.Navigate \"https:\/\/excel-ubara.com\/vba100sample\/vba100list.html\"\r\n    Call untilReady(objIE)\r\n    'VBA100\u672c\u30ce\u30c3\u30af\u76ee\u6b21\u306etable\u3092\u3068\u3063\u3066\u304f\u308b\r\n    Set objTable = objIE.Document.getElementsBytagname(\"table\")\r\n    x_html = objTable(0).outerHTML\r\n    'IE\u3092\u9589\u3058\u308b\r\n    objIE.Quit\r\n    Set objIE = Nothing\r\n    \r\n    '\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\r\n    Dim CB As New DataObject\r\n    CB.SetText x_html\r\n    CB.PutInClipboard\r\n    'Sheet1\u306b\u30da\u30fc\u30b9\u30c8\u3059\u308b\r\n    Set oSheet = ThisWorkbook.Worksheets(1)\r\n    oSheet.Range(\"A1\").PasteSpecial Paste\r\nEnd Sub\r\nSub untilReady(objIE As Object)\r\n    Do While objIE.Busy = True Or objIE.ReadyState &lt;&gt; 4\r\n        DoEvents\r\n    Loop\r\nEnd Sub\r\n<\/code><\/pre>\r\n<\/div>\r\n\r\n<h2><\/h2>\r\n<div class=\"hcb_wrap\">DOS\u30d0\u30c3\u30c1\u30fbVBScript\u3067\u4f5c\u3063\u305f\u307f\u305f\u3002\r\n<pre class=\"prism line-numbers lang-ts\" data-lang=\"TypeScript\"><code>&lt;!-- :\r\n@%windir%\\System32\\cscript.exe \/\/nologo \"%~f0?.wsf\"\r\n@exit \/b %errorlevel%\r\n--&gt;\r\n&lt;job&gt;\r\n&lt;script language=\"VBScript\"&gt;\r\n\t'\u3053\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u3042\u308b\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u3092\u30ab\u30ec\u30f3\u30c8\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306b\r\n\tSet objShell = Wscript.CreateObject(\"WScript.shell\")\r\n\tSet fso      = Wscript.CreateObject(\"Scripting.FileSystemObject\")\r\n\tCurrentDirectory = fso.getParentFolderName(WScript.ScriptFullName)\r\n\r\n\t'IE\u3092\u8d77\u52d5\u3059\u308b\r\n\tDim objIE\r\n\tSet objIE = WScript.CreateObject(\"InternetExplorer.Application\")\r\n\r\n\t'IE\u306e\u4f4d\u7f6e\u30fb\u5927\u304d\u3055\u306e\u8a2d\u5b9a\u3001IE\u3092\u8868\u793a\r\n\tobjIE.Top = 10: objIE.Left = 6160: objIE.Width = 800: objIE.Height = 900\r\n\tobjIE.Visible = True\r\n\r\n\tobjIE.Navigate \"https:\/\/excel-ubara.com\/vba100sample\/vba100list.html\"\r\n\tCall untilReady(objIE)\r\n\t'VBA100\u672c\u30ce\u30c3\u30af\u76ee\u6b21\u306etable\u3092\u3068\u3063\u3066\u304f\u308b\r\n\tSet objTable = objIE.Document.getElementsBytagname(\"table\")\r\n\tx_html = objTable(0).outerHTML\r\n\t'IE\u3092\u9589\u3058\u308b\r\n\tobjIE.Quit\r\n\tSet objIE = Nothing\r\n\r\n\t'\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\r\n\tobjShell.Exec(\"clip\").StdIn.Write x_html\r\n\r\n\t'Excel\u8d77\u52d5\r\n\tSet oXlsApp = WScript.CreateObject(\"Excel.Application\")\r\n\t'Excel\u306e\u4f4d\u7f6e\u30fb\u5927\u304d\u3055\u306e\u8a2d\u5b9a\u3001Excel\u3092\u8868\u793a\r\n\toXlsApp.Top = 10: oXlsApp.Left = 4460: oXlsApp.Width = 600: oXlsApp.Height = 400\r\n\toXlsApp.Visible = True\r\n\r\n\t'\u65b0\u898f\u306b\u30d6\u30c3\u30af\u3092\u4f5c\u6210\r\n\tSet objWorkbook = oXlsApp.Workbooks.Add\r\n\t'Sheet1\u306b\u30da\u30fc\u30b9\u30c8\u3059\u308b\r\n\tSet oSheet = objWorkbook.Worksheets(1)\r\n\toSheet.Range(\"A1\").PasteSpecial Paste\r\n\t\r\n\t'\u30d6\u30c3\u30af\u3092\u540d\u524d\u3092\u3064\u3051\u3066\u4fdd\u5b58\r\n\toXlsApp.DisplayAlerts = False\r\n\tobjWorkbook.SaveAs(fso.BuildPath(CurrentDirectory,\"test.xlsx\"))\r\n\toXlsApp.DisplayAlerts = True\r\n\r\n\t'Excel\u3092\u9589\u3058\u308b\r\n\toXlsApp.Quit\r\n\tSet oXlsApp = Nothing\r\n\r\n\r\nSub untilReady(objIE)\r\n\t'IE\u304c\u30da\u30fc\u30b8\u3092\u30ed\u30fc\u30c9\u3057\u7d42\u3048\u308b\u306e\u3092\u5f85\u3064\r\n\tDo While objIE.Busy = True Or objIE.ReadyState &lt;&gt; 4\r\n\tWScript.Sleep 1000\r\n\tLoop\r\nEnd Sub\r\n\r\n&lt;\/script&gt;\r\n&lt;\/job&gt;<\/code><\/pre>\r\n<\/div>","protected":false},"excerpt":{"rendered":"<p>VBA100\u672c\u30ce\u30c3\u30af\u306e100\u672c\u76ee\u3092\u3084\u3063\u3066\u307f\u305f\u3002 DOS\u30d0\u30c3\u30c1\u30fbVBScript\u3067\u4f5c\u3063\u305f\u307f\u305f\u3002 &#038;lt [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":2334,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[9],"tags":[],"class_list":["post-2318","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-wsh-jscript"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"http:\/\/oreoreki.gotdns.ch\/wp-content\/uploads\/sites\/2\/2022\/04\/mqdefault.jpg","jetpack_shortlink":"https:\/\/wp.me\/p9WqRX-Bo","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts\/2318","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2318"}],"version-history":[{"count":13,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts\/2318\/revisions"}],"predecessor-version":[{"id":2333,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/posts\/2318\/revisions\/2333"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=\/wp\/v2\/media\/2334"}],"wp:attachment":[{"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2318"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2318"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/oreoreki.gotdns.ch\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2318"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}