{"image_url":null,"blog_title":"shikaku's blog","provider_url":"https://hatena.blog","version":"1.0","categories":["ExcelVBA"],"title":"ExcelVBA\u3067\u30d6\u30c3\u30af\u306e\u4e00\u89a7\u3092\u53d6\u5f97","height":"190","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F06%2F18%2F102036\" title=\"ExcelVBA\u3067\u30d6\u30c3\u30af\u306e\u4e00\u89a7\u3092\u53d6\u5f97 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"shikaku","width":"100%","author_url":"https://blog.hatena.ne.jp/shikaku/","description":"Sub Sample1() Dim i As Long, tmp As String For i = 1 To Workbooks.Count tmp = tmp & Workbooks(i).Name & vbCrLf Next i MsgBox \"\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30d6\u30c3\u30af\u306f\u3001\" & vbCrLf & tmp & \"\u3067\u3059\" End Sub\u3082\u3057\u304f\u306f Sub Sample2() Dim wb As Workbook, tmp As String For Each wb In Workbooks tmp = tmp & wb.Name & vbCrLf Next wb MsgBox \"\u73fe\u5728\u958b\u3044\u3066\u3044\u308b\u30d6\u2026","type":"rich","blog_url":"https://blog.systemjp.net/","url":"https://blog.systemjp.net/entry/2020/06/18/102036","published":"2020-06-18 10:20:36"}