{"id":4858,"date":"2020-09-08T18:55:47","date_gmt":"2020-09-08T09:55:47","guid":{"rendered":"http:\/\/kats-eye.net\/info\/?p=4858"},"modified":"2020-09-11T10:56:52","modified_gmt":"2020-09-11T01:56:52","slug":"vba-ie-cont","status":"publish","type":"post","link":"https:\/\/kats-eye.net\/info\/2020\/09\/08\/vba-ie-cont\/","title":{"rendered":"VBA\u3067WEB\u691c\u7d22\uff08IE\u64cd\u4f5c\uff09"},"content":{"rendered":"\n<h2 class=\"has-text-color\" style=\"color:#0000ff\">\u6982\u8981<\/h2>\n\n\n\n<p>\u3000\u30a8\u30af\u30bb\u30ebVBA\u304b\u3089\u3001\uff29\uff25\uff08\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u30fc\uff09\u3092\u4f7f\u3063\u3066\u3001\u30db\u30fc\u30e0\u30da\u30fc\u30b8\u3092\u958b\u304d\u3001\u30c7\u30fc\u30bf\u691c\u7d22\u306a\u3069\u306e\u64cd\u4f5c\u3059\u308b\u6642\u306e\u30e1\u30e2\u3067\u3059\u3002<br><\/p>\n\n\n\n<h2 class=\"has-text-color\" style=\"color:#0000ff\">\u6210\u679c\u7269<\/h2>\n\n\n\n<p>\uff08\uff11\uff09\u66f8\u7c4d\u691c\u7d22<\/p>\n\n\n\n<p>\u3000\u4e0b\u306e\u56f3\u306f\u3001\u30a8\u30af\u30bb\u30eb\u30b7\u30fc\u30c8\u306e\u9ec4\u8272\u90e8\u5206\u306b\u30ad\u30fc\u30ef\u30fc\u30c9\u3092\u5165\u529b\u3057\u3001\u691c\u7d22\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u5b9f\u969b\u306b\u5e02\u8ca9\u3055\u308c\u3066\u3044\u308b\u66f8\u7c4d\u3092\u691c\u7d22\u3057\u3001\u30bf\u30a4\u30c8\u30eb\u3068\u4fa1\u683c\u3092\u8868\u306b\u51fa\u529b\u3059\u308b\u3082\u306e\u3067\u3059\u3002<br>\u3000\u5177\u4f53\u7684\u540d\u79f0\u7b49\u306f\u7701\u7565\u3057\u307e\u3059\u304c\u3001\u5b9f\u969b\u306b\u3042\u308b\u67d0\u66f8\u5e97\u306e\u691c\u7d22\u30da\u30fc\u30b8\u3092\u958b\u304d\u3001\u30ad\u30fc\u30ef\u30fc\u30c9\u5165\u529b\u30fb\u691c\u7d22\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u5f97\u3089\u308c\u308b\u7d50\u679c\u304b\u3089\u3001\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-large\"><img loading=\"lazy\" width=\"880\" height=\"568\" src=\"https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/001.png\" alt=\"\" class=\"wp-image-4862\" srcset=\"https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/001.png 880w, https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/001-300x194.png 300w, https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/001-768x496.png 768w\" sizes=\"(max-width: 880px) 100vw, 880px\" \/><\/figure>\n\n\n\n<p>\uff08\uff12\uff09\u82f1\u5358\u8a9e\u691c\u7d22<\/p>\n\n\n\n<p>\u3000\u6b21\u306e\u56f3\u306f\u3001\u30a8\u30af\u30bb\u30eb\u30b7\u30fc\u30c8\u306e\u6700\u5de6\u5217\u306b\u8907\u6570\u306e\u82f1\u5358\u8a9e\u3092\u5165\u529b\u3057\u3001\u691c\u7d22\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068(1)\u540c\u69d8\u306b\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u30fc\u3067\u691c\u7d22\u30b5\u30a4\u30c8\u3092\u958b\u304d\u3001\u610f\u5473\u3092\u53d6\u5f97\u3057\u8868\u793a\u3059\u308b\u3082\u306e\u3067\u3059\u3002<\/p>\n\n\n\n<figure class=\"wp-block-image size-large\"><img loading=\"lazy\" width=\"814\" height=\"333\" src=\"https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/002.png\" alt=\"\" class=\"wp-image-4864\" srcset=\"https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/002.png 814w, https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/002-300x123.png 300w, https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/002-768x314.png 768w\" sizes=\"(max-width: 814px) 100vw, 814px\" \/><\/figure>\n\n\n\n<p>\u3000\u3000\u3000<\/p>\n\n\n\n<h2 class=\"has-text-color\" style=\"color:#0000ff\">\u53c2\u7167\u8a2d\u5b9a<\/h2>\n\n\n\n<p>\u3000\u5148\u305a\u6e96\u5099\u3068\u3057\u3066\u3001\u53c2\u7167\u8a2d\u5b9a\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<br>\u3000\u2460 Microsoft   HTML Object Library<br>\u3000\u2461 Microsoft Internet Controls<\/p>\n\n\n\n<figure class=\"wp-block-image size-large\"><img loading=\"lazy\" width=\"473\" height=\"329\" src=\"https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/003.png\" alt=\"\" class=\"wp-image-4866\" srcset=\"https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/003.png 473w, https:\/\/kats-eye.net\/info\/wp-content\/uploads\/2020\/09\/003-300x209.png 300w\" sizes=\"(max-width: 473px) 100vw, 473px\" \/><figcaption>\u3000\u3000\u3000<\/figcaption><\/figure>\n\n\n\n<h2 class=\"has-text-color\" style=\"color:#0000ff\">\u30d7\u30ed\u30b0\u30e9\u30e0<\/h2>\n\n\n\n<p>\u3000\u691c\u7d22\u306f\u30db\u30fc\u30e0\u30da\u30fc\u30b8\u306e\u30bf\u30b0\u540d\u3001\u30af\u30e9\u30b9\u540d\u7b49\u3092\u5229\u7528\u3057\u3066\u60c5\u5831\u3092\u53d6\u5f97\u3057\u3066\u3044\u307e\u3059\u3002\u4e88\u3081\u30d6\u30e9\u30a6\u30b6\u30fc\u306e\u691c\u8a3c\u6a5f\u80fd\u7b49\u3092\u5229\u7528\u3057\u3001\uff28\uff34\uff2d\uff2c\u4e0a\u306b\u30c7\u30fc\u30bf\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u308b\u5834\u6240\u3068\u30c7\u30fc\u30bf\u53d6\u5f97\u65b9\u6cd5\u306a\u3069\u3092\u78ba\u8a8d\u3057\u3066\u304a\u304f\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n<p> \uff08\uff11\uff09\u66f8\u7c4d\u691c\u7d22 <\/p>\n\n\n<pre class=\"height-set:true lang:default decode:true  \">'\u30b7\u30fc\u30c8\u5074\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\nPrivate Sub CommandButton1_Click()<br>    Call ie_search_book_info<br>End Sub\n\n\n'\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\nOption Explicit \n#If Win64 Then \n    Public Declare PtrSafe Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long) \n#Else\n    Public Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long) \n#End If\n\nPublic Sub ie_search_book_info()\n    Dim objIE As InternetExplorer\n    Dim objtag As Object\n    Dim objTmp As Object\n    \n    Dim timeOut As Date\n    Dim tmp, sht\n    Dim book_name\n    Dim book_info\n    Dim bookPrice\n    Dim cnt\n\n    sht = ActiveSheet.Name\n    Worksheets(sht).Range(\"A5:B200\").ClearContents\n    book_name = Trim(Worksheets(sht).Cells(2, 1).Value)\n    \n\nOn Error GoTo errHandler\n\n    Set objIE = CreateObject(\"InternetExplorer.Application\")        ' IE\uff75\uff8c\uff9e\uff7c\uff9e\uff6a\uff78\uff84\u4f5c\u6210\n    objIE.Visible = True                                            ' IE\u8d77\u52d5\n    objIE.navigate \"&lt;\u7701\u7565\uff1a\u691c\u7d22\u30b5\u30a4\u30c8\uff35\uff32\uff2c&gt;\"\n\n    ' \u5b8c\u5168\u306b\u8868\u793a\u3055\u308c\u308b\u307e\u3067\u5f85\u6a5f\n    timeOut = Now + TimeSerial(0, 0, 20)\n    Do While objIE.Busy = True Or objIE.readyState &lt;&gt; 4\n        DoEvents\n        Sleep 1\n        \n        If Now &gt; timeOut Then\n            objIE.Refresh\n            timeOut = Now + TimeSerial(0, 0, 20)\n        End If\n    Loop\n    \n    ' \u66f8\u7c4d\u540d\u3092\u8a2d\u5b9a\n    For Each objtag In objIE.document.getElementsByTagName(\"input\")\n        If objtag.getAttribute(\"class\") = \"[\u7701\u7565\uff1a\u30af\u30e9\u30b9\u540d]\" Then\n             objtag.innerText = book_name\n             Exit For\n        End If\n    Next\n    \n    ' \u691c\u7d22\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\n    For Each objtag In objIE.document.getElementsByTagName(\"input\")\n        If objtag.getAttribute(\"class\") = \"[\u7701\u7565\uff1a\u30af\u30e9\u30b9\u540d]\" Then\n             objtag.Click\n             Exit For\n        End If\n    Next\n\n    Sleep (200)\n    \n    ' \u5b8c\u5168\u306b\u8868\u793a\u3055\u308c\u308b\u307e\u3067\u5f85\u6a5f\n    timeOut = Now + TimeSerial(0, 0, 20)\n    Do While objIE.Busy = True Or objIE.readyState &lt;&gt; 4\n        DoEvents\n        Sleep 1\n        If Now &gt; timeOut Then\n            objIE.Refresh\n            timeOut = Now + TimeSerial(0, 0, 20)\n        End If\n    Loop\n    \n    Sleep (500)\n    \n    ' \u691c\u7d22\u7d50\u679c\u304b\u3089\u3001\u66f8\u7c4d\u540d\u30fb\u4fa1\u683c\u3092\u53d6\u5f97\n    cnt = 0\n    For Each objtag In objIE.document.getElementsByTagName(\"div\")\n        tmp = objtag.getAttribute(\"class\")\n    \n        If InStr(tmp, \"[\u7701\u7565\uff1a\u30af\u30e9\u30b9\u540d]\") &gt; 0 Then\n             \n            book_info = objtag.getElementsByTagName(\"h3\")(0).innerText\n            bookPrice = \"\"\n            \n            For Each objTmp In objtag.getElementsByTagName(\"span\")\n                If objTmp.getAttribute(\"class\") = \"[\u7701\u7565\uff1a\u30af\u30e9\u30b9\u540d]\" Then\n                    bookPrice = objTmp.innerText\n                End If\n            Next\n             \n            Worksheets(sht).Cells(5 + cnt, 1).Value = book_info\n            Worksheets(sht).Cells(5 + cnt, 2).Value = bookPrice\n             \n            cnt = cnt + 1\n        \n        End If\n    Next\n\n   \n    \n    objIE.Quit                                                      ' IE\u3092\u9589\u3058\u308b\n    Set objIE = Nothing\n\n    Exit Sub\n    \n' \uff74\uff97\uff70\u51e6\u7406\nerrHandler:\n    objIE.Quit\n    Set objIE = Nothing\n    \n    On Error GoTo 0\n    \nEnd Sub<\/pre>\n<p><\/p>\n\n\n<p> \uff08\uff12\uff09\u82f1\u5358\u8a9e\u691c\u7d22 <\/p>\n\n\n<pre class=\"height-set:true lang:default decode:true   \">'\u30b7\u30fc\u30c8\u5074\u30b3\u30de\u30f3\u30c9\u30dc\u30bf\u30f3\nPrivate Sub CommandButton1_Click()\n    Dim sht, wrd\n    Dim cnt\n    Dim ret\n    \n    sht = ActiveSheet.Name\n    cnt = 0\n    \n    Do\n        wrd = Trim(Worksheets(sht).Cells(5 + cnt, 1).Value)\n        If wrd = \"\" Then Exit Do\n        \n        wrd = StrConv(StrConv(wrd, 8), 2)\n        ret = ie_search_e_word(wrd)\n\n        Worksheets(sht).Cells(5 + cnt, 2).Value = ret\n        DoEvents\n        cnt = cnt + 1\n    Loop\nEnd Sub\n\n'\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\u203b\nOption Explicit\n\n#If Win64 Then\n    Public Declare PtrSafe Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)\n    \n    '\/\/ \u6307\u5b9aURL\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\n    Public Declare PtrSafe Function URLDownloadToFile Lib \"urlmon\" Alias \"URLDownloadToFileA\" (ByVal pCaller As Long, _\n        ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long\n    '\/\/ \u30ad\u30e3\u30c3\u30b7\u30e5\u30af\u30ea\u30a2\n    Public Declare PtrSafe Function DeleteUrlCacheEntry Lib \"wininet\" Alias \"DeleteUrlCacheEntryA\" (ByVal lpszUrlName As String) As Long\n#Else\n    Public Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)\n\n    '\/\/ \u6307\u5b9aURL\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\n    Public Declare Function URLDownloadToFile Lib \"urlmon\" Alias \"URLDownloadToFileA\" (ByVal pCaller As Long, _\n        ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long\n    '\/\/ \u30ad\u30e3\u30c3\u30b7\u30e5\u30af\u30ea\u30a2\n    Public Declare Function DeleteUrlCacheEntry Lib \"wininet\" Alias \"DeleteUrlCacheEntryA\" (ByVal lpszUrlName As String) As Long\n#End If\n\n\n' \u5358\u8a9e\u691c\u7d22\nPublic Function ie_search_e_word(s_word)\n    Dim objIE As InternetExplorer\n    Dim objtag As Object\n    Dim timeOut As Date\n    Dim tmp\n    Dim ret\n    Dim cntnt(2)\n    \nOn Error GoTo errHandler\n    ie_search_e_word = \"\"\n    \n    Set objIE = CreateObject(\"InternetExplorer.Application\")        ' IE\uff75\uff8c\uff9e\uff7c\uff9e\uff6a\uff78\uff84\u4f5c\u6210\n    objIE.Visible = True                                            ' IE\u8d77\u52d5\n    objIE.navigate \"&lt;\u7701\u7565\uff1a\u691c\u7d22\u30b5\u30a4\u30c8\uff35\uff32\uff2c&gt;\" + s_word       ' \u5358\u8a9e\u3092\u691c\u7d22\u3059\u308b\n\n    ' \u5b8c\u5168\u306b\u8868\u793a\u3055\u308c\u308b\u307e\u3067\u5f85\u6a5f\n    timeOut = Now + TimeSerial(0, 0, 20)\n    Do While objIE.Busy = True Or objIE.readyState &lt;&gt; 4\n        DoEvents\n        Sleep 1\n        \n        If Now &gt; timeOut Then\n            objIE.Refresh\n            timeOut = Now + TimeSerial(0, 0, 20)\n        End If\n    Loop\n    \n    ' \u4e3b\u306a\u610f\u5473\u53d6\u5f97\n    For Each objtag In objIE.document.getElementsByTagName(\"td\")\n        tmp = objtag.outerHTML\n        If InStr(tmp, \"[\u7701\u7565\uff1a\u30af\u30e9\u30b9\u540d]\") &gt; 0 Then\n            cntnt(0) = objtag.innerText\n            Exit For\n        End If\n    Next\n    \n    ie_search_e_word = cntnt(0)\n    \n    ' \u97f3\u58f0\u30d5\u30a1\u30a4\u30eb\u53d6\u5f97\n    For Each objtag In objIE.document.getElementsByTagName(\"[\u7701\u7565]\")(0).getElementsByTagName(\"[\u7701\u7565]\")\n        cntnt(1) = objtag.getAttribute(\"[\u7701\u7565]\")                       ' URL\u53d6\u5f97\n        Exit For\n    Next\n    \n\n    \n    ' \u97f3\u58f0\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\n    ret = -1\n    If cntnt(1) &lt;&gt; \"\" Then\n        If Right(cntnt(1), 4) = \".mp3\" Then\n            cntnt(2) = \"[\u7701\u7565]\" + s_word + Right(cntnt(1), 4)\n            Call DeleteUrlCacheEntry(cntnt(1))                          ' \u30ad\u30e3\u30c3\u30b7\u30e5\u30af\u30ea\u30a2\n            ret = URLDownloadToFile(0, cntnt(1), cntnt(2), 0, 0)        ' \u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\n        End If\n    End If\n    \n    objIE.Quit                                                      ' IE\u3092\u9589\u3058\u308b\n    Set objIE = Nothing\n\n    Exit Function\n    \n' \uff74\uff97\uff70\u51e6\u7406\nerrHandler:\n    objIE.Quit\n    Set objIE = Nothing\n    \n    On Error GoTo 0\n    \nEnd Function\n<\/pre>\n<p><\/p>\n\n\n<h2 class=\"has-text-color\" style=\"color:#0000ff\">\u30af\u30ea\u30c3\u30af\u51e6\u7406<\/h2>\n\n\n\n<p>\u3000\uff08\uff11\uff09\u66f8\u7c4d\u691c\u7d22 \u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u884c\u756a\uff15\uff19\u306e\u69d8\u306b\u30d6\u30e9\u30a6\u30b6\u5185\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u51e6\u7406\u3092\u9032\u3081\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\u4eca\u56de\u306e\u5834\u5408\u306f\u7279\u306b\u554f\u984c\u306f\u3042\u308a\u307e\u305b\u3093\u304c\u3001\u6700\u7d42\u78ba\u8a8d\u3084\u5165\u529b\u5185\u5bb9\u30c1\u30a7\u30c3\u30af\u7d50\u679c\u306a\u3069\u3092\u30e1\u30c3\u30bb\u30fc\u30b8\u30dc\u30c3\u30af\u30b9\u3067\u8868\u793a\u3059\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\u305d\u306e\u5834\u5408\u3001\u275bOK\u275c\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u306a\u3069\u3057\u3066\u3001\u30e1\u30c3\u30bb\u30fc\u30b8\u30dc\u30c3\u30af\u30b9\u3092\u6d88\u3059\u307e\u3067VBA\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u5148\u306b\u9032\u307f\u307e\u305b\u3093\u3002<br>\u3000\u6b21\u306e\u884c\u756a\uff11\uff13\u306e\u69d8\u306b javascript \u3067\u30af\u30ea\u30c3\u30af\u3092\u3059\u308b\u3053\u3068\u3067VBA\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u505c\u6b62\u3057\u307e\u305b\u3093\u3002\u6b21\u306b\u30e1\u30c3\u30bb\u30fc\u30b8\u30dc\u30c3\u30af\u30b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u3092\u53d6\u5f97\u3057\u3001SendMessage \u3067\u30af\u30ea\u30c3\u30af\u76f8\u5f53\u51e6\u7406\u3092\u884c\u3044\u3001\u30e1\u30c3\u30bb\u30fc\u30b8\u30dc\u30c3\u30af\u30b9\u3092\u6d88\u3059\u3053\u3068\u304c\u51fa\u6765\u307e\u3059\u3002<\/p>\n\n\n<pre class=\"height-set:true lang:default decode:true \">Declare Function FindWindow Lib \"user32.dll\" Alias \"FindWindowA\" _  \n    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  \nDeclare Function SendMessage Lib \"user32.dll\" Alias \"SendMessageA\" _  \n    (ByVal hwnd As Long, ByVal msg As Long, _  \n     ByVal wParam As Long, ByVal lParam As Long) As Long  \n \nConst WM_COMMAND = &amp;H111\n\n'********************************************************************\n\nDim hwnd As Long\n\nobjIE.Document.Script.setTimeout \"javascript:document.getElementByName('[\u7701\u7565]')(0).click()\", 200\n\nhwnd = FindWindow(\"#32770\", \"Web\u3000\u30da\u30fc\u30b8\u304b\u3089\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\")\n\nWhile hwnd = 0\n   DoEvents\n   Sleep 1\n   hwnd = FindWindow(\"#32770\", \"Web\u3000\u30da\u30fc\u30b8\u304b\u3089\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\")\nWend\nSendMessage hwnd , WM_COMMAND, vbOK, ByVal 0&amp;<\/pre>\n<p><\/p>\n\n\n<h2 class=\"has-text-color\" style=\"color:#0000ff\">\u307e\u3068\u3081<\/h2>\n\n\n\n<p>\u3000\u606f\u5b50\u304c\u4e2d\u9ad8\u751f\u306e\u6642\u306b\u52c9\u5f37\u3092\u624b\u4f1d\u3063\u3066\u3001\u82f1\u5358\u8a9e\u3092\u8abf\u3079\u305f\u308a\u3057\u3066\u3044\u307e\u3057\u305f\u3002\u305d\u306e\u6642\u3001\u3053\u306e\u65b9\u6cd5\u3092\u77e5\u3063\u3066\u3044\u308c\u3070\u3001\u3082\u3063\u3068\u697d\u306b\u8abf\u67fb\u3067\u304d\u305f\u3068\u601d\u3044\u307e\u3059\u3002<br>\u3000\u3067\u3082\u3001\u304d\u3063\u3068\u307e\u305f\u4f7f\u3048\u308b\u3053\u3068\u3082\u3042\u308b\u3067\u3057\u3087\u3046\u3002<br><br><br><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u6982\u8981 \u3000\u30a8\u30af\u30bb\u30ebVBA\u304b\u3089\u3001\uff29\uff25\uff08\u30a4\u30f3\u30bf\u30fc\u30cd\u30c3\u30c8\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u30fc\uff09\u3092\u4f7f\u3063\u3066\u3001\u30db\u30fc\u30e0\u30da\u30fc\u30b8\u3092\u958b\u304d\u3001\u30c7\u30fc\u30bf\u691c\u7d22\u306a\u3069\u306e\u64cd\u4f5c\u3059\u308b\u6642\u306e\u30e1\u30e2\u3067\u3059\u3002 \u6210\u679c\u7269 \uff08\uff11\uff09\u66f8\u7c4d\u691c\u7d22 \u3000\u4e0b\u306e\u56f3\u306f\u3001\u30a8\u30af\u30bb\u30eb\u30b7\u30fc\u30c8\u306e\u9ec4\u8272\u90e8\u5206\u306b\u30ad\u30fc\u30ef\u30fc\u30c9\u3092\u5165\u529b\u3057\u3001\u691c &hellip; <a href=\"https:\/\/kats-eye.net\/info\/2020\/09\/08\/vba-ie-cont\/\" class=\"more-link\">\u7d9a\u304d\u3092\u8aad\u3080 <span class=\"screen-reader-text\">VBA\u3067WEB\u691c\u7d22\uff08IE\u64cd\u4f5c\uff09<\/span> <span class=\"meta-nav\">&rarr;<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":4862,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[98],"tags":[144,96,142],"_links":{"self":[{"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/posts\/4858"}],"collection":[{"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/comments?post=4858"}],"version-history":[{"count":41,"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/posts\/4858\/revisions"}],"predecessor-version":[{"id":4981,"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/posts\/4858\/revisions\/4981"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/media\/4862"}],"wp:attachment":[{"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/media?parent=4858"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/categories?post=4858"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kats-eye.net\/info\/wp-json\/wp\/v2\/tags?post=4858"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}