{"id":1650,"date":"2020-02-03T11:06:29","date_gmt":"2020-02-03T02:06:29","guid":{"rendered":"https:\/\/www.amano-labo.jp\/pages\/?p=1650"},"modified":"2020-02-03T11:06:30","modified_gmt":"2020-02-03T02:06:30","slug":"excel%e3%81%8b%e3%82%89%e8%a1%8c%e3%81%94%e3%81%a8%e3%81%ab%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e5%87%ba%e5%8a%9b","status":"publish","type":"post","link":"https:\/\/www.amano-labo.jp\/pages\/tips\/1650\/","title":{"rendered":"Excel\u304b\u3089\u884c\u3054\u3068\u306b\u30d5\u30a1\u30a4\u30eb\u51fa\u529b"},"content":{"rendered":"
\"\"<\/a><\/div><\/div>\n

\u5e0c\u3067\u3059\u304c\u3001Excel\u30d5\u30a1\u30a4\u30eb\u306b\u3042\u308b\u30c7\u30fc\u30bf\u3092\u884c\u3054\u3068\u306b\u30d5\u30a1\u30a4\u30eb\u3078\u51fa\u529b\u3057\u305f\u3044\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\u79c1\u306e\u5834\u5408\u3001\u3042\u308b\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u306b\u53ce\u96c6\u30c7\u30fc\u30bf\u3092\u6295\u5165\u3059\u308b\u305f\u3081\u3001\u3053\u306e\u4f5c\u696d\u304c\u4e0d\u53ef\u6b20\u3067\u3059\u3002<\/p>\n\n\n\n

\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308b\u3068\u3044\u3046\u306e\u306f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306a\u3089\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u3067\u7c21\u5358\u306b\u3067\u304d\u307e\u3059\u3057\u3001\u90e8\u5206\u7684\u306a\u62bd\u51fa\u3082\u7528\u610f\u3067\u3059\u304c\u3001\u5168\u884c\u3092\u305d\u308c\u305e\u308c\u3068\u306a\u308b\u3068\u9762\u5012\u3067\u3059\u3002<\/p>\n\n\n\n

\u5f53\u7136\u3001\u624b\u4f5c\u696d\u3067\u884c\u3063\u3066\u3044\u3066\u306f\u3084\u3063\u3066\u3044\u3089\u308c\u306a\u3044\u306e\u3067\u3001VBA\u3067\u51e6\u7406\u3057\u3066\u3044\u307e\u3059\u304c\u3001\u5e0c\u306a\u4f5c\u696d\u306e\u305f\u3081\u3001\u6bce\u56de\u3001\u8abf\u3079\u76f4\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u308c\u3082\u7121\u99c4\u306a\u306e\u3067\u3001\u81ea\u5206\u7528\u30e1\u30e2\u3092\u517c\u306d\u3066\u4ee5\u4e0b\u306bVBA\u4f8b\u3092\u3042\u3052\u307e\u3059\u3002<\/p>\n\n\n

\nSub save2File()\n    ' Dim ws As Worksheet\n    ' Set ws = ActiveWorkbook.Worksheets(1)\n    \n    Dim i As Integer\n    i = 2\n    \n    Dim datFile As String\n    \n    Do While Cells(i, 1).Value &lt;> ""\n        datFile = ActiveWorkbook.Path &amp; "\\files\\" &amp; Cells(i, 2) &amp; ".txt"\n        Open datFile For Output As #1\n        Print #1, "\u8a18\u8ff01"\n        Print #1, Cells(i, 21).Value\n        Print #1, ""\n        Print #1, "\u8a18\u8ff02"\n        Print #1, Cells(i, 22).Value\n        Close #1\n        i = i + 1\n    Loop\n\nEnd Sub\n\n<\/pre><\/div>\n\n\n
\u4e0a\u306e\u4f8b\u3067\u306fExcel\u30d5\u30a1\u30a4\u30eb\u306e\u3042\u308b\u30d5\u30a9\u30eb\u30c0\u30fc\u306b\u300cfiles\u300d\u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u30fc\u3092\u4e8b\u524d\u306b\u7528\u610f\u3057\u3066\u304a\u304f\u3053\u3068\u3068\u3057\u3066\u3044\u307e\u3059\u3002\u3053\u306e\u30d5\u30a9\u30eb\u30c0\u30fc\u5185\u30782\u5217\u76ee\u3092\u30d5\u30a1\u30a4\u30eb\u540d\u3068\u3057\u300121,22\u5217\u76ee\u3092\u305d\u306e\u5185\u5bb9\u3068\u3057\u305f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u751f\u6210\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u5e0c\u3067\u3059\u304c\u3001Excel\u30d5\u30a1\u30a4\u30eb\u306b\u3042\u308b\u30c7\u30fc\u30bf\u3092\u884c\u3054\u3068\u306b\u30d5\u30a1\u30a4\u30eb\u3078\u51fa\u529b\u3057\u305f\u3044\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\u79c1\u306e\u5834\u5408\u3001\u3042\u308b\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u306b\u53ce\u96c6\u30c7\u30fc\u30bf\u3092\u6295\u5165\u3059\u308b\u305f\u3081\u3001\u3053\u306e\u4f5c\u696d\u304c\u4e0d\u53ef\u6b20\u3067\u3059\u3002 \u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308b\u3068\u3044\u3046\u306e\u306f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306a\u3089\u30b3\u30de\u30f3\u30c9 \u7d9a\u304d\u3092\u8aad\u3080\u2026<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[6,4],"tags":[35],"class_list":["post-1650","post","type-post","status-publish","format-standard","hentry","category-software","category-tips","tag-microsoft-office"],"_links":{"self":[{"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/posts\/1650","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/comments?post=1650"}],"version-history":[{"count":1,"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/posts\/1650\/revisions"}],"predecessor-version":[{"id":1651,"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/posts\/1650\/revisions\/1651"}],"wp:attachment":[{"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/media?parent=1650"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/categories?post=1650"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.amano-labo.jp\/pages\/wp-json\/wp\/v2\/tags?post=1650"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}