{"id":1568,"date":"2019-07-23T08:45:42","date_gmt":"2019-07-22T23:45:42","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1568"},"modified":"2019-10-28T11:29:36","modified_gmt":"2019-10-28T02:29:36","slug":"table-b-dell_conf-table-a-b01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/table-b-dell_conf-table-a-b01","title":{"rendered":"Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eA\u8868\u3068B\u8868\u306e\u5185\u5bb9\u3092\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\uff09\u300c\u3059\u3079\u3066\u306e\u5217\u300d\u3067\u6bd4\u8f03\u3057\u3066\u3001B\u8868\u304b\u3089\u3001\u300c\u91cd\u8907\u3057\u306a\u3044\u884c\u300d\u3092\u53d6\u308a\u51fa\u3059\u3002\uff08\u3067\u304d\u305f\u3089\u3001\u300c\u62bd\u51fa\u3055\u308c\u305f\u3082\u306e\u300d\u306b\u3064\u3044\u3066\u4f55\u304b\u3059\u308b\u305f\u3081\u306b\uff09"},"content":{"rendered":"<p>Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eA\u8868\u3068B\u8868\u306e\u5185\u5bb9\u3092\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\uff09\u300c\u3059\u3079\u3066\u306e\u5217\u300d\u3067\u6bd4\u8f03\u3057\u3066\u3001B\u8868\u304b\u3089\u3001\u300c\u91cd\u8907\u3057\u306a\u3044\u884c\u300d\u3092\u53d6\u308a\u51fa\u3059\u3002\uff08\u3067\u304d\u305f\u3089\u3001\u300c\u62bd\u51fa\u3055\u308c\u305f\u3082\u306e\u300d\u306b\u3064\u3044\u3066\u4f55\u304b\u3059\u308b\u305f\u3081\u306b\uff09<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #ff0000;\">\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u76ee\u7684<\/p>\n<p>\u300cA\u8868\uff1aT99_\u793e\u54e1\u30de\u30b9\u30bf\u300d\u3068\u300cB\u8868\uff1at99_\u793e\u54e1\u30de\u30b9\u30bf002\u300d\u306e\u5185\u5bb9\u3092\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\uff09<br \/>\n\u300c\u3059\u3079\u3066\u306e\u5217\u300d\u3067\u6bd4\u8f03\u3057\u3066\u3001<br \/>\n\u300cB\u8868\uff1at99_\u793e\u54e1\u30de\u30b9\u30bf002\u300d\u304b\u3089\u3001<br \/>\n\u300c\u91cd\u8907\u3057\u306a\u3044\u884c\u300d\uff1d\u300cA\u8868\uff1aT99_\u793e\u54e1\u30de\u30b9\u30bf\u3068\u4e00\u81f4\u3057\u306a\u3044\u884c\u300d\uff1d\u300cA\u8868\uff1aT99_\u793e\u54e1\u30de\u30b9\u30bf\u3068\u4e00\u81f4\u3057\u305f\u884c\u4ee5\u5916\u306e\u884c\u300d\u3001<br \/>\n\u3092\u300cB\u8868\uff1at99_\u793e\u54e1\u30de\u30b9\u30bf002\u300d\u304b\u3089\u53d6\u308a\u51fa\u3059\u3002<\/p>\n<p>\u203b\u9023\u756a\u5217\u306e\u307f\u3001\u3042\u308b\u3044\u306f\u3001\u5168\u5217\u3092\u53d6\u308a\u51fa\u3059\u3002<\/p>\n<p>\u3067\u304d\u305f\u3089\u3001\u305d\u308c\u3092\u524a\u9664\u3059\u308b\u3002<\/p>\n<p>\u6c4e\u7528\u7684\u306a\u8a00\u3044\u65b9\u3060\u3068\u30fb\u30fb\u30fb\u30fb<\/p>\n<p>A\u8868\u3068B\u8868\u306e\u5185\u5bb9\u3092\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\uff09<br \/>\n\u300c\u3059\u3079\u3066\u306e\u5217\u300d\u3067\u6bd4\u8f03\u3057\u3066\u3001<br \/>\nB\u8868\u304b\u3089\u3001<br \/>\n\u300c\u91cd\u8907\u3057\u306a\u3044\u884c\u300d\uff1d\u300cA\u8868\u3068\u4e00\u81f4\u3057\u306a\u3044\u884c\u300d\uff1d\u300cA\u8868\u3068\u4e00\u81f4\u3057\u305f\u884c\u4ee5\u5916\u306e\u884c\u300d\u3001<br \/>\n\u3092\u53d6\u308a\u51fa\u3059\u3002<\/p>\n<p>\u3067\u304d\u305f\u3089\u3001\u300c\u62bd\u51fa\u3055\u308c\u305f\u3082\u306e\u300d\u306b\u3064\u3044\u3066\u4f55\u304b\u3059\u308b\u3002<\/p>\n<p>\u30fb\u30fb\u30fb\u30fb\u3068\u3044\u3046\u611f\u3058\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u30c6\u30fc\u30d6\u30eb\u5185\u5bb9<\/p>\n<p>\u4f8b\u3048\u3070\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u611f\u3058\u306e\u5185\u5bb9\u306e\u8868\u3092\u6bd4\u8f03\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n(A\u8868)T99_\u793e\u54e1\u30de\u30b9\u30bf\r\n\r\n\u9023\u756a\t\u793e\u54e1\u756a\u53f7\t\u793e\u54e1\u540d\t\u9000\u793e\u65e5\u4ed8\t\u5165\u5ba4ID\r\n1\t1\t\u6cb3\u6751 \u52a0\u52a9\t2019\/03\/16\t5\r\n2\t2\t\u9234\u6728 \u9686\u592b\t2019\/03\/17\t6\r\n3\t3\t\u7389\u7530 \u5341\u5922\t2019\/03\/18\t7\r\n4\t4\t\u4e09\u30c4\u77e2 \u96c4\u5e02\t2019\/03\/19\t8\r\n\r\n\r\n(B\u8868)t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n\u9023\u756a\t\u793e\u54e1\u756a\u53f7\t\u793e\u54e1\u540d\t\u9000\u793e\u65e5\u4ed8\t\u5165\u5ba4ID\r\n1\t5\t\u4e26\u6728 \u4f73\u91ce\t2019\/09\/19\t2\r\n2\t3\t\u7389\u7530 \u5341\u5922\t2019\/03\/18\t7\r\n3\t6\t\u7530\u4e2d \u6b63\u5fd7\t2019\/05\/17\t9\r\n4\t1\t\u6cb3\u6751 \u52a0\u52a9\t2019\/03\/16\t5\r\n\r\n'\r\n'\r\n<\/pre>\n<p>\u3053\u306e\u4e2d\u3067\u306f\u3001\u300c\u6cb3\u6751 \u52a0\u52a9\u300d\u3055\u3093\u3001\u300c\u7389\u7530 \u5341\u5922\u300d\u3055\u3093\u306e\u30ec\u30b3\u30fc\u30c9\uff08\u884c\uff09\u304c\u3001<br \/>\n\uff12\u3064\u306e\u8868\u306e\u4e2d\u3067\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\uff09\u5168\u5217\u306e\u5185\u5bb9\u304c\u307e\u3063\u305f\u304f\u540c\u3058\u306a\u306e\u3067\u3001<br \/>\n\u305d\u308c\u4ee5\u5916\u306e\u30c7\u30fc\u30bf\u3092\u3001\u300c(B\u8868)t99_\u793e\u54e1\u30de\u30b9\u30bf002\u300d\u304b\u3089\u62bd\u51fa\u3059\u308b\u30fb\u30fb\u30fb\u3001<br \/>\n\u3068\u3044\u3046\u304b\u305f\u3061\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \u30d2\u30f3\u30c8\uff08\u4e0d\u4e00\u81f4\u306e\u884c\u3060\u3051\u3092\u53d6\u308a\u51fa\u3059\u5b9a\u578b\u4f5c\u696d\uff09<\/p>\n<p>A\u8868\u3068B\u8868\u306e\u5185\u5bb9\u3092\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\uff09<br \/>\n\u300c\u3059\u3079\u3066\u306e\u5217\u300d\u3067\u6bd4\u8f03\u3057\u3066\u3001<br \/>\nB\u8868\u304b\u3089\u3001<br \/>\n\u300c\u91cd\u8907\u3057\u306a\u3044\u884c\u300d\uff1d\u300cA\u8868\u3068\u4e00\u81f4\u3057\u306a\u3044\u884c\u300d\uff1d\u300cA\u8868\u3068\u4e00\u81f4\u3057\u305f\u884c\u4ee5\u5916\u306e\u884c\u300d\u3001<br \/>\n\u3092\u53d6\u308a\u51fa\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u3010\u4e0d\u4e00\u81f4\u306a B\u8868\u306e\u3059\u3079\u3066\u306e\u5217\u3092\u8868\u793a\u3055\u305b\u308b\u4f8b\u3011<\/p>\n<p><span style=\"color: #ff0000;\"><b>\u3053\u308c\u306f\u3001\u300c\u9023\u756a\u300d\u3068\u3044\u3046\u5217\u304cA\u8868\u306b\u3082B\u8868\u306b\u3082\u3042\u308b\u3053\u3068\u304c\u5927\u524d\u63d0\u3067\u3059\u3002\u3053\u306e\u5217\u3060\u3051\u306f\u5185\u5bb9\u304c\u7570\u306a\u3063\u3066\u3082\u3044\u3044\u3001\u3068\u3044\u3046\u524d\u63d0\u3067\u3059\u3002<br \/>\n\uff08\u306a\u306e\u3067\u3001\u3042\u3068\u304b\u3089\u4f5c\u308a\u8db3\u3057\u3066\u3082OK\u3067\u3059\u3002\uff09<\/b><\/span><\/p>\n<p><span style=\"color: #0000ff;\"><b>\u306a\u306e\u3067\u3001\u3082\u3057\u7121\u3051\u308c\u3070\u3001\u5148\u306b\u3001A\u8868\u3068B\u8868\u306e\u4e21\u65b9\u306b\u300c\u9023\u756a\u300d\u3068\u3044\u3046\u5217\u3092\u4f5c\u3063\u3066\u304b\u3089<\/b><\/span><br \/>\n\u4ee5\u964d\u306e\u3088\u3046\u306aSQL\u6587\u3092\u66f8\u3044\u3066\u4f5c\u696d\u3057\u307e\u3059\u3002<br \/>\n\u4f5c\u696d\u306f\u3001Microsoft Query\u304b\u3001VBA\u3067\u884c\u3044\u307e\u3059\u3002<\/p>\n<p><span style=\"color: #7401DF;\"><b>\u306a\u304a\u3001\uff12\u3064\u306e\u8868\u3092\u300c\u672c\u8a18\u4e8b\u306e\u3088\u3046\u306a\u6761\u4ef6\u3067\u300d\u6bd4\u3079\u308b\u5834\u5408\u3001<span style=\"color: #32cd32;\"><b>\u300c\u6bce\u56de\u30fb\u5e38\u306b\u3053\u306eSQL\u6587\u3067OK\u300d<\/b><\/span>\u3067\u3059\u3002<\/b><\/span><\/p>\n<p>\u307e\u305f\u3001\u4eca\u56de\u306e\u4f8b\u306b\u3064\u3044\u3066\u306f\u3001<br \/>\n\u91cd\u8907\u30c1\u30a7\u30c3\u30af\u3092\u3059\u308b\u5217\u304c\u3001\u300c\u521701\uff5e\u521704\u306e4\u3064\u300d\u3067\u3001<br \/>\n\u305d\u306e\u300c\u3059\u3079\u3066\u306e\u5217\u3092\u540c\u6642\u306b\u300d\u3001\u91cd\u8907\u3057\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u3092\u8abf\u3079\u307e\u3059\u3002\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\u5217\u3067\u3059\u3002\uff09<\/p>\n<p>\u4ee5\u4e0b\u306eSQL\u6587\u3067\u3059\u3068\u3001\u300cON \uff5e AND \uff5e AND \uff5e \u30fb\u30fb\u30fb\u300d\u3068\u3044\u3046\u90e8\u5206\uff084\u884c\u5206\uff09\u304c\u3001<br \/>\n\u91cd\u8907\u30c1\u30a7\u30c3\u30af\u3057\u3066\u3044\u308b\u90e8\u5206\u3067\u3059\u3002\uff08\u300cAND\u300d\u306f\u300c\u304b\u3064\u300d\u3068\u3044\u3046\u610f\u5473\u3067\u3059\u3002\uff09<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT B\u8868.*\r\n FROM (SELECT B\u8868.\u9023\u756a\r\n       FROM A\u8868\r\n       LEFT JOIN B\u8868\r\n       ON      (A\u8868.\u521701 = B\u8868.\u521701)\r\n           AND (A\u8868.\u521702 = B\u8868.\u521702)\r\n           AND (A\u8868.\u521703 = B\u8868.\u521703)\r\n           AND (A\u8868.\u521704 = B\u8868.\u521704)\r\n       WHERE B\u8868.\u9023\u756a Is Not Null) AS C\u8868\r\n    RIGHT JOIN B\u8868\r\n    ON C\u8868.\u9023\u756a = B\u8868.\u9023\u756a\r\n WHERE C\u8868.\u9023\u756a Is Null;\r\n'\r\n'\r\n<\/pre>\n<p>\u306a\u304a\u3001\u91cd\u8907\u3092\u6bd4\u8f03\u3059\u308b\u5217\u306e\u540d\u524d\u306f\u3001A\u8868\u3068B\u8868\u306e\u3042\u3044\u3060\u3067\u306f\u3001\u300c\u5168\u304f\u540c\u3058\u3067\u306a\u304f\u3066\u3082OK\u300d\u3067\u3059\u3002<br \/>\n\u5217\u540d\u304c\u7570\u306a\u3063\u3066\u3044\u3066\u3082\u3001\u5217\u540c\u58eb\u306e\u300c\u30c7\u30fc\u30bf\u578b\u300d\u3068\u3001\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b\u5024\u305d\u306e\u3082\u306e\u304c\u6b63\u5e38\u306a\u3089\u5927\u4e08\u592b\u3067\u3059\u3002<br \/>\n\u305d\u306e\u5834\u5408\u306f\u3001\u304a\u4e92\u3044\u300c\u521701\u300d\u306e\u3068\u3053\u308d\u3067\u3001\u7570\u306a\u308b\u5217\u540d\u3092\u66f8\u304d\u5408\u3044\u307e\u3059\u3002\u305d\u308c\u3067OK\u3067\u3059\u3002<\/p>\n<p>\u9006\u306b\u3001\u8ab0\u304b\u304c\u30c7\u30fc\u30bf\u3092\u5909\u306b\u3044\u3058\u3063\u3066\u3057\u307e\u3044\u3001\u300e \u5185\u5bb9\u304c\u30e1\u30c1\u30e3\u30af\u30c1\u30e3\u306b\u306a\u3063\u3066\u3057\u307e\u3063\u3066\u3044\u308b \u300f\u3088\u3046\u306a\u72b6\u6cc1\u3067\u3059\u3068\u3001\u3082\u3057\u5217\u540d\u304c\u540c\u3058\u3067\u3042\u3063\u3066\u3082\u30fb\u30fb\u30fb\u3001<br \/>\n\u300c\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u6b62\u307e\u3063\u3066\u3057\u307e\u3046\u300d\u304b\u3001<br \/>\n\u300c\u3068\u308a\u3042\u3048\u305a\u52d5\u304f\u3051\u3069\u3001\u3067\u3082\u7d76\u5bfe\u306b\u91cd\u8907\u306f\u30d2\u30c3\u30c8\u3057\u306a\u3044\u300d\u3001<br \/>\n\u30fb\u30fb\u30fb\u3068\u3044\u3046\u72b6\u6cc1\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002<br \/>\n\uff08Excel\u306f\u521d\u671f\u72b6\u614b\u3067\u306f\u3001\u300c\u5165\u529b\u30c7\u30fc\u30bf\u306e\u30c7\u30fc\u30bf\u578b\u3092\u305d\u308d\u3048\u305f\u308a\u30c1\u30a7\u30c3\u30af\u3057\u305f\u308a\u3059\u308b\u6a5f\u80fd\u304c\u307e\u3063\u305f\u304f\u3068\u3044\u3063\u3066\u3044\u3044\u307b\u3069\u50cd\u3044\u3066\u3044\u306a\u3044\u300d\u306e\u3067\u3001\u7d50\u679c\u3001\u4f55\u3067\u3082\u3067\u304d\u3066\u3057\u307e\u3044\u3001\u300c\u30c7\u30fc\u30bf\u3084\u6570\u5f0f\u3092\u30e1\u30c1\u30e3\u30e1\u30c1\u30e3\u306b\u3057\u653e\u984c\u300d\u306a\u306e\u3067\u3001\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3059\u3002\u305d\u3053\u304c\u300cExcel\u306f\u3042\u307e\u308a\u30c7\u30fc\u30bf\u84c4\u7a4d\u306b\u306f\u5411\u304b\u306a\u3044\u300d\u3068\u8a00\u308f\u308c\u308b\u4e00\u756a\u306e\u7406\u7531\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u305f\u3060\u3001\u305d\u3053\u3055\u3048\u3061\u3083\u3093\u3068\u6c17\u3092\u4ed8\u3051\u3066\u3001\u300c\u4ed6\u306e\u4eba\u306e\u81ea\u7531\u306b\u3055\u305b\u306a\u3044\u300d\u4ed5\u7d44\u307f\u3092\u8ffd\u52a0\u3059\u308c\u3070\u3001Excel\u3067\u3082\u306a\u3093\u3068\u304b\u30b7\u30b9\u30c6\u30e0\u3081\u3044\u305f\u3082\u306e\u304c\u4f5c\u308c\u308b\u3068\u601d\u3044\u307e\u3059\u3002\u3082\u3061\u308d\u3093\u3001SQL\u3082\u4f7f\u3048\u307e\u3059\u3002\uff09<\/p>\n<p><span style=\"color: #0000ff;\"><b>\u4ee5\u4e0a\u306f\u3001\u5b9a\u578b\u7684\u306a\u4f5c\u696d\u306a\u306e\u3067\u3001<br \/>\n\u6700\u521d\u306e\u3046\u3061\u306f\u300cSELECT\u300d\u3084\u300cFROM\u300d\u300cWHERE\u300d\u306a\u3069\u306e\u610f\u5473\u304c\u308f\u304b\u3089\u306a\u304f\u3066\u3082OK\u3067\u3059\u304c\u3001<br \/>\n\u3067\u3082\u5fc5\u305a\u3001\u5c11\u3057\u305a\u3064\u3067\u3082\u610f\u5473\u3092\u5b66\u3073\u3001SQL\u6587\u306b\u3064\u3044\u3066\u5c11\u3057\u305a\u3064\u3067\u3082\u3044\u3044\u306e\u3067\u3001<br \/>\n\u7406\u89e3\u3092\u6df1\u3081\u3066\u3044\u3063\u3066\u307b\u3057\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/b><\/span><\/p>\n<p><span style=\"color: #ff0000;\"><b>\u305d\u3046\u3059\u308b\u3068Excel\u306e\u30d5\u30a3\u30eb\u30bf\u6a5f\u80fd\u3088\u308a\u3082\u3055\u3089\u306b\u7d30\u304b\u3044\u52d5\u304d\u3092\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3057\u3001<br \/>\n\u4f55\u3068\u3044\u3063\u3066\u3082\u3001<br \/>\n\u300cVBA\u30d7\u30ed\u30b0\u30e9\u30e0\u3088\u308a\u3082\u77ed\u3044\u6587\u3067\u300d\u66f8\u3051\u307e\u3059\u3057\u3001<br \/>\n\u300c\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3088\u308a\u3082\u5206\u304b\u308a\u3084\u3059\u304f\u8907\u6570\u306e\u6761\u4ef6\u304c\u66f8\u3051\u307e\u3059\u300d\u304b\u3089\u3001<br \/>\n\u7d50\u679c\u7684\u306b<br \/>\n\u300c\u7121\u99c4\u3067\u3001\u672c\u6765\u66f8\u304b\u306a\u304f\u3066\u3044\u3044VBA\u3084\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3092\u66f8\u3044\u305f\u308a\u300d\u3001<br \/>\n\u300c\u610f\u5473\u306e\u308f\u304b\u308a\u306b\u304f\u3044\u4fee\u6b63\u3057\u306b\u304f\u3044VBA\u3084\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3092\u66f8\u304f\u300d\u3001<br \/>\n\u3068\u3044\u3046\u30e0\u30c0\u304c\u6e1b\u308a\u307e\u3059\u3002<br \/>\n\u30b7\u30b9\u30c6\u30e0\u696d\u8005\u3082VBA\u3088\u308a\u3082SQL\u3092\u4f7f\u3046\u306e\u3067\u3001\u30e1\u30f3\u30c6\u306f\u3082\u3061\u308d\u3093\u3001\u305d\u306e\u4ed6\u3044\u308d\u3093\u306a\u65b9\u9762\u3001\u4f8b\u3048\u3070\u300c\u9ad8\u6a5f\u80fd\u5316\u306e\u305f\u3081\u306e\u5916\u6ce8\u6642\u300d\u306b\u3082\u30b3\u30b9\u30c8\u304c\u6291\u3048\u3089\u308c\u307e\u3059\u3002<\/b><\/span><br \/>\n<span style=\"color: #32cd32;\"><b>\u7279\u306b\u3001VBA\u3084\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u306f\u300c\u30bb\u30eb\u306e\u4f4d\u7f6e\u300d\u3067\u306a\u3093\u3067\u3082\u3084\u308b\u306e\u3067\u3001A\u8868\u3084B\u8868\u306e\u5217\u304c\u5897\u3048\u305f\u308a\u884c\u304c\u5897\u3048\u305f\u308a\u3059\u308b\u3068\u305d\u306e\u305f\u3073\u306b\u300c\u4f55\u304c\u3069\u3046\u306a\u3063\u3066\u3044\u308b\u304b\u3092\u8003\u3048\u76f4\u3057\u3066\u300d\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30e0\u30c0\u306b\u66f8\u304d\u63db\u3048\u306a\u3044\u3068\u3044\u3051\u307e\u305b\u3093\u3002\u3057\u304b\u3082\u30eb\u30fc\u30d7\u3082\u4f7f\u3046\u3053\u3068\u3082\u591a\u3044\u306e\u3067\u308f\u304b\u308a\u3065\u3089\u3044\uff06\u9593\u9055\u3048\u3084\u3059\u3044\u3067\u3059\u3002\u7279\u306b\u521d\u5fc3\u8005\u306b\u306f\u3002\uff1d\u30e1\u30f3\u30c6\u3082\u3057\u306b\u304f\u3044\u3001\u3068\u3044\u3046\u3053\u3068\u3067\u3082\u3042\u308a\u307e\u3059\u3002<br \/>\n\u3067\u3082\u3001SQL\u3092\u4f7f\u3046\u3068\u3001\u5217\u540d\u3067\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u66f8\u3051\u307e\u3059\u304b\u3089\u76ee\u7684\u306e\u5217\u306e\u30c7\u30fc\u30bf\u304c\u3069\u306e\u30bb\u30eb\u306b\u3042\u308d\u3046\u304c\u5834\u6240\u304c\u5909\u308f\u308d\u3046\u304c\u3000\u305d\u3093\u306a\u3053\u3068\u306f\u95a2\u4fc2\u304c\u7121\u304f\u3001\u8003\u3048\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u305b\u3093\u3002\u884c\u306b\u3064\u3044\u3066\u3082\u300c\u5897\u3048\u308b\u3053\u3068\u304c\u524d\u63d0\u306a\u306e\u3067\u8003\u3048\u306a\u304f\u3066\u3044\u3044\u300d\u3067\u3059\u3057\u3001\u30eb\u30fc\u30d7\u306a\u3093\u3066\u4f7f\u308f\u306a\u3044\u3082\u3093\u3067\u3059\u304b\u3089\u3001\u306a\u306e\u3067\uff08\u57fa\u790e\u3055\u3048\u308f\u304b\u308c\u3070\uff09VBA\u3088\u308a\u306f\u610f\u5473\u304c\u308f\u304b\u308a\u3084\u3059\u3044\u3067\u3059\u3002<br \/>\n\u306a\u306e\u3067\u3001\u5185\u5bb9\u3092\u66f8\u304d\u63db\u3048\u308b\u306b\u3057\u3066\u3082\u7121\u99c4\u306aVBA\u3084\u7121\u99c4\u306a\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3088\u308a\u306f\u300c\u66f8\u304d\u63db\u3048\u3084\u3059\u3044\u300d\u300c\u66f8\u304d\u63db\u3048\u308b\u7b87\u6240\u304c\u5c11\u306a\u3044\u300d\u3068\u3044\u3046\u30e1\u30ea\u30c3\u30c8\u304c\u3042\u308a\u307e\u3059\u3002<br \/>\n\u300c\u4e00\u5ea6\u4f5c\u3063\u305f\u3082\u306e\u3092\u3001VBA\u3084\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3088\u308a\u3082 \"\u4f7f\u3044\u307e\u308f\u3057\u30fb\u518d\u5229\u7528\u304c\u3057\u3084\u3059\u3044\" \u3068\u3044\u3046\u30e1\u30ea\u30c3\u30c8\u304c\u3042\u308b\u3001\u300d\uff1d\u300c\u6642\u9593\u3092\u30e0\u30c0\u306b\u3057\u306a\u3044\u3068\u3044\u3046\u30e1\u30ea\u30c3\u30c8\u304c\u3042\u308b\u300d\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002<br \/>\n<span style=\"color: #0000ff;\"><b>\u306f\u3063\u304d\u308a\u8a00\u3063\u3066\u3001SQL\u3092\u77e5\u3089\u305a\u306b\uff08\u4f7f\u308f\u305a\u306b\uff09VBA\u306e\u30eb\u30fc\u30d7\u51e6\u7406\u3070\u304b\u308a\u81ea\u6162\u3059\u308b\u4eba\uff08\u30eb\u30fc\u30d7\u51e6\u7406\u3057\u304b\u66f8\u304b\u306a\u3044\u4eba\uff09\u306f\u300c\u611a\u304b\u3067\u5373\u6226\u529b\u306b\u306f\u306a\u308a\u307e\u305b\u3093\u300d\u3002SQL\u3092\u77e5\u3063\u3066\u3066\u3001\u3067\u3082\u72b6\u6cc1\u306b\u3088\u3063\u3066\u3042\u3048\u3066SQL\u3092\u4f7f\u308f\u306a\u3044\u4eba\u306f\u300c\u5373\u6226\u529b\u306b\u306a\u308b\u300d\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u50d5\u306fSQL\u306f\u5f97\u610f\u3067\u306f\u306a\u3044\u3067\u3059\u304c\u3001\u300c\u4f55\u304c\u3069\u3046\u3067\u304d\u308b\u304b\uff1f\u304f\u3089\u3044\u306e\u304a\u304a\u3088\u305d\u306e\u3053\u3068\u300d\u306f\u77e5\u3063\u3066\u3044\u307e\u3059\u306e\u3067\u3001ExcelVBA\u304c\u3067\u304d\u308b\u3060\u3051\u306e\u4eba\u3068\u3001SQL\u3082VBA\u77e5\u3063\u3066\u3066\u52b9\u7387\u5316\u3057\u3066\u304f\u308c\u308b\u4eba\u3068\u3060\u3063\u305f\u3089\u3001\u5f8c\u8005\u306e\u65b9\u3092\u63a1\u7528\u3057\u307e\u3059\u3057\u3001\u304a\u7d66\u6599\u306b\u3082\u5dee\u3092\u3064\u3051\u307e\u3059\u3002\uff08\u3082\u3061\u308d\u3093\u3001SQL\u3092\u4f7f\u3063\u3066\u52b9\u7387\u5316\u304c\u672c\u5f53\u306b\u3067\u304d\u308c\u3070\u3001\u3067\u3059\u304c\u3002\uff09<br \/>\n\u3082\u3061\u308d\u3093\u3001SQL\u3082\u4e07\u80fd\u3067\u306f\u306a\u3044\u3067\u3059\u304b\u3089VBA\u3067\u306e\u30eb\u30fc\u30d7\u51e6\u7406\u3082\u3082\u3061\u308d\u3093\u300c\u5927\u5207\u306a\u3082\u306e\u300d\u3067\u3059\u304c\u3001\u3067\u3082\u300cSQL\u3092\u307e\u3063\u305f\u304f\u77e5\u3089\u306a\u3044\u300d\u3068\u3001\u3059\u3050\u306b\u3001\u300c\u7121\u99c4\u30fb\u304b\u3064\u30fb\u30e1\u30f3\u30c6\u3057\u306b\u304f\u3044\u30eb\u30fc\u30d7\u304c\u5897\u3048\u308b\u300d\uff1d\u7121\u99c4\u306a\u6642\u9593\u30b3\u30b9\u30c8\u3084\u91d1\u984d\u30b3\u30b9\u30c8\u304c\u5897\u3048\u308b\u3001\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u308b\u306e\u3067\u3001\u7f6a\u3067\u3042\u308b\u3053\u3068\u306f\u78ba\u304b\u306a\u306e\u3067\u3059\u3002<BR><br \/>\n<font style=\"border-bottom:3px double #ff0000;\"><span style=\"color: #0000ff;\"><b>\u7279\u306b\u300c\u7d4c\u55b6\u8005\u76ee\u7dda\u300d\u3001\u300c\u72ec\u7acb\u3059\u308b\u4eba\u9593\u76ee\u7dda\u300d\u3001\u3067\u306f\u3002<\/b><\/span><\/font><\/b><\/span><\/b><\/span><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u203b\u88dc\u8db301\uff1a<br \/>\n\u30b3\u30fc\u30c9\u306e\uff12\u884c\u76ee\uff5e\uff19\u884c\u76ee\uff08\u6700\u521d\u306e FROM\u306e\u6b21\u304b\u3089\u3001\u300cAS C\u8868\u300d \u306e\u524d\u307e\u3067\uff09\u306e\u30ab\u30c3\u30b3\u306e\u4e2d\u304c<br \/>\n\u300c\u526f\u554f\u3044\u5408\u308f\u305b\uff08\u30b5\u30d6\u30af\u30a8\u30ea\u3068\u3082\u8a00\u3044\u307e\u3059\uff09\u300d\u3068\u547c\u3070\u308c\u308b\u90e8\u5206\u3068\u306a\u308a\u307e\u3059\u3002<br \/>\n\u3053\u306e\u30ab\u30c3\u30b3\u306e\u4e2d\u3067\u300c\u91cd\u8907\u30c7\u30fc\u30bf\u306e\u62bd\u51fa\u300d\u3092\u3057\u3066\u3044\u307e\u3059\u3002<br \/>\n\u30ab\u30c3\u30b3\u306e\u5916\u3067\u3001\u300c\u305d\u306e\u91cd\u8907\u4ee5\u5916\u306e\u30c7\u30fc\u30bf\u306e\u62bd\u51fa\u300d\u3092\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u203b\u88dc\u8db302\uff1a<br \/>\n\u6700\u7d42\u7684\u306b\u306f\u3001\u4e0a\u8a18\u306e\u3088\u3046\u306aSQL\u6587\u3092\u66f8\u304d\u307e\u3059\u304c\u3001<br \/>\n\u91cd\u8907\u30c1\u30a7\u30c3\u30af\u3057\u305f\u3044\u5217\u304c\u5897\u3048\u308b\u3054\u3068\u306b\u3001<br \/>\n\u300cAND (A\u8868.\u521704 = B\u8868.\u521704)\u300d\u306e\u884c \u4ee5\u964d\u3092\u3001<br \/>\n\u3000\u3000AND (A\u8868.\u521705 = B\u8868.\u521705)<br \/>\n\u3000\u3000AND (A\u8868.\u521706 = B\u8868.\u521706)<br \/>\n\u3000\u3000AND (A\u8868.\u521707 = B\u8868.\u521707)\u30fb\u30fb\u30fb<br \/>\n\u3068\u3044\u3046\u611f\u3058\u3067\u5897\u3084\u3057\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n<p>\u9006\u306b\u3001\u300c\u521703\u3068\u521705\u3060\u3051\u306e\u540c\u6642\u91cd\u8907\u3092\u8abf\u3079\u308b\u3060\u3051\u3067\u3044\u3044\u30fb\u30fb\u30fb\u3001\u3068\u3044\u3046\u5834\u5408\u306f\u3001<\/p>\n<p>\u3000\u3000ON\u3000\u3000\u3000(A\u8868.\u521703 = B\u8868.\u521703)<br \/>\n\u3000\u3000\u3000\u3000AND (A\u8868.\u521705 = B\u8868.\u521705)<\/p>\n<p>\u3068\u3044\u3046\u5f62\u306b\u6e1b\u3089\u3057\u307e\u3059\u3002<\/p>\n<p>\u4f8b\u3048\u3070\u300c\u6c0f\u540d\u306e\u5217\u3068\u5e02\u533a\u753a\u6751\u306e\u5217\u3060\u3051\u306e\u540c\u6642\u91cd\u8907\u3092\u8abf\u3079\u308b\u3060\u3051\u3067\u3044\u3044\u30fb\u30fb\u30fb\u300d\u3068\u3044\u3046\u5834\u5408\u306f\u3001<\/p>\n<p>\u3000\u3000ON\u3000\u3000\u3000(A\u8868.\u6c0f\u540d = B\u8868.\u6c0f\u540d)<br \/>\n\u3000\u3000\u3000\u3000AND (A\u8868.\u5e02\u533a\u753a\u6751 = B\u8868.\u5e02\u533a\u753a\u6751)<\/p>\n<p>\u3068\u3044\u3046\u66f8\u304d\u65b9\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001\u3082\u3057 B\u8868\u5074\u3067\u3001\u672c\u6765\u300c\u5e02\u533a\u753a\u6751\u300d\u3068\u306a\u308b\u306f\u305a\u306e\u5217\u304c\u300c\u5e02\u300d\u3068\u3044\u3046\u5217\u540d\u306b\u306a\u3063\u3066\u3057\u307e\u3063\u3066\u3044\u305f\u3089\u3001<\/p>\n<p>\u3000\u3000ON\u3000\u3000\u3000(A\u8868.\u6c0f\u540d = B\u8868.\u6c0f\u540d)<br \/>\n\u3000\u3000\u3000\u3000AND (A\u8868.\u5e02\u533a\u753a\u6751 = B\u8868.\u5e02)<\/p>\n<p>\u3068\u3044\u3046\u66f8\u304d\u65b9\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u5404\u884c\u306e\u5148\u982d\u306b\u30b9\u30da\u30fc\u30b9\u306f\u5fc5\u305a\u5165\u308c\u3066\u304a\u304d\u307e\u3059\u3002<br \/>\n\uff08\u3042\u3068\u3067\u81ea\u52d5\u7684\u306b\u9069\u91cf\u306b\u30ab\u30c3\u30c8\u3055\u308c\u307e\u3059\u306e\u3067\u3002\uff09<\/p>\n<p><span style=\"color: #ff0000;\"><b>SELECT\u3001FROM\u3001LIGHT\u3001REFT\u3001\u305d\u306e\u4ed6\u3001\u306a\u3069\u3092\u300c\u53e5\u300d\u3068\u547c\u3076\u3093\u3067\u3059\u304c\u3001\u305d\u306e\u524d\u5f8c\u306f\u300c\u534a\u89d2\u30b9\u30da\u30fc\u30b9\u306a\u3089\u3069\u308c\u3060\u3051\u5165\u3063\u3066\u3044\u3066\u3082OK\u3067\u3059\u3002\u305f\u3060\u3057\u3001\u300c\u5168\u89d2\u30b9\u30da\u30fc\u30b9\u300d\u304c\u5165\u308b\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u304b\u3089\u3001\u7d76\u5bfe\u306b\u5168\u89d2\u30b9\u30da\u30fc\u30b9\u306f\u4f7f\u308f\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002<\/b><\/span><br \/>\n<span style=\"color: #0000ff;\"><b>\u7279\u306b\u3001Web\u304b\u3089\u306e\u30b5\u30f3\u30d7\u30eb\u306e\u30b3\u30d4\u30da\u306e\u5834\u5408\u3001\u306a\u3093\u3089\u304b\u306e\u7406\u7531\u3067\u5168\u89d2\u30b9\u30da\u30fc\u30b9\u304c\u6df7\u3056\u308b\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u672c\u5f53\u306b\u6ce8\u610f\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u547d\u4ee4\u6587\u304c\u5b8c\u74a7\u3067\u3082\u30a8\u30e9\u30fc\u304c\u51fa\u7d9a\u3051\u3066\u3057\u307e\u3044\u307e\u3059\u3002<\/b><\/span><\/p>\n<p>\u203b\u88dc\u8db303\uff1a<br \/>\nSQL\u6587\u306e\u4f5c\u6210\u306b\u95a2\u3057\u3066\u306f\u3001<br \/>\n\u30c6\u30ad\u30b9\u30c8\u30a8\u30c7\u30a3\u30bf\u3084Word\u306a\u3069\u3092\u5229\u7528\u3057\u3066\u3001A\u8868\u3001B\u8868\u3001\u306e\u90e8\u5206\u3092\u7f6e\u63db\u3057\u3001<br \/>\n\u305d\u306e\u3042\u3068\u3001\u521701\uff5e\u521704 \u3082\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u7f6e\u63db\u3057\u307e\u3059\u3002<br \/>\n\u305d\u3046\u3059\u308c\u3070\u3001\u4f5c\u696d\u304c\u30e9\u30af\u306b\u306a\u308b\u304b\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\nC\u8868\u306f\u7f6e\u63db\u3057\u307e\u305b\u3093\u3002<br \/>\n\uff08\u203bVBA\u3067\u4f7f\u3046\u5834\u5408\u3067\u3082\u3001Microsoft Query\u3001<br \/>\n\u3000\u3000\u3042\u308b\u3044\u306fAccess\u305d\u306e\u4ed6\u3067\u4f7f\u3046\u5834\u5408\u3067\u3082\u540c\u3058\u3067\u3059\u3002\uff09<\/p>\n<p>\u7f6e\u63db\u3067\u306f\u99c4\u76ee\u306a\u5834\u5408\u306f\u3001<br \/>\n\u5fc5\u8981\u306b\u5fdc\u3058\u3066\u3001\u8868\uff08\u30b7\u30fc\u30c8\u5074\uff09\u306e\u307b\u3046\u306e\u5217\u540d\u3092\u624b\u4fee\u6b63\u3067\u66f8\u304d\u63db\u3048\u308b\u304b\u3001<br \/>\nSQL\u6587\u306e\u307b\u3046\u306e \u521701\uff5e\u521704 \u306e\u90e8\u5206\u3092\u3001<br \/>\n\u73fe\u72b6\u306b\u5408\u81f4\u3059\u308b\u3088\u3046\u306b\u624b\u4fee\u6b63\u3067\u66f8\u304d\u63db\u3048\u307e\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001B\u8868\u3068A\u8868\u3092\u9006\u306b\u3057\u3066\u8abf\u3079\u305f\u304b\u3063\u305f\u3089\u30fb\u30fb\u30fb\u30fb\u3001<br \/>\n\u4f8b\u3048\u3070\u300cB\u8868\u5074\u3067\u306f\u306a\u304f\u3001A\u8868\u5074\u306e\u884c\u3092\u30d4\u30c3\u30af\u30a2\u30c3\u30d7\u3084\u524a\u9664\u300d<br \/>\n\u3068\u3044\u3046\u3053\u3068\u3092\u3057\u305f\u304b\u3063\u305f\u3089\u3001\u5358\u7d14\u306b\u3001\u9006\u306b\u7f6e\u63db\u3059\u308c\u3070\u3044\u3044\u3060\u3051\u3067\u3059\u3002<br \/>\n\u305f\u3060\u3001\u305d\u306e\u5834\u5408\u3001\u4e21\u65b9\u306e\u8868\u306e\u9593\u3067\u5217\u540d\u304c\u4e00\u90e8\u7570\u306a\u308b\u3088\u3046\u306a\u5834\u5408\u306f\u3001<br \/>\n\u305d\u308c\u3092\u305d\u306e\u72b6\u6cc1\u306b\u5408\u81f4\u3059\u308b\u3088\u3046\u306b\uff08\u5217\u540d\u3092\uff09\u624b\u4fee\u6b63\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \uff12\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u306e\u9593\u3067\u306e\u91cd\u8907\u30c1\u30a7\u30c3\u30af<\/p>\n<p>\uff14\u3064\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u306e\u4f8b<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT\r\n   T99_\u793e\u54e1\u30de\u30b9\u30bf.\u9023\u756a,\r\n   t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n FROM T99_\u793e\u54e1\u30de\u30b9\u30bf\r\n   INNER JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n   ON (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u756a\u53f7 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u756a\u53f7)\r\n   AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u540d = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u540d)\r\n   AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u9000\u793e\u65e5\u4ed8 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9000\u793e\u65e5\u4ed8)\r\n   AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u5165\u5ba4ID = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u5165\u5ba4ID);\r\n\r\n\u7d50\u679c\uff1a\r\nT99_\u793e\u54e1\u30de\u30b9\u30bf.\u9023\u756a\tt99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n1\t4\r\n3\t2\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605 \uff12\u3064\u306e\u30c6\u30fc\u30d6\u30eb\u306e\u9593\u3067\u306e\u4e0d\u4e00\u81f4\u30c7\u30fc\u30bf\u306e\u30c1\u30a7\u30c3\u30af\uff08\u526f\u554f\u3044\u5408\u308f\u305b\u306e\u5229\u7528\uff09<\/p>\n<p>\u203b\u5143\u3068\u306a\u308b\u30c6\u30fc\u30d6\u30eb\u304cT99_\u793e\u54e1\u30de\u30b9\u30bf<br \/>\n\u3000\u91cd\u8907\u30c7\u30fc\u30bf\u3092\u6d88\u3057\u305f\u3044\u30c6\u30fc\u30d6\u30eb\u304ct99_\u793e\u54e1\u30de\u30b9\u30bf002<\/p>\n<p>\u30ab\u30c3\u30c8\u3057\u305f\u3044\u9023\u756a\u3060\u3051\u3092\u9078\u629e\u3057\u3066\u8868\u793a\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n FROM (SELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n       FROM T99_\u793e\u54e1\u30de\u30b9\u30bf\r\n       LEFT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n       ON (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u756a\u53f7 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u756a\u53f7)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u540d = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u540d)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u9000\u793e\u65e5\u4ed8 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9000\u793e\u65e5\u4ed8)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u5165\u5ba4ID = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u5165\u5ba4ID)\r\n       WHERE t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a Is Not Null) AS C\u8868\r\n    RIGHT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n    ON C\u8868.\u9023\u756a = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n WHERE C\u8868.\u9023\u756a Is Null;\r\n\r\n\u7d50\u679c\uff1a\r\n\u9023\u756a\r\n3\r\n1\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u30ab\u30c3\u30c8\u3057\u305f\u3044\u9023\u756a\u3082\u3001\u6c0f\u540d\u305d\u306e\u4ed6\u3059\u3079\u3066\u3092\u3082\u9078\u629e\u3057\u3066\u8868\u793a\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.*\r\n FROM (SELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n       FROM T99_\u793e\u54e1\u30de\u30b9\u30bf\r\n       LEFT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n       ON (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u756a\u53f7 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u756a\u53f7)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u540d = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u540d)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u9000\u793e\u65e5\u4ed8 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9000\u793e\u65e5\u4ed8)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u5165\u5ba4ID = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u5165\u5ba4ID)\r\n       WHERE t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a Is Not Null) AS C\u8868\r\n    RIGHT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n    ON C\u8868.\u9023\u756a = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n WHERE C\u8868.\u9023\u756a Is Null;\r\n\r\n\u7d50\u679c\uff1a\r\n\u9023\u756a\t\u793e\u54e1\u756a\u53f7\t\u793e\u54e1\u540d\t\u9000\u793e\u65e5\u4ed8\t\u5165\u5ba4ID\r\n3\t6\t\u7530\u4e2d \u6b63\u5fd7\t2019\/05\/17\t9\r\n1\t5\t\u4e26\u6728 \u4f73\u91ce\t2019\/09\/19\t2\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n===========================================<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u2605 \u53c2\u8003\u64cd\u4f5c<\/p>\n<p><span style=\"color: #ff0000;\"><b>\u203b \u3059\u307f\u307e\u305b\u3093\uff01\u30df\u30b9\u3067\u3059\uff01\u3053\u306e\u300c\u53c2\u8003\u64cd\u4f5c\u300d\u306e\u9805\u306e\u3068\u3053\u308d\u3060\u3051\u3001\u300c\u524a\u9664\u5206\u300d\u3092\u300c\u91cd\u8907\u5206\u300d\u306b\u8aad\u307f\u66ff\u3048\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\uff08SQL\u5185\u5bb9\u3082\u3002\uff09<\/b><\/span><\/p>\n<p>(A)\u307e\u305a\u300ct99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206\u300d\u30af\u30a8\u30ea\u3092\u4f5c\u6210<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n FROM T99_\u793e\u54e1\u30de\u30b9\u30bf\r\n LEFT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n ON (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u756a\u53f7 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u756a\u53f7)\r\n AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u540d = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u540d)\r\n AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u9000\u793e\u65e5\u4ed8 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9000\u793e\u65e5\u4ed8)\r\n AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u5165\u5ba4ID = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u5165\u5ba4ID)\r\n WHERE t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a Is Not Null;\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n(B)\u305d\u306e\u300ct99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206\u300d\u30af\u30a8\u30ea\u3092\u3082\u3068\u306b\u3001\u4e0d\u4e00\u81f4\u30af\u30a8\u30ea\u3092\u4f5c\u6210<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.*\r\nFROM t99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206\r\n RIGHT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n ON t99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206.\u9023\u756a = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\nWHERE t99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206.\u9023\u756a Is Null;\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n(C)\u4e0a\u8a18\u306e\uff12\u3064\u306e\u30af\u30a8\u30ea\u3092\u3072\u3068\u3064\u306b\u307e\u3068\u3081\u308b\uff08\u526f\u554f\u3044\u5408\u308f\u305b\u306e\u5229\u7528\u3002\uff09<br \/>\n\u65b9\u6cd5\u306f\u3001\u307e\u305a\u3001(B)\u306eFROM\u53e5\u306e\u300ct99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206\u300d\u306e\u90e8\u5206\u3092\u3001<br \/>\n(A)\u306e\u300ct99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206\u300d\u30af\u30a8\u30ea\u306e\u5185\u5bb9\u306b\u7f6e\u304d\u63db\u3048\u3001\u300cAS C\u8868\u300d\uff08C\u8868\uff09\u3068\u3057\u3001<br \/>\nRIGHT JOIN \u53e5 \u3084 WHERE\u53e5 \u306e\u300ct99_\u793e\u54e1\u30de\u30b9\u30bf002\u524a\u9664\u5206\u300d\u3068\u8a18\u8ff0\u3055\u308c\u305f\u3068\u3053\u308d\u3092<br \/>\n\u300cC\u300d\uff08C\u8868\uff09\u306b\u66f8\u304d\u63db\u3048\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.*\r\n FROM (SELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n       FROM T99_\u793e\u54e1\u30de\u30b9\u30bf\r\n       LEFT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n       ON (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u756a\u53f7 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u756a\u53f7)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u540d = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u540d)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u9000\u793e\u65e5\u4ed8 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9000\u793e\u65e5\u4ed8)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u5165\u5ba4ID = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u5165\u5ba4ID)\r\n       WHERE t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a Is Not Null) AS C\u8868\r\n    RIGHT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n    ON C\u8868.\u9023\u756a = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n WHERE C\u8868.\u9023\u756a Is Null;\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n(D)\u3000(C)\u3067\u3001\u30ea\u30b9\u30c8\u30a2\u30c3\u30d7\u3055\u308c\u305f\u5185\u5bb9\u304c\u78ba\u8a8d\u3067\u304d\u305f\u3089\u3001<br \/>\n\u3000\u300cSELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.*\u300d\u306e\u300c*\u300d\u3092\u300c\u9023\u756a\u300d\u306b\u66f8\u304d\u63db\u3048\u308b\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n FROM (SELECT t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n       FROM T99_\u793e\u54e1\u30de\u30b9\u30bf\r\n       LEFT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n       ON (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u756a\u53f7 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u756a\u53f7)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u793e\u54e1\u540d = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u793e\u54e1\u540d)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u9000\u793e\u65e5\u4ed8 = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9000\u793e\u65e5\u4ed8)\r\n       AND (T99_\u793e\u54e1\u30de\u30b9\u30bf.\u5165\u5ba4ID = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u5165\u5ba4ID)\r\n       WHERE t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a Is Not Null) AS C\u8868\r\n    RIGHT JOIN t99_\u793e\u54e1\u30de\u30b9\u30bf002\r\n    ON C\u8868.\u9023\u756a = t99_\u793e\u54e1\u30de\u30b9\u30bf002.\u9023\u756a\r\n WHERE C\u8868.\u9023\u756a Is Null;\r\n\r\n'\r\n'\r\n<\/pre>\n<p>===========================================<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u2605 Excel\u306eMicrosoft Query \u3084\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff0bVBA\uff08ODBC\u7b49\uff09\u306e\u5834\u5408<\/p>\n<p>\u203b\u8aad\u307f\u8fbc\u307f\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u304cExcel\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u5408\u3001\u30c6\u30fc\u30d6\u30eb\u540d\u306b\u306f\u300c&\u300d\u3092\u3064\u3051\u3066\u3001[ ]\uff08\u3042\u308b\u3044\u306f\u30d0\u30c3\u30af\u30b9\u30e9\u30c3\u30b7\u30e5\uff09\u3067\u56f2\u3080\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<br \/>\n\u4eee\u60f3\u8868\u306e\u300cC\u8868\u300d\u306b\u3082\u305d\u308c\u3092\u304a\u3053\u306a\u3044\u307e\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001\u8aad\u307f\u8fbc\u307f\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u3001\u300e \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3084Access\u30d5\u30a1\u30a4\u30eb\u3001SQL Server \u306a\u3069 \u300f\u3067\u3057\u305f\u3089\u3001Microsoft Query \u3084QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u306e\u5229\u7528\u3067\u3042\u3063\u3066\u3082\u3001\u305d\u306eSQL \u6587\u306e\u30c6\u30fc\u30d6\u30eb\u540d\u306b\u306f\u3001\u305d\u306e\u51e6\u7f6e\u306f\u8981\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>(\u3053\u306e\u8a18\u4e8b\u306e\u6700\u521d\u306b\u3054\u7d39\u4ecb\u3057\u305f\u3088\u3046\u306aSQL \u6587\u3068\u306a\u308a\u307e\u3059\u3002)<\/p>\n<p>\u53c2\u8003\uff1a\u300e<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/msq-vba-ok-sql01\" target=\"_blank\" rel=\"noopener noreferrer\">\u300cVBA\u30d7\u30ed\u30b0\u30e9\u30e0\u300d\u304b\u3089\u3082\u3001\u300cMicrosoftQuery\u306e\u753b\u9762\u300d\u304b\u3089\u3082\u64cd\u4f5c\u304c\u53ef\u80fd\u3068\u306a\u308b\u3001\u305d\u306e\u305f\u3081\u306e\u300cVBA\u304b\u3089\u306eSQL\u306e\u66f8\u304d\u65b9\u300d\u3084\u300c\u524d\u63d0\u6761\u4ef6\u300d\u306a\u3069\uff08\u6982\u8981\u8aac\u660e\u306e\u307f\uff09<\/a>\u300f<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n(01)Microsoft Query\u306e\u300cSQL\u300d\u30dc\u30bf\u30f3\u62bc\u4e0b\u306e\u5834\u5408<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSELECT [B\u8868$].*\r\n FROM (SELECT [B\u8868$].\u9023\u756a\r\n       FROM [A\u8868$]\r\n       LEFT JOIN [B\u8868$]\r\n       ON ([A\u8868$].\u521701 = [B\u8868$].\u521701)\r\n       AND ([A\u8868$].\u521702 = [B\u8868$].\u521702)\r\n       AND ([A\u8868$].\u521703 = [B\u8868$].\u521703)\r\n       AND ([A\u8868$].\u521704 = [B\u8868$].\u521704)\r\n       WHERE [B\u8868$].\u9023\u756a Is Not Null) AS [C\u8868$]\r\n    RIGHT JOIN [B\u8868$]\r\n    ON [C\u8868$].\u9023\u756a = [B\u8868$].\u9023\u756a\r\n WHERE [C\u8868$].\u9023\u756a Is Null;\r\n\r\n\r\n\u4f8b\uff1a\r\nSELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].*\r\n FROM (SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\r\n       FROM [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\r\n       LEFT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\r\n       ON ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7)\r\n       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d)\r\n       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8)\r\n       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID)\r\n       WHERE [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a Is Not Null) AS [C\u8868$]\r\n    RIGHT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\r\n    ON [C\u8868$].\u9023\u756a = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\r\n WHERE [C\u8868$].\u9023\u756a Is Null;\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n(02)QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff0bVBA\uff08ODBC\u7b49\uff09\u306e\u5834\u5408\uff08\u5909\u6570\u5229\u7528\uff1aArrey\uff09<\/p>\n<p>\u6bd4\u8f03\u3057\u305f\u3044\u5217\u306e\u6570\u304c\u5897\u3048\u308b\u5834\u5408\u3001\u6761\u4ef6\u306e\u300cAND ([A\u8868$].\u5217\u00d7\u00d7\u00d7 = [B\u8868$].\u5217\u00d7\u00d7\u00d7)\"\u300d\u306e\u884c\u304c\u5897\u3048\u308b\uff08\u5897\u3084\u3059\uff09\u3088\u3046\u306a\u683c\u597d\u3068\u306a\u308a\u307e\u3059\u3002<br \/>\n\u305d\u306e\u969b\u306f\u3001<br \/>\n\u3000\u3000s_SQL02 = s_SQL02 & \" \u30fb\u30fb\u30fb\u30fb\u30fb\"<br \/>\n\u3000\u3000s_SQL03 = s_SQL03 & \" \u30fb\u30fb\u30fb\u30fb\u30fb\"<br \/>\n\u3000\u3000s_SQL04 = s_SQL04 & \" \u30fb\u30fb\u30fb\u30fb\u30fb\"<br \/>\n\u306e\u3001\u3068\u3053\u308d\u3067\u3001\u305d\u308c\u305e\u308c\u306e\u5909\u6570\u306b\u5747\u7b49\u306b\u5272\u308a\u632f\u3063\u3066\uff08\u5dee\u3057\u8fbc\u3093\u3067\uff09\u3044\u304d\u307e\u3059\u3002<\/p>\n<p>\" \u30fb\u30fb\u30fb\u30fb\u30fb\" \u306e\u4e2d\u306b\u66f8\u304f \u300cAND\u300d\u306e\u524d\u306f\u300c\u534a\u89d2\u306e\u300d\u30b9\u30da\u30fc\u30b9\u306a\u3089\u3044\u304f\u3064\u5165\u3063\u3066\u3044\u3066\u3082OK\u3067\u3059\u3002\u300c\u5168\u89d2\u300d\u306e\u30b9\u30da\u30fc\u30b9\u306f\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u7d76\u5bfe\u306b\u66f8\u304b\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u306a\u304a\u3001\u9006\u306b\u6761\u4ef6\u304c\u5c11\u306a\u3044\u6642\u306f<br \/>\n\u3000\u3000s_SQL02 = s_SQL02 & \" \u30fb\u30fb\u30fb\u30fb\u30fb\"<br \/>\n\u3000\u3000s_SQL03 = s_SQL03 & \"\"<br \/>\n\u3000\u3000s_SQL04 = s_SQL04 & \"\"<br \/>\n\u3068\u3044\u3063\u305f\u611f\u3058\u3067\u3001\u3069\u308c\u304b\u306e\u5909\u6570\u306f \"\" \u306b\u3057\u3066\u3057\u307e\u3063\u3066\u3082OK\u3067\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\ns_SQL01 = s_SQL01 & \"SELECT [B\u8868$].\u9023\u756a\"\r\ns_SQL01 = s_SQL01 & \" FROM (SELECT [B\u8868$].\u9023\u756a\"\r\ns_SQL01 = s_SQL01 & \"       FROM [A\u8868$]\"\r\ns_SQL01 = s_SQL01 & \"       LEFT JOIN [B\u8868$]\"\r\ns_SQL02 = s_SQL02 & \"       ON ([A\u8868$].\u521701 = [B\u8868$].\u521701)\"\r\ns_SQL02 = s_SQL02 & \"       AND ([A\u8868$].\u521702 = [B\u8868$].\u521702)\"\r\ns_SQL03 = s_SQL03 & \"       AND ([A\u8868$].\u521703 = [B\u8868$].\u521703)\"\r\ns_SQL04 = s_SQL04 & \"       AND ([A\u8868$].\u521704 = [B\u8868$].\u521704)\"\r\ns_SQL05 = s_SQL05 & \"       WHERE [B\u8868$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\ns_SQL05 = s_SQL05 & \"    RIGHT JOIN [B\u8868$]\"\r\ns_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [B\u8868$].\u9023\u756a\"\r\ns_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n'\r\n'\r\n<\/pre>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p>\u4f8b\uff1a\u4ed6\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u5438\u3044\u8fbc\u307f\u3002<\/p>\n<p>\u300c'\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306b\u7d50\u679c\u3092\u8868\u793a\u300d\u306e\u3068\u3053\u308d\u3067\u3001\u76f4\u63a5\u3001\u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\uff08\u30d5\u30eb\u30d1\u30b9\u3068\u30d1\u30b9\uff09\u3092\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002\uff08\u300c;DBQ=\u300d\u306e\u3068\u3053\u308d\u3067\u30d5\u30eb\u30d1\u30b9\u3092\u3001\u300c;DefaultDir=\u300d\u306e\u3068\u3053\u308d\u3067\u30d1\u30b9\u3092\u6307\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002\uff09<\/p>\n<p>\u203b\u5b9f\u884c\u3059\u308b\u524d\u306b\u3001\u5fc5\u305a\u524d\u56de\u306e\u7d50\u679c\u3092\u5217\u4e38\u3054\u3068\u3001\u524a\u9664\u3057\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u3067\u306a\u3044\u3068\u5b9f\u884c\u3059\u308b\u5ea6\u306b\u7d50\u679c\u306e\u8868\u304c\u5897\u3048\u3066\u3044\u3063\u305f\u308a\u3001\u51fa\u529b\u3059\u308b\u5217\u6570\u304c\u5c11\u306a\u3044\u3068\u3001\u524d\u56de\u306e\u7d50\u679c\u3068\u6a2a\u306b\u5408\u4f53\u3057\u3066\u3057\u307e\u3063\u3066\u300c\u4f55\u3082\u5909\u5316\u3057\u3066\u306a\u3044\u300d\u3068\u52d8\u9055\u3044\u3057\u3066\u3057\u307e\u3046\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub Test01()\r\n\r\n    Dim s_SQL01 As String\r\n    Dim s_SQL02 As String\r\n    Dim s_SQL03 As String\r\n    Dim s_SQL04 As String\r\n    Dim s_SQL05 As String\r\n\r\n    s_SQL01 = s_SQL01 & \"SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].*\"\r\n    s_SQL01 = s_SQL01 & \" FROM (SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL01 = s_SQL01 & \"       FROM [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n    s_SQL01 = s_SQL01 & \"       LEFT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL02 = s_SQL02 & \"       ON ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7)\"\r\n    s_SQL02 = s_SQL02 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d)\"\r\n    s_SQL03 = s_SQL03 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8)\"\r\n    s_SQL04 = s_SQL04 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID)\"\r\n    s_SQL05 = s_SQL05 & \"       WHERE [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\n    s_SQL05 = s_SQL05 & \"    RIGHT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n\r\n\r\n    '\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306b\u7d50\u679c\u3092\u8868\u793a\r\n    With ActiveSheet.QueryTables.Add(Connection:= _\r\n        \"ODBC;DSN=Excel Files;DBQ=D:\\1\\\u91cd\u8907\u30c1\u30a7\u30c3\u30aftest01.xls;DefaultDir=D:\\1;DriverId=790;MaxBufferSize=2048;PageTimeout=5;\" _\r\n        , Destination:=Range(\"A1\"))\r\n        .CommandText = Array(s_SQL01, s_SQL02, s_SQL03, s_SQL04, s_SQL05)\r\n        .Name = \"Excel Files \u304b\u3089\u306e\u30af\u30a8\u30ea\"\r\n        .FieldNames = True\r\n        .RowNumbers = False\r\n        .FillAdjacentFormulas = False\r\n        .PreserveFormatting = True\r\n        .RefreshOnFileOpen = False\r\n        .BackgroundQuery = True\r\n        .RefreshStyle = xlInsertDeleteCells\r\n        .SavePassword = True\r\n        .SaveData = True\r\n        .AdjustColumnWidth = True\r\n        .RefreshPeriod = 0\r\n        .PreserveColumnInfo = True\r\n        .Refresh BackgroundQuery:=False\r\n '       .Refresh\r\n    End With\r\n\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p>\u4f8b02\uff1a\u81ea\u30d5\u30a1\u30a4\u30eb\u30c7\u30fc\u30bf\u3092\u5229\u7528\u3057\u3066\u5438\u3044\u8fbc\u307f\u3001\u81ea\u30d5\u30a1\u30a4\u30eb\u306b\u3002<br \/>\n\u203b\u5b9f\u884c\u3059\u308b\u524d\u306b\u3001\u5fc5\u305a\u524d\u56de\u306e\u7d50\u679c\u3092\u5217\u4e38\u3054\u3068\u3001\u524a\u9664\u3057\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u3067\u306a\u3044\u3068\u5b9f\u884c\u3059\u308b\u5ea6\u306b\u7d50\u679c\u306e\u8868\u304c\u5897\u3048\u3066\u3044\u3063\u305f\u308a\u3001\u51fa\u529b\u3059\u308b\u5217\u6570\u304c\u5c11\u306a\u3044\u3068\u3001\u524d\u56de\u306e\u7d50\u679c\u3068\u6a2a\u306b\u5408\u4f53\u3057\u3066\u3057\u307e\u3063\u3066\u300c\u4f55\u3082\u5909\u5316\u3057\u3066\u306a\u3044\u300d\u3068\u52d8\u9055\u3044\u3057\u3066\u3057\u307e\u3046\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub Test02()\r\n\r\n    Dim s_SQL01 As String\r\n    Dim s_SQL02 As String\r\n    Dim s_SQL03 As String\r\n    Dim s_SQL04 As String\r\n    Dim s_SQL05 As String\r\n\r\n    Dim s_FilePath      As String\r\n    Dim s_FileNm        As String\r\n    Dim s_FileFullNm    As String\r\n   \r\n'    '\u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\r\n'    s_FilePath = \"D:\\1\"\r\n'    s_FileNm = \"\u91cd\u8907\u30c1\u30a7\u30c3\u30aftest01.xls\"\r\n'    s_FileFullNm = s_FilePath & \"\\\" & s_FileNm\r\n    \r\n    '\u81ea\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\r\n    s_FilePath = ThisWorkbook.Path\r\n    s_FileNm = ThisWorkbook.Name\r\n    s_FileFullNm = s_FilePath & \"\\\" & s_FileNm\r\n\r\n     s_SQL01 = s_SQL01 & \"SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].*\"\r\n    s_SQL01 = s_SQL01 & \" FROM (SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL01 = s_SQL01 & \"       FROM [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n    s_SQL01 = s_SQL01 & \"       LEFT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL02 = s_SQL02 & \"       ON ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7)\"\r\n    s_SQL02 = s_SQL02 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d)\"\r\n    s_SQL03 = s_SQL03 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8)\"\r\n    s_SQL04 = s_SQL04 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID)\"\r\n    s_SQL05 = s_SQL05 & \"       WHERE [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\n    s_SQL05 = s_SQL05 & \"    RIGHT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n    \r\n'    s_SQL01 = s_SQL01 & \"SELECT [T99_\u793e\u54e1\u30de\u30b9\u30bf$].*\"\r\n'    s_SQL01 = s_SQL01 & \" FROM (SELECT [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a\"\r\n'    s_SQL01 = s_SQL01 & \"       FROM [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n'    s_SQL01 = s_SQL01 & \"       LEFT JOIN [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n'    s_SQL02 = s_SQL02 & \"       ON ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7 = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7)\"\r\n'    s_SQL02 = s_SQL02 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d)\"\r\n'    s_SQL03 = s_SQL03 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8 = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8)\"\r\n'    s_SQL04 = s_SQL04 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID)\"\r\n'    s_SQL05 = s_SQL05 & \"       WHERE [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\n'    s_SQL05 = s_SQL05 & \"    RIGHT JOIN [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n'    s_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a\"\r\n'    s_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n    \r\n    \r\n    With ActiveSheet.QueryTables.Add(Connection:= _\r\n        \"ODBC;DSN=Excel Files;DBQ=\" & s_FileFullNm & \";DefaultDir=\" & s_FilePath & \";DriverId=790;MaxBufferSize=2048;PageTimeout=5;\" _\r\n        , Destination:=Range(\"A1\"))\r\n        .CommandText = Array(s_SQL01, s_SQL02, s_SQL03, s_SQL04, s_SQL05)\r\n        .Name = \"Excel Files \u304b\u3089\u306e\u30af\u30a8\u30ea\"\r\n        .FieldNames = True\r\n        .RowNumbers = False\r\n        .FillAdjacentFormulas = False\r\n        .PreserveFormatting = True\r\n        .RefreshOnFileOpen = False\r\n        .BackgroundQuery = True\r\n        .RefreshStyle = xlInsertDeleteCells\r\n        .SavePassword = True\r\n        .SaveData = True\r\n        .AdjustColumnWidth = True\r\n        .RefreshPeriod = 0\r\n        .PreserveColumnInfo = True\r\n        .Refresh BackgroundQuery:=False\r\n'        .Refresh\r\n    End With\r\n\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p>\u4f8b03\uff1aSQL\u3067\u5438\u3044\u8fbc\u3080\u52d5\u4f5c\u3092\u95a2\u6570\u5316\u3057\u3066\u3001\u81ea\u30d5\u30a1\u30a4\u30eb\u306b\u3002<br \/>\n\u5f8c\u8ff0\u306e\uff08\u30a4\uff09\u3084\uff08\u30ed\uff09\u306e\u90e8\u5206\u3060\u3051\u306e\u3088\u3046\u306b\u66f8\u3044\u3066\u3044\u3051\u3070OK\u3068\u306a\u308a\u307e\u3059\u3002<br \/>\n\u30c7\u30fc\u30bf\u306e\u62bd\u51fa\u3060\u3051\u306a\u3089\u3001\u305d\u308c\u3060\u3051\u306e\u30b3\u30fc\u30c9\u3067\u6e08\u307f\u307e\u3059\u3002<\/p>\n<p>\u203b\u5b9f\u884c\u3059\u308b\u524d\u306b\u3001\u524d\u56de\u306e\u7d50\u679c\u306f\u300c\u524a\u9664\u306a\u304f\u3066\u3082OK\u300d\u3067\u3059\u3002\u305d\u306e\u3088\u3046\u306a\u5bfe\u5fdc\u3092\u95a2\u6570\u5074\u3067\u3084\u3063\u3066\u3042\u308a\u307e\u3059\u306e\u3067\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub Macro4()\r\n'\r\n    Dim s_SQL01 As String\r\n    Dim s_SQL02 As String\r\n    Dim s_SQL03 As String\r\n    Dim s_SQL04 As String\r\n    Dim s_SQL05 As String\r\n    \r\n    Dim v_Sql01 As Variant\r\n    \r\n    Dim s_FilePath      As String\r\n    Dim s_FileNm        As String\r\n    Dim s_FileFullNm    As String\r\n   \r\n    Dim s_ShtNm01       As String\r\n    \r\n'    '\u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\r\n'    s_FilePath = \"D:\\1\"\r\n'    s_FileNm = \"\u91cd\u8907\u30c1\u30a7\u30c3\u30aftest01.xls\"\r\n'    s_FileFullNm = s_FilePath & \"\\\" & s_FileNm\r\n    \r\n    '\u81ea\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\r\n    s_FilePath = ThisWorkbook.Path\r\n    s_FileNm = ThisWorkbook.Name\r\n    s_FileFullNm = s_FilePath & \"\\\" & s_FileNm\r\n    \r\n    '\u5438\u3044\u8fbc\u3080\u30b7\u30fc\u30c8\u3092\u3069\u308c\u306b\u3059\u308b\u304b\u306e\u8a2d\u5b9a\r\n'    s_ShtNm01 = ActiveWorkbook.Worksheets(\"Sheet3\")\r\n    s_ShtNm01 = ActiveSheet.Name\r\n    \r\n    \r\n    s_SQL01 = s_SQL01 & \"SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].*\"\r\n    s_SQL01 = s_SQL01 & \" FROM (SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL01 = s_SQL01 & \"       FROM [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n    s_SQL01 = s_SQL01 & \"       LEFT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL02 = s_SQL02 & \"       ON ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7)\"\r\n    s_SQL02 = s_SQL02 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d)\"\r\n    s_SQL03 = s_SQL03 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8)\"\r\n    s_SQL04 = s_SQL04 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID)\"\r\n    s_SQL05 = s_SQL05 & \"       WHERE [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\n    s_SQL05 = s_SQL05 & \"    RIGHT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n    \r\n'    s_SQL01 = s_SQL01 & \"SELECT [T99_\u793e\u54e1\u30de\u30b9\u30bf$].*\"\r\n'    s_SQL01 = s_SQL01 & \" FROM (SELECT [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a\"\r\n'    s_SQL01 = s_SQL01 & \"       FROM [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n'    s_SQL01 = s_SQL01 & \"       LEFT JOIN [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n'    s_SQL02 = s_SQL02 & \"       ON ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7 = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7)\"\r\n'    s_SQL02 = s_SQL02 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d)\"\r\n'    s_SQL03 = s_SQL03 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8 = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8)\"\r\n'    s_SQL04 = s_SQL04 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID)\"\r\n'    s_SQL05 = s_SQL05 & \"       WHERE [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\n'    s_SQL05 = s_SQL05 & \"    RIGHT JOIN [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n'    s_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a\"\r\n'    s_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n    \r\n    v_Sql01 = Array(s_SQL01, s_SQL02, s_SQL03, s_SQL04, s_SQL05)\r\n    \r\n    Call vrtMakeMsqOwnFileTest02(s_FileFullNm, s_FilePath, s_ShtNm01, v_Sql01)\r\n    \r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n\r\n'###################################################################################################################################################################\r\n'\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u6307\u5b9a\u3057\u305f\u30b7\u30fc\u30c8\u306b\u4ed6\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf\u3092MicrosoftQuery\u306b\u8aad\u307f\u8fbc\u3080\u95a2\u6570\r\n'\uff08A1\u30bb\u30eb\u3092\u8d77\u70b9\u306b\u5438\u3044\u8fbc\u307f\uff09\r\n'\r\n'strSrcFullPath01  \uff1a\u8aad\u307f\u8fbc\u307f\u305f\u3044\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u4e00\u5fdcxlsm\u3084xlsx\u3002xls\u306e\u5834\u5408\u306f\"DriverId=1046;\"\u3092\"DriverId=790;\"\u306b\u5909\u3048\u305f\u307b\u3046\u304c\u3044\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\r\n'strSrcFdPath01    \uff1a\u8aad\u307f\u8fbc\u307f\u305f\u3044\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30a9\u30eb\u30c0\u30d1\u30b9\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\uff08\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u9664\u3044\u305f\u3082\u306e\uff09\r\n'strImpShtNm01     \uff1a\u5438\u3044\u8fbc\u307f\u305f\u3044\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30b7\u30fc\u30c8\u306e\u540d\u524d\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'vrtSql01          \uff1aSQL\u6587\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'                     \u53e5\u3054\u3068\u304b\u3001\u4e00\u5b9a\u306e\u6587\u5b57\u6570(300\u6587\u5b57\u3054\u3068\u304f\u3089\u3044\uff09\u3054\u3068\u306e\r\n'                     \u914d\u5217\u3068\u3057\u3066\u6271\u3044\u307e\u3059\u3002\r\n'                     SQL\u306e\u5b9f\u884c\u306e\u6bb5\u968e\u3067\u3001MicrosoftQuery\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u306e\r\n'                     CommandText\u30d7\u30ed\u30d1\u30c6\u30a3\u306b\u3053\u306e\u5909\u6570\u306b\u4ee3\u5165\u3057\u305fSQL\u6587\u3092\u6e21\u3059\u306e\u3067\u3059\u304c\u3001\r\n'                     \u305d\u308c\u304c\u300cVariant\u578b\u300d\u306e\u300c\u914d\u5217\u300d\u3067\u3042\u308b\u305f\u3081\u3001\r\n'                     \u3053\u3053\u3067\u3082Variant\u578b\u3092\u4f7f\u3044\u307e\u3059\uff61\r\n'\r\n'###################################################################################################################################################################\r\n\r\nSub vrtMakeMsqOwnFileTest02(strSrcFullPath01 As String, _\r\n                            strSrcFdPath01 As String, _\r\n                            strImpShtNm01 As String, _\r\n                            vrtSQL01 As Variant)\r\n\r\n    Dim Qt_MeQtbl01         As QueryTable\r\n    Dim strCnn01            As String\r\n    Dim Ws_MeSht01          As Worksheet\r\n    Dim objPrms01           As Parameters\r\n    \r\n    '***********************************************************************************************************************************\r\n    '\u8997\u304d\u306b\u884c\u304f\u30c7\u30fc\u30bf\u3078\u306e\u63a5\u7d9a\u3092\u3059\u308b\u3068\u304d\u306e\u3001\u63a5\u7d9a\u6587\u5b57\u5217\u306e\u8a2d\u5b9a\u3002\r\n    '\u63a5\u7d9a\u6587\u5b57\u5217\u304c\u6a2a\u306b\u9577\u304f\u3066\u898b\u306b\u304f\u304f\u306a\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u898b\u3084\u3059\u304f\u6271\u3044\u3084\u3059\u304f\uff08\u66f8\u304d\u63db\u3048\u3084\u3059\u304f\uff09\u3057\u307e\u3059\u3002\r\n    '\u3044\u3058\u308b\u306e\u306f\u300cDBQ\u300d\u300cDefaultDir\u300d\u300cDriverId\u300d\u306e\uff13\u3064\u3067\u3059\u3002DriverId\u306f\u300c790\u300d\u3067\u3082OK\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\r\n    '\r\n    '\u203b\u8a2d\u5b9a\u5024\u306e\u53c2\u8003Web\u30da\u30fc\u30b8\r\n    '\uff1ahttps:\/\/docs.microsoft.com\/ja-jp\/sql\/odbc\/microsoft\/odbc-jet-sqlconfigdatasource-excel-driver?view=sql-server-2017\r\n    '***********************************************************************************************************************************\r\n\r\n    strCnn01 = strCnn01 & \"ODBC;\"\r\n    strCnn01 = strCnn01 & \"DSN=Excel Files;\"\r\n   \r\n    strCnn01 = strCnn01 & \"DBQ=\" & strSrcFullPath01 & \";\"\r\n'    strCnn01 = strCnn01 & \"DBQ=D:\\1\\\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u30c6\u30b9\u30c8\u3084SQL\u3067\u4f7f\u3048\u308b\u30c6\u30fc\u30d6\u30eb\u306e\u7bc4\u56f2\u306e\u30c6\u30b9\u30c8.xlsm;\"\r\n\r\n    strCnn01 = strCnn01 & \"DefaultDir=\" & strSrcFdPath01 & \";\"\r\n'    strCnn01 = strCnn01 & \"DefaultDir=\" & ThisWorkbook.Path & \";\"\r\n\r\n    strCnn01 = strCnn01 & \"DriverId=1046;\"   '2010\u306e\u5834\u5408\uff1f\r\n'    strCnn01 = strCnn01 & \"DriverId=790;\"   '97\u30012000\uff5e2003\u306e\u5834\u5408\uff1f\r\n\r\n    strCnn01 = strCnn01 & \"MaxBufferSize=2048;\"\r\n    strCnn01 = strCnn01 & \"PageTimeout=5;\"\r\n\r\n\r\n\r\n    '*******************************************************************************\r\n    '\u3082\u3057\u6307\u5b9a\u3057\u305f\u30b7\u30fc\u30c8\u306bMicrosoftQuery\u306e\u7d50\u679c\u306e\u8868\uff08\uff1dQueryTables\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u304c\r\n    '\u7121\u304b\u3063\u305f\u3089\u3001\u4f5c\u3063\u3066\u8868\u793a\u3055\u305b\u308b\u51e6\u7406\u3002\r\n    '*******************************************************************************\r\n\r\n    '\u5438\u3044\u8fbc\u3080\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30b7\u30fc\u30c8\u3092\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u306b\u4ee3\u5165\u3057\u307e\u3059\u3002\r\n    Set Ws_MeSht01 = Application.ActiveWorkbook.Worksheets(strImpShtNm01)\r\n    \r\n    \r\n    '\u30e1\u30a4\u30f3\u306e\u51e6\u7406\r\n    If (Ws_MeSht01.QueryTables.Count <= 0) Then\r\n    \r\n        '\u6307\u5b9a\u3057\u305f\u30b7\u30fc\u30c8\u306bMicrosoftQuery\u306e\u7d50\u679c\u306e\u8868\u304c\u4f55\u3082\u7121\u304b\u3063\u305f\u3089\u4f5c\u3063\u3066\u7d42\u308f\u308b\u3002\r\n        \r\n        Set Qt_MeQtbl01 = Ws_MeSht01.QueryTables.Add( _\r\n                                        Connection:=strCnn01, _\r\n                                        Destination:=Ws_MeSht01.Range(\"A1\"))\r\n\r\n\r\n            Qt_MeQtbl01.CommandText = vrtSQL01   'SQL\u6587\u3092\u8a2d\u5b9a\r\n\r\n            Qt_MeQtbl01.Refresh                  'SQL\u6587\u306e\u5b9f\u884c\u3068\u53cd\u6620\r\n            \r\n            Exit Sub                           '\u4f55\u3082\u306a\u3044\u72b6\u614b\u304b\u3089\u4f5c\u3063\u305f\u306e\u3067\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u81ea\u4f53\u3092\u3053\u3053\u3067\u7d42\u308f\u3089\u305b\u307e\u3059\u3002\r\n\r\n    Else\r\n\r\n        '\u3082\u3057\u3059\u3067\u306b\u3001\u6307\u5b9a\u3057\u305f\u30b7\u30fc\u30c8\u306bMicrosoftQuery\u306e\u7d50\u679c\u306e\u8868\u304c\r\n        '\u3042\u3063\u305f\u3089\u4f55\u3082\u3057\u306a\u3044\u3067\u6b21\u3078\u3002\r\n\r\n    End If\r\n\r\n\r\n\r\n    '*******************************************************************************\r\n    '\u65e2\u306bMicrosoftQuery\u306e\u8868\u304c\u3042\u3063\u305f\u3089\u3001\u305d\u306e SQL\u5185\u5bb9\u3060\u3051\u3092\u66f8\u304d\u63db\u3048\u3066\u53cd\u6620\u3055\u305b\u308b\u51e6\u7406\u3002\r\n    '*******************************************************************************\r\n    \r\n    '\u3082\u3057\u3001\u65e2\u5b58\u306eMicrosoftQuery\u306e\u8868\u306b\u30d1\u30e9\u30e1\u30fc\u30bf\u304c\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u305f\u3089\u305d\u308c\u3092\u524a\u9664\u3002\r\n    '\u30d1\u30e9\u30e1\u30fc\u30bf\u304c\u30bb\u30eb\u306b\u8a2d\u5b9a\u3055\u308c\u3066\u3044\u305f\u5834\u5408\u3001\u65b0\u3057\u3044\u30af\u30a8\u30ea\u304c\u305d\u306e\u30bb\u30eb\u306b\u304b\u3076\u308b\u3068\r\n    '\u52d5\u4f5c\u304c\u304a\u304b\u3057\u304f\u306a\u308b\u3053\u3068\u304c\u3042\u308b\u305f\u3081\u3002\r\n    Set objPrms01 = Ws_MeSht01.QueryTables(1).Parameters\r\n    If 1 <= objPrms01.Count Then objPrms01.Delete\r\n    \r\n    '\u5b9f\u969b\u306eSQL\u6587\u306e\u66f8\u304d\u63db\u3048\u3068\u5b9f\u884c\r\n    Ws_MeSht01.QueryTables(1).CommandText = vrtSQL01               'SQL\u6587\u3092\u8a2d\u5b9a\uff08\u66f8\u304d\u63db\u3048\uff09\r\n    Ws_MeSht01.QueryTables(1).Refresh BackgroundQuery:=False       'SQL\u306e\u5b9f\u884c\u3068\u8868\u793a\r\n\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\uff08\u30a4\uff09\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u8aad\u307f\u8fbc\u3093\u3067\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30b7\u30fc\u30c8\u306b\u7d50\u679c\u3092\u8868\u793a\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub Macro4()\r\n'\r\n    Dim s_SQL01 As String\r\n    Dim s_SQL02 As String\r\n    Dim s_SQL03 As String\r\n    Dim s_SQL04 As String\r\n    Dim s_SQL05 As String\r\n    \r\n    Dim v_Sql01 As Variant\r\n    \r\n    Dim s_FilePath      As String\r\n    Dim s_FileNm        As String\r\n    Dim s_FileFullNm    As String\r\n   \r\n    Dim s_ShtNm01       As String\r\n    \r\n    '\u81ea\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\r\n    s_FilePath = ThisWorkbook.Path\r\n    s_FileNm = ThisWorkbook.Name\r\n    s_FileFullNm = s_FilePath & \"\\\" & s_FileNm\r\n    \r\n    '\u5438\u3044\u8fbc\u3080\u30b7\u30fc\u30c8\u3092\u3069\u308c\u306b\u3059\u308b\u304b\u306e\u8a2d\u5b9a\r\n'    s_ShtNm01 = ActiveWorkbook.Worksheets(\"Sheet3\")\r\n    s_ShtNm01 = ActiveSheet.Name\r\n    \r\n    \r\n    s_SQL01 = s_SQL01 & \"SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].*\"\r\n    s_SQL01 = s_SQL01 & \" FROM (SELECT [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL01 = s_SQL01 & \"       FROM [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n    s_SQL01 = s_SQL01 & \"       LEFT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL02 = s_SQL02 & \"       ON ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7)\"\r\n    s_SQL02 = s_SQL02 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d)\"\r\n    s_SQL03 = s_SQL03 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8 = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8)\"\r\n    s_SQL04 = s_SQL04 & \"       AND ([T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID)\"\r\n    s_SQL05 = s_SQL05 & \"       WHERE [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\n    s_SQL05 = s_SQL05 & \"    RIGHT JOIN [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9023\u756a\"\r\n    s_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n     \r\n    v_Sql01 = Array(s_SQL01, s_SQL02, s_SQL03, s_SQL04, s_SQL05)\r\n    \r\n    Call vrtMakeMsqOwnFileTest02(s_FileFullNm, s_FilePath, s_ShtNm01, v_Sql01)\r\n    \r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\uff08\u30ed\uff09\u4ed6\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u8aad\u307f\u8fbc\u3093\u3067\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30b7\u30fc\u30c8\u306b\u7d50\u679c\u3092\u8868\u793a\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub Macro4()\r\n'\r\n    Dim s_SQL01 As String\r\n    Dim s_SQL02 As String\r\n    Dim s_SQL03 As String\r\n    Dim s_SQL04 As String\r\n    Dim s_SQL05 As String\r\n    \r\n    Dim v_Sql01 As Variant\r\n    \r\n    Dim s_FilePath      As String\r\n    Dim s_FileNm        As String\r\n    Dim s_FileFullNm    As String\r\n   \r\n    Dim s_ShtNm01       As String\r\n    \r\n    '\u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\r\n    s_FilePath = \"D:\\1\"\r\n    s_FileNm = \"\u91cd\u8907\u30c1\u30a7\u30c3\u30aftest01.xls\"\r\n    s_FileFullNm = s_FilePath & \"\\\" & s_FileNm\r\n        \r\n    '\u5438\u3044\u8fbc\u3080\u30b7\u30fc\u30c8\u3092\u3069\u308c\u306b\u3059\u308b\u304b\u306e\u8a2d\u5b9a\r\n'    s_ShtNm01 = ActiveWorkbook.Worksheets(\"Sheet3\")\r\n    s_ShtNm01 = ActiveSheet.Name    \r\n\r\n    s_SQL01 = s_SQL01 & \"SELECT [T99_\u793e\u54e1\u30de\u30b9\u30bf$].*\"\r\n    s_SQL01 = s_SQL01 & \" FROM (SELECT [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a\"\r\n    s_SQL01 = s_SQL01 & \"       FROM [t99_\u793e\u54e1\u30de\u30b9\u30bf002$]\"\r\n    s_SQL01 = s_SQL01 & \"       LEFT JOIN [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n    s_SQL02 = s_SQL02 & \"       ON ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u756a\u53f7 = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u756a\u53f7)\"\r\n    s_SQL02 = s_SQL02 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u793e\u54e1\u540d = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u793e\u54e1\u540d)\"\r\n    s_SQL03 = s_SQL03 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u9000\u793e\u65e5\u4ed8 = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9000\u793e\u65e5\u4ed8)\"\r\n    s_SQL04 = s_SQL04 & \"       AND ([t99_\u793e\u54e1\u30de\u30b9\u30bf002$].\u5165\u5ba4ID = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u5165\u5ba4ID)\"\r\n    s_SQL05 = s_SQL05 & \"       WHERE [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a Is Not Null) AS [C\u8868$]\"\r\n    s_SQL05 = s_SQL05 & \"    RIGHT JOIN [T99_\u793e\u54e1\u30de\u30b9\u30bf$]\"\r\n    s_SQL05 = s_SQL05 & \"    ON [C\u8868$].\u9023\u756a = [T99_\u793e\u54e1\u30de\u30b9\u30bf$].\u9023\u756a\"\r\n    s_SQL05 = s_SQL05 & \" WHERE [C\u8868$].\u9023\u756a Is Null;\"\r\n    \r\n    v_Sql01 = Array(s_SQL01, s_SQL02, s_SQL03, s_SQL04, s_SQL05)\r\n    \r\n    Call vrtMakeMsqOwnFileTest02(s_FileFullNm, s_FilePath, s_ShtNm01, v_Sql01)\r\n    \r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eA\u8868\u3068B\u8868\u306e\u5185\u5bb9\u3092\uff08\u9023\u756a\u5217\u4ee5\u5916\u306e\uff09\u300c\u3059\u3079\u3066\u306e\u5217\u300d\u3067\u6bd4\u8f03\u3057\u3066\u3001B\u8868\u304b\u3089\u3001\u300c\u91cd\u8907\u3057\u306a\u3044\u884c\u300d\u3092\u53d6\u308a\u51fa\u3059\u3002\uff08\u3067\u304d\u305f\u3089\u3001\u300c\u62bd\u51fa\u3055\u308c\u305f\u3082\u306e\u300d\u306b\u3064\u3044\u3066\u4f55\u304b\u3059\u308b\u305f\u3081\u306b\uff09 \u3000\u3000 \u203b ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1568"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1568"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1568\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1568"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1568"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}