{"id":2484,"date":"2017-03-28T19:01:04","date_gmt":"2017-03-28T10:01:04","guid":{"rendered":"http:\/\/anada.cloudfree.jp\/?p=2484"},"modified":"2017-10-20T17:27:00","modified_gmt":"2017-10-20T08:27:00","slug":"accessvba%e8%a6%9a%e6%9b%b8-excel%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92%e5%8f%96%e8%be%bc%e3%82%80","status":"publish","type":"post","link":"http:\/\/anada.cloudfree.jp\/?p=2484","title":{"rendered":"AccessVBA\u899a\u66f8 Excel\u30d5\u30a1\u30a4\u30eb\u3092\u53d6\u8fbc\u3080"},"content":{"rendered":"

\u30d5\u30a1\u30a4\u30eb\u6e21\u3059\u304b\u3089\u30d7\u30ed\u30b0\u30e9\u30e0\u7d44\u3093\u3067\u304f\u308c\u3001\u3063\u3066\u3044\u308f\u308c\u3066\u30d7\u30ed\u30b0\u30e9\u30e0\u4f5c\u6210\u3057\u3066\u3044\u308b\u6700\u4e2d\u3001
\n\u30d5\u30a1\u30a4\u30eb\u3082\u5bc4\u8d8a\u3055\u306a\u3044\u3046\u3061\u304b\u3089\u3001\u300c\u9032\u6357\u3069\u3046\u3067\u3059\u304b\uff1f\u300d\u3063\u3066\u805e\u304b\u308c\u3066\u3001\u3061\u3087\u3044\u30e0\u30ab\u3063\u3068\u3057\u305f\u306e\u306f\u4eca\u9031\u306e\u59cb\u3081\u3002
\n\u3093\u3067\u3001\u30e0\u30ab\u3064\u3044\u305f\u304b\u3089\u3082\u3046\u5c11\u3057\u5f85\u3063\u3066\u306d\u30e1\u30fc\u30eb\u306e\u3064\u3044\u3067\u306b\u3001\u9001\u3063\u3066\u304d\u305f\u4e2d\u9014\u534a\u7aef\u306a\u4ed5\u69d8\u66f8\u306e\u300c\u91cd\u7bb1\u306e\u9685\u306b\u3082\u306a\u3089\u306a\u3044\u5834\u6240\u300d(\u3061\u3083\u3093\u3068\u66f8\u3044\u3066\uff01\u3063\u3066\u306a\u5834\u6240\uff09\u3092\u3064\u3064\u304f\u3088\u3046\u306a\u8cea\u554f\u3092\u7573\u307f\u304b\u3051\u3066\u3084\u3063\u305f\u3002\uff08\u30d5\u30f3\uff01\uff09<\/p>\n

\u307e\u3041\u3001\u5225\u306b\u5927\u3057\u3066\u6012\u3063\u3066\u3044\u308b\u8a33\u3067\u306f\u306a\u3044\u306e\u3060\u304c\u3001
\n\u3000\u300c\u81ea\u5206\u304c\u3084\u308b\u3079\u304d\u3053\u3068\u3082\u3057\u306a\u3044\u3067\u3001\u306a\u3093\u306a\u3093\u3060\uff1f\u300d\u3068\u304b\u3001
\n\u3000\u300c\u3044\u3084\u3044\u3084\u25cb\u65e5\u304b\u304b\u308b\u3063\u3066\u8a00\u3063\u3066\u308b\u3067\u3057\u3087\uff01\u4f55\u65e5\u76ee\u3060\u3088\u4eca\u65e5\uff01\u300d\u3068\u304b\u30fb\u30fb\u30fb
\n\u8272\u3005\u601d\u3046\u3068\u3053\u308d\u306f\u3042\u3063\u305f\u3002
\n\u305d\u3046\u306f\u8a00\u3044\u3064\u3064\u3001\u81ea\u5206\u3082\u3053\u3046\u306a\u3089\u306a\u3044\u3088\u3046\u306b\u6c17\u3092\u4ed8\u3051\u3088\u3046\u3068\u3001\u3061\u3087\u3044\u3068\u601d\u3063\u305f\u306e\u3060\u3063\u305f\u3002<\/p>\n

\u3067\u3001\u6163\u308c\u306a\u3044DoCmd\u306b\u82e6\u6226\u3057\u3064\u3064\u3001Excel\u30d5\u30a1\u30a4\u30eb\u3092ReadOnly\u3067\u958b\u3044\u3066\u3001\u30c7\u30fc\u30bf\u3092\u8aad\u8fbc\u307f\u3001\u7d42\u308f\u3063\u305f\u3089\u9589\u3058\u308b\u51e6\u7406\u3092\u66f8\u3044\u3066\u307f\u305f\u3002
\nDisplayAlerts\u3092False\u306b\u3057\u3066\u3044\u308b\u306e\u306f\u3001Excel\u3067\u767a\u751f\u3057\u305f\u30a8\u30e9\u30fc\u3084\u3089\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u51fa\u3055\u305b\u306a\u3044\u305f\u3081\u3060\u3051\u3067\u3001\u5024\u3092\u3068\u3063\u3066\u304f\u308b\u3060\u3051\u306a\u3089\u7279\u306b\u5fc5\u8981\u306f\u306a\u3044\u3068\u601d\u3046\u3002<\/p>\n

\r\nDim xls As Object\r\nDim wb  As Object\r\n\r\nSet xls = CreateObject("Excel.Application")\r\nxls.DisplayAlerts = False\r\nSet wb = xls.Workbooks.Open(FileName:=[Excel\u30d1\u30b9], ReadOnly:=True)\r\n\r\n \u30fb\u30fb\u30fb\uff08\u8aad\u8fbc\u51e6\u7406\uff09\u30fb\u30fb\u30fb\r\n\r\nwb.Close SaveChanges:=False\r\nSet wb = Nothing \r\nxls.DisplayAlerts = True\r\nxls.Quit\r\nSet xls = Nothing\r\n<\/pre>\n
\u9762\u5012\u3060\u306a\u3041\u30fb\u30fb\u30fbExcel\u3067\u3044\u3044\u3058\u3083\u3093\uff1f
\n\u3060\u3063\u3066\u3001xlUp\u3068\u304bxlToLeft\u3068\u304b\u306eExcelVBA\u7279\u6709\u306e\u5b9a\u6570\u3082\u4f7f\u3048\u306a\u3044\u3057\u3002
\n\uff08\u53c2\u7167\u8a2d\u5b9a\u3067\u8a2d\u5b9a\u3059\u308c\u3070\u3001\u4f7f\u3048\u308b\u3088\u3046\u306b\u306f\u306a\u308b\u3051\u3069\u30b5\uff09<\/p>\n
\u3068\u306f\u601d\u3063\u305f\u306e\u3060\u304c\u3001\u307e\u3041\u3001\u5f8c\u3005Access\u306e\u65b9\u304c\u3044\u3044\u3053\u3068\u3082\u3042\u308b\u304b\u3082\u3063\u3066\u601d\u3063\u305f\u306e\u3067\u3001\u304a\u5ba2\u3055\u3093\u306e\u8a00\u3046\u3068\u304a\u308aAccess\u306b\u3057\u305f\u3002
\n\u3060\u3051\u3069\u3001\u3084\u306f\u308a\u3001\u4eca\u56de\u306f\u3001Access\u306b\u30c7\u30fc\u30bf\u3092\u53d6\u8fbc\u3080\u308f\u3051\u3067\u3082\u306a\u304f\u3001\u5225DB\u306b\u51fa\u529b\u3059\u308b\u30ed\u30b8\u30c3\u30af\u3060\u3063\u305f\u306e\u3067\u3001\u5c1a\u66f4\u3001Access\u3067Excel\u3092\u958b\u304f\u3068\u3044\u3046\u306e\u306f\u3001\u304b\u306a\u308a\u99ac\u9e7f\u99ac\u9e7f\u3057\u304f\u611f\u3058\u305f\u3002
\n\u3082\u3061\u308d\u3093\u3001\u3067\u304d\u308b\u306a\u3089Import\u3057\u305f\u3044\u3068\u3053\u308d\u3060\u304c\u3001\u3067\u304d\u308b\u307b\u3069\u5358\u7d14\u306a\u30c7\u30fc\u30bf\u3067\u306f\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u308f\u3056\u308f\u3056\u30ed\u30b8\u30c3\u30af\u3092\u7d44\u3080\u3002<\/p>\n
\u3000\u3000\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb\u30fb<\/p>\n
\u3067\u3001\u4eca\u56de\u306f\u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092Access\u30c6\u30fc\u30d6\u30eb\u306b\u306f\u653e\u308a\u8fbc\u307e\u306a\u304b\u3063\u305f\u306e\u3060\u304c\u3001Access\u306b\u53d6\u8fbc\u3080\u3068\u306a\u308b\u3068\u3069\u3046\u3059\u308b\u306e\u304b\u30fb\u30fb\u30fb\u3068\u3044\u3046\u3053\u3068\u3082\u8003\u3048\u3066\u307f\u305f\u3002<\/p>\n
\u3057\u3063\u304b\u3057\u3001Access\u306eTable\u3063\u3066\u306e\u306f\u3001INSERT\u6587\u3067\u51fa\u529b\u3057\u3088\u3046\u304c\u3001AddNew\u30fbUpdate\u3067\u5165\u308c\u3066\u307f\u3088\u3046\u304c\u3001\u307e\u3041\u3001\u9045\u3044\u306e\u306a\u3093\u306e\u30fb\u30fb\u30fb
\n\u3055\u3089\u306b\u8907\u6570\u306eSQL\u6587\u3092\u4e00\u62ec\u5b9f\u884c\u3059\u308b\u65b9\u6cd5\u306a\u3093\u3066\u63a2\u3057\u3066\u307f\u305f\u306e\u3060\u304c\u3001<\/p>\n
  Access\u306b\u306f\u306a\u3044\uff01<\/big><\/strong><\/p>\n
\u3068\u3044\u3046\u3053\u3068\u306a\u306e\u3067\u3001\uff11\u3064\u601d\u3044\u3064\u3044\u305f\u306e\u304c\u3001
\n\u3000\u30fbExcel\u30c7\u30fc\u30bf\u3092\u53d6\u8fbc\u3093\u3067\u3001\u30c6\u30fc\u30d6\u30ebImport\u7528\u306eCSV\u3092\u4f5c\u6210\u3002
\n\u3000\u30fbCSV\u3092Import\u3059\u308b\u3002
\n\u3068\u3044\u3046\u65b9\u6cd5\u3002
\n\u78ba\u304b\u306b\u3001INSERT\u3092\u767a\u884c\u3059\u308b\u3088\u308a\u901f\u3044\u306e\u3060\u304c\u3001\u304b\u3068\u3044\u3063\u3066\u3001\u3059\u3053\u3076\u308b\u901f\u3044\u3068\u3044\u3046\u8a33\u3067\u3082\u306a\u304b\u3063\u305f\u3002\u4ef6\u6570\u304c\u591a\u3051\u308c\u3070\u3001\u660e\u3089\u304b\u306b\u901f\u304f\u306a\u308b\u6c17\u306f\u3059\u308b\u3002<\/p>\n
\u3057\u304b\u3057\u3001\u3053\u3053\u3067\u554f\u984c\u767a\u751f\u3002\u6587\u5b57\u30b3\u30fc\u30c9\u3060\u3002<\/p>\n
UTF-8\u6587\u5b57\u304c\u5165\u529b\u3055\u308c\u305fExcel\u30c7\u30fc\u30bf\u3067\u3042\u3063\u305f\u305f\u3081\u3001ADO.Stream\u3092\u5229\u7528\u3057\u3066\u3001BOM\u7121\u3057\u306eUTF8\u3067CSV\u51fa\u529b\u3002
\n\u304b\u3064\u3001\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308b\u3068\u304d\u3082<\/p>\n
\r\n\u3000DoCmd.TransferText acImportDelim, , temp_table , csv_path, True, , 65001 \u3000\u3000\r\n<\/pre>\n
\u3068\u3044\u3046\u3088\u3046\u306b\u3001\u6587\u5b57\u30b3\u30fc\u30c9(65001\u304cUTF-8\u3092\u793a\u3059)\u3092\u6307\u5b9a\u3057\u3066\u53d6\u8fbc\u3080\u5fc5\u8981\u304c\u3042\u3063\u305f\u3002<\/p>\n
\u3068\u3044\u3046\u3053\u3068\u3067\u3001\u3044\u308d\u3044\u308d\u8a66\u3057\u306b\u3084\u3063\u305f\u306e\u3060\u304c\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u81ea\u4f53\u306f\u3059\u3093\u306a\u308a\u4f5c\u6210\u3067\u304d\u305f\u3002<\/p>\n
\u3063\u3066\u304b\u3001\u307e\u3060\u30d5\u30a1\u30a4\u30eb\u6765\u306a\u3044\u3057\u30fb\u30fb\u30fb<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30d5\u30a1\u30a4\u30eb\u6e21\u3059\u304b\u3089\u30d7\u30ed\u30b0\u30e9\u30e0\u7d44\u3093\u3067\u304f\u308c\u3001\u3063\u3066\u3044\u308f\u308c\u3066\u30d7\u30ed\u30b0\u30e9\u30e0\u4f5c\u6210\u3057\u3066\u3044\u308b\u6700\u4e2d\u3001 \u30d5\u30a1\u30a4\u30eb\u3082\u5bc4\u8d8a\u3055\u306a\u3044\u3046\u3061\u304b\u3089\u3001\u300c\u9032\u6357\u3069\u3046\u3067\u3059\u304b\uff1f\u300d\u3063\u3066\u805e\u304b\u308c\u3066\u3001\u3061\u3087\u3044\u30e0\u30ab\u3063\u3068\u3057\u305f\u306e\u306f\u4eca\u9031\u306e\u59cb\u3081\u3002 \u3093\u3067\u3001\u30e0\u30ab\u3064\u3044\u305f\u304b\u3089\u3082\u3046\u5c11\u3057\u5f85\u3063\u3066\u306d\u30e1\u30fc […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[178,43,74],"class_list":["post-2484","post","type-post","status-publish","format-standard","hentry","category-excelvba","tag-access","tag-excel","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2484","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=2484"}],"version-history":[{"count":4,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2484\/revisions"}],"predecessor-version":[{"id":2490,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2484\/revisions\/2490"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2484"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2484"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2484"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}