{"provider_url":"https://hatena.blog","version":"1.0","provider_name":"Hatena Blog","url":"https://blog.systemjp.net/entry/2019/11/28/183550","title":"vba\u3067csv\u30d5\u30a1\u30a4\u30eb\u51fa\u529b","type":"rich","blog_title":"shikaku's blog","author_url":"https://blog.hatena.ne.jp/shikaku/","published":"2019-11-28 18:35:50","author_name":"shikaku","blog_url":"https://blog.systemjp.net/","image_url":null,"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>","width":"100%","categories":["excelvba"],"height":"190"}