{"id":2086,"date":"2014-08-28T20:05:28","date_gmt":"2014-08-28T11:05:28","guid":{"rendered":"http:\/\/www23.atpages.jp\/~inoni\/?p=2086"},"modified":"2017-10-20T17:27:24","modified_gmt":"2017-10-20T08:27:24","slug":"excelvba%e8%a6%9a%e6%9b%b8-%e8%aa%b0%e3%81%8b%e3%81%8c%e4%bd%bf%e3%81%a3%e3%81%a6%e3%82%8b%e3%83%bb%e3%83%bb%e3%83%bb","status":"publish","type":"post","link":"http:\/\/anada.cloudfree.jp\/?p=2086","title":{"rendered":"ExcelVBA\u899a\u66f8 \u8ab0\u304b\u304c\u4f7f\u3063\u3066\u308b\u30fb\u30fb\u30fb"},"content":{"rendered":"<p>Excel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3002<br \/>\n\u3060\u3051\u3069\u3001\u8ab0\u304b\u304c\u958b\u3044\u3066\u3044\u308b\u304b\u3089\u4fdd\u5b58\u306f\u3067\u304d\u306a\u3044\u3088\u3002<br \/>\n\u3060\u304b\u3089\u51e6\u7406\u3092\u3084\u3081\u308b\u306d\u3002<\/p>\n<p>\u3063\u3066\u306a\u3053\u3068\u304c\u3084\u308a\u305f\u3044\uff01\u3068\u3044\u3046\u3053\u3068\u3067\u8abf\u3079\u3066\u307f\u305f\u3002<br \/>\n\u306a\u3093\u304b\u3001Open xxx For Append \u3068\u304b Open xxx For Binary \u3068\u304b\u3067\u8ab0\u304b\u304c\u3064\u304b\u3093\u3067\u308b\u3053\u3068\u3092\u78ba\u8a8d\u3059\u308b\u65b9\u6cd5\u3068\u304b\u3042\u3063\u305f\u306e\u3060\u3051\u3069\u3001\u30d5\u30a1\u30a4\u30eb\u304c\u3061\u3087\u3063\u3068\u7279\u6b8a\u306a\u3068\u3053\u308d\u306b\u3042\u308a\u3001\u3053\u3046\u3044\u3046\u3053\u3068\u304c\u3067\u304d\u306a\u3044\u3002<br \/>\n\u305d\u308c\u306b\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u8a2d\u5b9a\u3057\u3066\u3044\u308b\u305f\u3081\u3001\u8ab0\u304b\u304c\u4f7f\u3063\u3066\u3044\u308b\u3068\u304d\u306bReadOnly\u3092False\u306b\u3057\u3066\u958b\u304f\u3068\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u307e\u3067\u805e\u3044\u3066\u304f\u308b\u59cb\u672b\u30fb\u30fb\u30fb<br \/>\n\u306a\u306e\u3067\u3001\u8133\u307f\u305d\u306e10%\u3092\u30d5\u30eb\u6d3b\u7528\u3057\u3066\u307f\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\n'\n' \u5f15\u6570\u3067\u6307\u5b9a\u3055\u308c\u305f\u30d1\u30b9\u3092\u958b\u3044\u3066\u3001\u958b\u3044\u305f\u30d6\u30c3\u30af\u3092\u8fd4\u3059\n' \uff08\u3053\u3053\u3067\u306f\u30d1\u30b9\u30ef\u30fc\u30c9\u8a2d\u5b9a\u306f\u7701\u7565\uff09\nPrivate Function OpenBook(filePath As String, readonlyFlg as Boolean) As Workbook\n\n    Dim fileName As String\n\n    On Error Goto ErrorFunc\n\n    '(1) \u3068\u306b\u304b\u304f\u8aad\u53d6\u5c02\u7528\u3067\u958b\u304f(\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8\u3068\u304b\u51fa\u3055\u306a\u3044)\n    Set OpenBook=  Application.Workbooks.Open(Filename:=filePath , UpdateLinks:=False _\n                                              , Notify:=False, ReadOnly:=True)\n    '(2) \u8aad\u53d6\u5c02\u7528\u3067\u958b\u304f\u3068\u304d\u306f\u3053\u3053\u3067\u7d42\u308f\u308a\n    If readonlyFlg Then Exit Function\n\n    '(3) \u958b\u3044\u305f\u30d6\u30c3\u30af\u3092\u8aad\u307f\u66f8\u304d\u3067\u304d\u308b\u3088\u3046\u306b\u3059\u308b(\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8\u3068\u304b\u51fa\u3055\u306a\u3044)\n    fileName = OpenBook.Name\n    OpenBook.ChangeFileAccess Mode:=xlReadWrite, Notify:=False\n\n    '(4) \u306a\u305c\u304b\u3001\u958b\u304d\u76f4\u3057\u306b\u306a\u308a\u8a2d\u5b9a\u304c\u5207\u308c\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u3082\u3046\u4e00\u5ea6\u8a2d\u5b9a\u3057\u306a\u304a\u3059\n    Set OpenBook = Workbooks(fileName)\n\n    '(5)\u30d5\u30a1\u30a4\u30eb\u304c\u8aad\u53d6\u5c02\u7528\u3067\u306a\u304b\u3063\u305f\u3089\u3001\u7de8\u96c6\u53ef\u80fd\u306a\u30d6\u30c3\u30af\uff01\n    If Not OpenBook.ReadOnly Then Exit Funtion\n\n    '(6) OpenBook.ReadOnly = True \u306a\u3089\u3001\u8ab0\u304b\u304c\u63b4\u3093\u3067\u308b\uff01=&gt; \u9589\u3058\u308b\n    OpenBook.Close SaveChanges:=False\n    Set OpenBook = Nothing\n    Exit Function\n\nErrorFunc:\n\n    '\u6307\u5b9a\u3057\u305f\u30d1\u30b9\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u306a\u3044\u3068\u304d\u306f\u3001(1)\u3067\u30a8\u30e9\u30fc\u767a\u751f\u3057\u3001\u3053\u3053\u306b\u6765\u308b\uff01\n\nEnd Function \n<\/pre>\n<p>\u3068\u3044\u3046\u3053\u3068\u3067\u3001\u56de\u308a\u304f\u3069\u3044\u3084\u308a\u65b9\u3092\u3059\u308c\u3070\u4f55\u3068\u304b\u3067\u304d\u308b\u3053\u3068\u304c\u5206\u304b\u3063\u305f\u3002<br \/>\n\u4e0a\u306e\u4f8b\u3060\u3068\u3001\u30d5\u30a1\u30a4\u30eb\u304c\u306a\u3044\u3068\u304d\u3082\u3001\u958b\u3051\u306a\u3044\u3068\u304d\u3082Nothing\u3067\u8fd4\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u533a\u5225\u3057\u305f\u3044\u3068\u304d\u306f\u30d5\u30e9\u30b0\u3092\u8fd4\u3057\u3066\u3084\u308b\u3068\u304b\u5de5\u592b\u304c\u5fc5\u8981\u3002<\/p>\n<p>\u30d6\u30c3\u30af\u3092\u958b\u3044\u305f\u5f8c\u306f<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\n    OpenBook.Windows(1).WindowState = xlMinimized\n<\/pre>\n<p>\u3067\u6700\u5c0f\u5316\u3057\u3066\u304a\u304f\u3068\u3001\u753b\u9762\u306e\u3061\u3089\u3064\u304d\u306f\u6700\u5c0f\u9650\u3067\u6e08\u3080\u3002<\/p>\n<p>\u3067\u3001\u3053\u308c\u304c\u300c\u7279\u6b8a\u306a\u74b0\u5883\u4e0b\u300d\u3067\u3046\u307e\u304f\u52d5\u304f\u304b\u3069\u3046\u304b\u306f\u307e\u3060\u8a66\u305b\u3066\u3044\u306a\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Excel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3002 \u3060\u3051\u3069\u3001\u8ab0\u304b\u304c\u958b\u3044\u3066\u3044\u308b\u304b\u3089\u4fdd\u5b58\u306f\u3067\u304d\u306a\u3044\u3088\u3002 \u3060\u304b\u3089\u51e6\u7406\u3092\u3084\u3081\u308b\u306d\u3002 \u3063\u3066\u306a\u3053\u3068\u304c\u3084\u308a\u305f\u3044\uff01\u3068\u3044\u3046\u3053\u3068\u3067\u8abf\u3079\u3066\u307f\u305f\u3002 \u306a\u3093\u304b\u3001Open xxx For Append \u3068\u304b Open xxx  [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[43,74],"class_list":["post-2086","post","type-post","status-publish","format-standard","hentry","category-excelvba","tag-excel","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2086","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2086"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2086\/revisions"}],"predecessor-version":[{"id":2684,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2086\/revisions\/2684"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2086"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2086"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2086"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}