{"categories":["\u30a8\u30af\u30bb\u30eb","VBA"],"description":"PubmedAPI\u3092\u5229\u7528\u3057\u3066\u6587\u732eID\u304b\u3089Abstract\u3084Title\u3092\u8aad\u307f\u8fbc\u3080Function Sub Pubmed2() 'Function\u306e\u4f7f\u3044\u65b9 Dim arr As Variant, PubmedID As Long '\u60c5\u5831\u3092\u53d6\u308a\u51fa\u3057\u305f\u3044PubmedID PubmedID = 2644239 arr = GetTitle(PubmedID) MsgBox \" Abstract \" & arr(1) MsgBox \" Title \" & arr(2) End Sub Function GetTitle(PMID As Long) As String() 'Microsoft XML. v\u2026","provider_name":"Hatena Blog","author_name":"DuKicco","published":"2016-11-16 23:05:34","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fdukicco.hatenadiary.jp%2Fentry%2F2016%2F11%2F16%2F230534\" title=\"\u30a8\u30af\u30bb\u30eb,VBA,xml,Pubmed,API,abstract,Title - DuKicco\u306e\u96d1\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/DuKicco/","blog_url":"https://dukicco.hatenadiary.jp/","version":"1.0","provider_url":"https://hatena.blog","title":"\u30a8\u30af\u30bb\u30eb,VBA,xml,Pubmed,API,abstract,Title","image_url":null,"type":"rich","blog_title":"DuKicco\u306e\u96d1\u8a18","height":"190","url":"https://dukicco.hatenadiary.jp/entry/2016/11/16/230534"}