{"width":"100%","categories":["VBA\u4e00\u822c","\u3061\u3087\u3044\u66f8\u304d\u30de\u30af\u30ed","\u521d\u5fc3\u8005\u5411\u3051"],"published":"2017-03-07 22:43:15","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/a/akashi_keirin/20170307/20170307221218.jpg","type":"rich","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fakashi-keirin.hatenablog.com%2Fentry%2F2017%2F03%2F07%2F224315\" title=\"\u30c7\u30fc\u30bf\u8ee2\u8a18\u30de\u30af\u30ed - \u7d20\u4eba\u304cExcelVBA\u306b\u3088\u308b\u300c\u4e00\u4eba\u50cd\u304d\u65b9\u6539\u9769\u300d\u306b\u6311\u3080\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":"\u30c7\u30fc\u30bf\u8ee2\u8a18\u30de\u30af\u30ed","author_url":"https://blog.hatena.ne.jp/akashi_keirin/","version":"1.0","url":"https://akashi-keirin.hatenablog.com/entry/2017/03/07/224315","provider_url":"https://hatena.blog","blog_title":"\u7d20\u4eba\u304cExcelVBA\u306b\u3088\u308b\u300c\u4e00\u4eba\u50cd\u304d\u65b9\u6539\u9769\u300d\u306b\u6311\u3080\u30d6\u30ed\u30b0","provider_name":"Hatena Blog","blog_url":"https://akashi-keirin.hatenablog.com/","author_name":"akashi_keirin","description":"VBA\u521d\u5fc3\u8005\u5411\u3051\u30d6\u30ed\u30b0\u307f\u305f\u3044\u306a\u30bf\u30a4\u30c8\u30eb\u306a\u306e\u306b\u3001\u5168\u7136\u521d\u5fc3\u8005\u5411\u3051\u3058\u3083\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u3061\u3087\u3063\u3068\u521d\u5fc3\u8005\u306e\u9803\u3092\u601d\u3044\u51fa\u3057\u3066\u66f8\u304f\u3002 \u79c1\u304cVBA\u306b\u30cf\u30de\u308b\u304d\u3063\u304b\u3051\u306b\u306a\u3063\u305f\u30de\u30af\u30ed\u3067\u3059\u3002 \u3053\u3093\u306a\u500b\u7968\u306e\u30c7\u30fc\u30bf\u3092\u3001 \u3053\u3093\u306a\u96c6\u7d04\u8868\u306b\u8ee2\u8a18\u3057\u3066\u3044\u304f\u3001\u3068\u3044\u3046\u4f5c\u696d\u3067\u3059\u3002 \u96c6\u7d04\u7528\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3068\u3001\u30c7\u30fc\u30bf\u500b\u7968\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306f\u3001\u3053\u306e\u300c\u96c6\u7d04\u30c6\u30b9\u30c8\u300d\u30d5\u30a9\u30eb\u30c0\u306e\u4e2d\u306b\u3001 \u3053\u3093\u306a\u98a8\u306b\u53ce\u307e\u3063\u3066\u3044\u308b\u3068\u3044\u3046\u60f3\u5b9a\u3067\u3002 \u300c\u30c7\u30fc\u30bf\u96c6\u7d04\u7528.xlsm\u300d\u306e\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u66f8\u304f\u3002 Option Explicit Sub sendDataVer1() '\u4f5c\u696d\u30d5\u30a9\u30eb\u30c0\u30d1\u30b9\u3092\u5909\u6570\u306b\u683c\u7d0d Dim folderPath As String folde\u2026"}