{"height":"190","author_name":"shikaku","provider_url":"https://hatena.blog","url":"https://blog.systemjp.net/entry/2019/11/28/183550","image_url":null,"blog_url":"https://blog.systemjp.net/","width":"100%","blog_title":"shikaku's blog","published":"2019-11-28 18:35:50","provider_name":"Hatena Blog","title":"vba\u3067csv\u30d5\u30a1\u30a4\u30eb\u51fa\u529b","version":"1.0","categories":["excelvba"],"author_url":"https://blog.hatena.ne.jp/shikaku/","type":"rich","description":"\u30b7\u30fc\u30c81\u756a\u76ee\u306e\u5185\u5bb9\u3092CSV\u30d5\u30a1\u30a4\u30eb\u3067\u51fa\u529b\u3059\u308b\u65b9\u6cd5 Sub writeCSV() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) Dim csvFile As String csvFile = ActiveWorkbook.Path & \"\\data.csv\" Open csvFile For Output As #1 Dim i As Long, j As Long i = 1 Do While ws.Cells(i, 1).Value <> \"\" j = 1 Do While ws.Cells(i, j + 1).Value <\u2026","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2019%2F11%2F28%2F183550\" title=\"vba\u3067csv\u30d5\u30a1\u30a4\u30eb\u51fa\u529b - 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>"}