{"id":2359,"date":"2007-10-10T01:00:00","date_gmt":"2007-10-09T16:00:00","guid":{"rendered":"http:\/\/keuko.exp.jp\/diary\/?p=2359"},"modified":"2007-10-10T01:00:00","modified_gmt":"2007-10-09T16:00:00","slug":"excel2007","status":"publish","type":"post","link":"https:\/\/keuko.exp.jp\/diary\/?p=2359","title":{"rendered":"Excel2007"},"content":{"rendered":"<p>Excel2003\u3067\u4f5c\u3063\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3053\u3046\u3068\u3059\u308b\u3068<\/p>\n<blockquote><p>\n&#8216;xxxxx.xls&#8217;\u306b\u306f\u8aad\u307f\u53d6\u308c\u306a\u3044\u5185\u5bb9\u304c\u542b\u307e\u308c\u3066\u3044\u307e\u3059\u3002\u3053\u306e\u30d6\u30c3\u30af\u306e\u5185\u5bb9\u3092\u56de\u5fa9\u3057\u307e\u3059\u304b\uff1f\u30d6\u30c3\u30af\u306e\u767a\u884c\u5143\u304c\u4fe1\u983c\u3067\u304d\u308b\u5834\u5408\u306f\u3001[\u306f\u3044]\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u304f\u3060\u3055\u3044\u3002\n<\/p><\/blockquote>\n<p>\u3068\u3044\u3046\u30a8\u30e9\u30fc\u30e1\u30c3\u30bb\u30fc\u30b8\u304c\u8868\u793a\u3055\u308c\u3001[\u306f\u3044]\u3092\u9078\u3076\u3068\u30c7\u30fc\u30bf\u3060\u3051\u306b\u306a\u3063\u305f\u6b8b\u9ab8\u307f\u305f\u3044\u306a\u72b6\u614b\u3067\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304b\u308c\u3066\u3057\u307e\u3046\u306e\u3067\u3059\u3002<br \/>\n\u3048\u30fc\u3001\u4e0b\u4f4d\u4e92\u63db\u306a\u3044\u306e\u304b\u3088\u30fc\uff01\uff01\uff01\u3068\u601d\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u4e00\u5fdc\u89e3\u6c7a\u3057\u305f\u306e\u3067\u539f\u56e0\u3092\u66f8\u3044\u3066\u304a\u304d\u307e\u3059\u3002\uff08\u79c1\u306e\u5834\u5408\u306f\u3053\u3046\u3067\u3057\u305f\u3001\u3068\u3044\u3046\u3042\u304f\u307e\u3067\u3082\u53c2\u8003\u60c5\u5831\u3068\u3057\u3066\u3054\u89a7\u304f\u3060\u3055\u3044\u3002\uff09<br \/>\n\u300c\u540d\u524d\u306e\u5b9a\u7fa9\u300d\u3063\u3066\u3042\u308b\u3058\u3083\u306a\u3044\u3067\u3059\u304b\u3002\u7279\u5b9a\u306e\u30bb\u30eb\u306b\u540d\u524d\u3092\u3064\u3051\u308b\u6a5f\u80fd\u3002\uff08\u2190\u591a\u5206\u3002\u3042\u3068\u3001\u30da\u30fc\u30b8\u8a2d\u5b9a\u3067\u5370\u5237\u884c\u3084\u5217\u306e\u8a2d\u5b9a\u3092\u3057\u3066\u3082\u5b9a\u7fa9\u3055\u308c\u308b\u307f\u305f\u3044\u3067\u3059\u3002\uff09<br \/>\n\u958b\u304f\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u306f\u300c=[xxxx]!#REF!\u300d\u3068\u306a\u3063\u3066\u3044\u308b\u540d\u524d\u306e\u5b9a\u7fa9\u304c\u542b\u307e\u308c\u3066\u3044\u305f\u305f\u3081\u306b\u3053\u306e\u3088\u3046\u306a\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u305f\u307f\u305f\u3044\u3067\u3059\u3002\u3072\u3068\u307e\u305a2003\u3067\u958b\u3044\u3066\uff08\u3053\u3063\u3061\u3067\u306f\u30a8\u30e9\u30fc\u306b\u306a\u3089\u306a\u3044\u306e\u3067\u6c17\u3065\u304b\u306a\u304b\u3063\u305f\uff01\uff09\u8981\u3089\u306a\u3044\u540d\u524d\u306e\u5b9a\u7fa9\u3092\u5168\u90e8\u524a\u9664\u3057\u305f\u3089\u3001\u7121\u4e8b2007\u3067\u3082\u958b\u3051\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<br \/>\n\u306a\u3093\u3060\u305d\u308c\u3002<br \/>\n\u3042\u3068\u3042\u3093\u306a\u306b\u898b\u305f\u76ee\u5909\u3048\u3089\u308c\u305f\u3089\u3001\u8133\u8001\u4eba\u306f\u3064\u3044\u3066\u3044\u3051\u306a\u3044\u3058\u3083\u306a\u3044\u3067\u3059\u304b\u3088\u3002<\/p>\n<p>\u3042\u3001\u3042\u3068\u30012007\u306fApplication.FileSearch\u304c\u4f7f\u3048\u306a\u3044\u307f\u305f\u3044\u3067\u3059\u3002\uff08OS\u306f\u3069\u3061\u3089\u3082winXP\u3002\uff09\u5b9f\u884c\u6642\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3059\u3002\u306a\u3093\u3067\u3060\u3088\uff01\u3068\u6012\u3063\u3066\u3082\u52d5\u304b\u306a\u3044\u3082\u306e\u306f\u4ed5\u65b9\u304c\u306a\u3044\u306e\u3067FileSystemObject\u3067\u4ee3\u7528\u3057\u307e\u3057\u305f\u3002\u53c2\u8003\u307e\u3067\u306b\u30bd\u30fc\u30b9\u8f09\u305b\u3068\u304d\u307e\u3059\u3002\u591a\u5206\u52d5\u304d\u307e\u3059\u3002<br \/>\n\u5909\u66f4\u524d\uff082003\u3067\u306f\u52d5\u304d\u307e\u3059\u304c\u30012007\u3067\u306f\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3059\uff09<\/p>\n<pre class=\"mycode\">\nWith Application.FileSearch\n.LookIn = strReadPath\n.Filename = \"*.xls\"\nlngCnt = 0\nIf .Execute &#62; 0 Then\nlngTotalCnt = .FoundFiles.Count\nFor i = 1 To lngTotalCnt\nstrMsg = i & \" \/ \" & lngTotalCnt            ' \u9032\u6357\u30e1\u30c3\u30bb\u30fc\u30b8\nApplication.StatusBar = strMsg\nstrFileName = fs.GetFileName(.FoundFiles(i))\nIf strFileName &#60;&#62; myFileName Then\n' \u306a\u3093\u304b\u51e6\u7406\nlngCnt = lngCnt + 1\nEnd If\nNext i\nApplication.StatusBar = False\nEnd If\nIf lngCnt &#60;= 0 Then\nMsgBox \"\u3053\u306e\u30d5\u30a9\u30eb\u30c0\u306bExcel\u30d5\u30a1\u30a4\u30eb\u306f\u3042\u308a\u307e\u305b\u3093\u3002\"\nEnd If\nEnd With\n<\/pre>\n<p>\u5909\u66f4\u5f8c\uff082003\u30fb2007\u3067\u52d5\u304d\u307e\u3059\uff09<\/p>\n<pre class=\"mycode\">\nSet fis = CreateObject(\"Scripting.FileSystemObject\")\nSet fol = fis.GetFolder(strReadPath)\nSet fil = fol.Files\nlngTotalCnt = 0\nFor Each fx In fil\nstrFileName = fx.Name\nIf Right$(StrConv(strFileName, vbLowerCase), 4) = \".xls\" Then\nlngTotalCnt = lngTotalCnt + 1\nEnd If\nNext\nIf lngTotalCnt &#60;= 0 Then\nMsgBox \"\u3053\u306e\u30d5\u30a9\u30eb\u30c0\u306bExcel\u30d5\u30a1\u30a4\u30eb\u306f\u3042\u308a\u307e\u305b\u3093\u3002\"\nElse\nlngCnt = 0\nFor Each fx In fil\nstrFileName = fx.Name\nIf Right$(StrConv(strFileName, vbLowerCase), 4) = \".xls\" Then\nstrMsg = (lngCnt + 1) & \" \/ \" & lngTotalCnt     ' \u9032\u6357\u30e1\u30c3\u30bb\u30fc\u30b8\nApplication.StatusBar = strMsg\nDoEvents\nIf strFileName &#60;&#62; myFileName Then\n' \u306a\u3093\u304b\u51e6\u7406\nlngCnt = lngCnt + 1\nEnd If\nApplication.StatusBar = False\nEnd If\nNext\nEnd If\nSet fil = Nothing\nSet fol = Nothing\nSet fis = Nothing\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Excel2003\u3067\u4f5c\u3063\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3053\u3046\u3068\u3059\u308b\u3068 &#8216;xxxxx.xls&#8217;\u306b\u306f\u8aad\u307f\u53d6\u308c\u306a\u3044\u5185\u5bb9\u304c\u542b\u307e\u308c\u3066\u3044\u307e\u3059\u3002\u3053\u306e\u30d6\u30c3\u30af\u306e\u5185\u5bb9\u3092\u56de\u5fa9\u3057\u307e\u3059\u304b\uff1f\u30d6\u30c3\u30af\u306e\u767a\u884c\u5143\u304c\u4fe1\u983c\u3067\u304d\u308b\u5834\u5408\u306f\u3001[\u306f\u3044]\u3092\u30af\u30ea\u30c3\u30af<\/p>\n<p><a class=\"button\" href=\"https:\/\/keuko.exp.jp\/diary\/?p=2359\" title=\"More\">  \u7d9a\u304d\u3092\u8aad\u3080 \u2192<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[],"class_list":["post-2359","post","type-post","status-publish","format-standard","hentry","category-job"],"_links":{"self":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts\/2359","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2359"}],"version-history":[{"count":0,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=\/wp\/v2\/posts\/2359\/revisions"}],"wp:attachment":[{"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2359"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2359"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/keuko.exp.jp\/diary\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2359"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}