{"id":2022,"date":"2025-03-28T21:38:03","date_gmt":"2025-03-28T12:38:03","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=2022"},"modified":"2025-03-29T12:12:41","modified_gmt":"2025-03-29T03:12:41","slug":"add-qrytable_tate-ketugou_clumn-name-base01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/add-qrytable_tate-ketugou_clumn-name-base01","title":{"rendered":"\u2605ExcelVBA ~ \u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u304b\u308f\u308a~ SQL\u3068ODBC\u3067\u3001\u30d6\u30c3\u30af\u5185\u306e\u5168\u30b7\u30fc\u30c8\u3092\u300c\u5217\u540d\u6307\u5b9a\u3060\u3051\u3067\u300d\u3001\u7e26\u306b\u7d50\u5408\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\u5217\u3055\u3048\u3042\u308c\u3070\u305d\u306e\u4e26\u3073\u9806\u306f\u5de6\u53f3\u3050\u3061\u3083\u3050\u3061\u3083\u3067\u3082OK\uff01\uff01\uff08\u3082\u3057\u3069\u3053\u304b\u306e\u30b7\u30fc\u30c8\u306b\u300c\u8db3\u3089\u306a\u3044\u5217\u300d\u304c\u3042\u3063\u305f\u5834\u5408\u306f\u3001\u305d\u306e\u5217\u3092\u300c\u30c7\u30fc\u30bf\u7121\u3057\u300d\u3067\u81ea\u52d5\u8ffd\u52a0\u3057\u306a\u304c\u3089\u3002\uff09"},"content":{"rendered":"

\u2605ExcelVBA ~ \u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u304b\u308f\u308a~ SQL\u3068ODBC\u3067\u3001\u30d6\u30c3\u30af\u5185\u306e\u5168\u30b7\u30fc\u30c8\u3092\u300c\u5217\u540d\u6307\u5b9a\u3060\u3051\u3067\u300d\u3001\u7e26\u306b\u7d50\u5408\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\u5217\u3055\u3048\u3042\u308c\u3070\u305d\u306e\u4e26\u3073\u9806\u306f\u5de6\u53f3\u3050\u3061\u3083\u3050\u3061\u3083\u3067\u3082OK\uff01\uff01\uff08\u3082\u3057\u3069\u3053\u304b\u306e\u30b7\u30fc\u30c8\u306b\u300c\u8db3\u3089\u306a\u3044\u5217\u300d\u304c\u3042\u3063\u305f\u5834\u5408\u306f\u3001\u305d\u306e\u5217\u3092\u300c\u30c7\u30fc\u30bf\u7121\u3057\u300d\u3067\u81ea\u52d5\u8ffd\u52a0\u3057\u306a\u304c\u3089\u3002\uff09
\n\u3000\u3000<\/SPAN>
\n\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\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

\u3000\u3000<\/SPAN><\/p>\n

\u30d6\u30c3\u30af\u5185\u306e\u5168\u30b7\u30fc\u30c8\u3092\u300c\u5217\u540d\u6307\u5b9a\u3060\u3051\u3067\u300d\u3001\u7e26\u306b\u7d50\u5408\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002<\/p>\n

\u5404\u30b7\u30fc\u30c8\u5185\u306b\u4e0d\u8db3\u5217\u304c\u3042\u308c\u3070\u81ea\u52d5\u7684\u306b\uff08\u30c7\u30fc\u30bf\u7121\u3057\u306e\uff09\u5217\u304c\u8ffd\u52a0\u3055\u308c\u307e\u3059\u3057\u3001
\n\u5168\u30b7\u30fc\u30c8\u3001\u540c\u3058\u540d\u524d\u306e\u5217\u3055\u3048\u3042\u308c\u3070\u3001\u300c\u5404\u30b7\u30fc\u30c8\u5185\u3067\u306e\u305d\u306e\u5217\u306e\u4e26\u3073\u9806\u300d\u306f\u3001
\n\u5de6\u53f3\u3050\u3061\u3083\u3050\u3061\u3083\u3067\u3082OK\u3067\u3059\uff01\uff01<\/b><\/span><\/font><\/p>\n

\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3060\u3068
\n\u300c\u3053\u306e\u30ec\u30d9\u30eb\u3067\u3059\u3089\u300d
\n\u300cM\u8a00\u8a9e\u3092\u5b66\u7fd2\u3057\u306a\u3044\u3068\u7121\u7406\u300d\u3067\u3001
\n\u300c\u610f\u5916\u3068\u7c21\u5358\u306b\u300d
\n\u300cVBA\u4ee5\u4e0a\u306b\u300d
\n\u300c\u5c5e\u4eba\u5316\u3059\u308b\u300d\u306e\u3067\u3001
\n\u304b\u3048\u3063\u3066VBA\u306e\u307b\u3046\u304c\u300c\u571f\u53f0\u3092\u4f5c\u308b\u306e\u306f\u9762\u5012\u304b\u3082\u300d\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u305d\u306e\u3042\u3068\u306e\u4f5c\u308a\u66ff\u3048\u3084\u300c\u64cd\u4f5c\u81ea\u4f53\u300d\u306f\u3001VBA\u306e\u307b\u3046\u304c\u7c21\u5358\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n

\u7a7a\u767d\u306e\u30b7\u30fc\u30c8\u3092\u3064\u304f\u3063\u305f\u306e\u3061\u3001\u300c\u5168\u30b7\u30fc\u30c8\u3067\u7d71\u4e00\u3057\u305f\u3044\u3001\u305d\u3046\u3044\u3046\u5217\u540d\u300d\u3092\u6307\u5b9a\u3057\u3066F5\u30ad\u30fc\u62bc\u3059\u3060\u3051\u3067\u3059\u304b\u3089\u3002\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u3088\u3046\u306b\u3044\u304f\u3064\u3082\u30b9\u30c6\u30c3\u30d7\u4f5c\u3063\u305f\u308a\u3001\u306a\u3069\u306e\u9762\u5012\u306a\u64cd\u4f5c\u306f\u5168\u304f\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n

\u4ee5\u964d\u306e\uff12\u3064\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u9069\u5f53\u306b2\u3064\u4f5c\u3063\u3066\u30b3\u30d4\u30da\u3057\u3001
\n\uff11\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u300ctest04()\u300d\u95a2\u6570\u3092\u3001
\n\u300c\u7d71\u4e00\u3057\u305f\u3044\u5217\u540d\u300d\u306e\u8a2d\u5b9a\u90e8\u5206\u3060\u3051\u76ee\u7684\u306b\u5408\u3046\u3088\u3046\u306b\u66f8\u304d\u5909\u3048\u305f\u306e\u3061\u3001
\n\u7a7a\u767d\u306e\u30b7\u30fc\u30c8\u3092\u4f5c\u3063\u3066\u304b\u3089\u305d\u308c\u3092\u8868\u793a\u3057\u305f\u72b6\u614b\u3067\u3001F5\u30ad\u30fc\u3092\u62bc\u3059\u3053\u3068\u3067\u5b9f\u884c\u3059\u308b\u3060\u3051\u3067\u3059\u3002<\/p>\n

QuetyTable\u306e\u3042\u308b\u30b7\u30fc\u30c8\u3092\u521d\u671f\u5316\u3059\u308b\u306b\u306f\u3001
\n\uff11\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u300cQTDell04\u300d\u95a2\u6570\u3092\u4f7f\u3063\u3066\u304f\u3060\u3055\u3044\u3002
\n\u3058\u3083\u306a\u3044\u3068\u540d\u524d\u5b9a\u7fa9\u3067\u3072\u3063\u304b\u304b\u3063\u3066\u4e2d\u65ad\u3055\u308c\u3066\u3057\u307e\u3044\u307e\u3059\u306e\u3067\u30fb\u30fb\u30fb\u3002<\/p>\n

\uff11\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u300ctest04()\u300d\u95a2\u6570\u306e\u66f8\u304d\u63db\u3048\u90e8\u5206\u306f\u3001
\n\u300c'\u4ee5\u4e0b\u3001\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u306b\u3066\u3001\u8db3\u3089\u306a\u3044\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306e\u8ffd\u8a18\u300d\u306e\u90e8\u5206\u3068\u3001
\n\u300c'\u4ee5\u4e0b\u3001\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u3092\u901a\u3057\u3066\u306eSQL\u306e\u751f\u6210\u300d\u306e\u90e8\u5206\u306e\uff12\u304b\u6240\u3067\u3059\u3002
\n\u3044\u305a\u308c\u3082\u300cFor Each\u300d\u306e\u30eb\u30fc\u30d7\u306e\u4e2d\u3067\u3059\u3002<\/p>\n

\u305d\u3053\u306e\u30b3\u30e1\u30f3\u30c8\u306b\u66f8\u3044\u3066\u3042\u308b\u3088\u3046\u306b\u4fee\u6b63\u3057\u307e\u3059\u3002
\n\u57fa\u672c\u3001\u305d\u306e\uff12\u7b87\u6240\u3067\u3001\u540c\u3058\u5217\u540d\u3092\u6307\u5b9a\u3059\u308c\u3070OK\u3067\u3059\u3002<\/p>\n

\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u30b3\u30d4\u30da\u3055\u3048\u3057\u3066\u3057\u307e\u3048\u3070\u3001
\n\u5358\u7d14\u306a\u3082\u306e\u3067\u3042\u308c\u3070\u3001\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3067\u3084\u308b\u3088\u308a\u306f\u7c21\u5358\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u306a\u304a\u3001\u5404\u30b7\u30fc\u30c8\u3067\u30ec\u30b3\u30fc\u30c9\u304c\u8ffd\u52a0\u3055\u308c\u305f\u3089\u3001QuetyTable\u306e\u30b7\u30fc\u30c8\u3067\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066\u300c\u66f4\u65b0\u300d\u3059\u308c\u3070\u3001\u305d\u306e\u5185\u5bb9\u304c\u53cd\u6620\u3055\u308c\u307e\u3059\u3002<\/p>\n

\u5c11\u3057\u66f8\u304d\u5909\u3048\u308c\u3070\u3001\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3067\u3084\u308a\u305f\u3044\u3088\u3046\u306a\u3001
\n\u300c\u5217\u69cb\u6210\u304c\u9055\u3046\u30b7\u30fc\u30c8\u3092\u7121\u7406\u77e2\u7406\u7e26\u7d50\u5408\u3059\u308b\u300d
\n\u300c\u3059\u3079\u3066\u306e\u30b5\u30d6\u30d5\u30a9\u30eb\u30c0\u306e\u3001\u3059\u3079\u3066\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u6307\u5b9a\u3057\u305f\u30b7\u30fc\u30c8\u3060\u3051\u306e\u5217\u69cb\u6210\u304c\u9055\u3046\u30b7\u30fc\u30c8\u3092\u7121\u7406\u77e2\u7406\u7e26\u7d50\u5408\u3059\u308b\u300d
\n\u300c\u305d\u308c\u306e\u6307\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3060\u3051\u3092\u3084\u308b\u300d
\n\u307f\u305f\u3044\u306a\u3053\u3068\u3082\u3067\u304d\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n

\u2605\uff11\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/p>\n

\r\n'\r\n'\r\nOption Explicit\r\n\r\n\r\n'###############################################################################\r\n'\u3053\u306e\u30b7\u30fc\u30c8\u5c02\u7528\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u524a\u9664\uff08\u540d\u524d\u306e\u5b9a\u7fa9\u3082\u4e00\u7dd2\u306b\u6d88\u3048\u307e\u3059\u3002\uff09\r\n'###############################################################################\r\nSub QTDell04()\r\n'    Call QTDelFunc01(Worksheets(\"Sheet4\"))\r\n    Call QTDelFunc01(ActiveSheet)\r\nEnd Sub\r\n \r\n \r\n'###############################################################################\r\n'\r\n'\u2605\u7a7a\u306e\u30b7\u30fc\u30c8\u304c\u7121\u3044\u3053\u3068\u304c\u524d\u63d0\u3002\u3042\u308b\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n'\u2605\u5404\u30b7\u30fc\u30c8\u3001A1\u30bb\u30eb\u304b\u3089\u53f3\u306b\u3001\uff11\u884c\u76ee\u306b\u5217\u540d\u304c\u59cb\u307e\u3063\u3066\u3044\u308b\u3053\u3068\u304c\u524d\u63d0\u3002\r\n'\r\n'QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u81ea\u52d5\u4f5c\u6210\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u4e00\u4f8b\r\n'\u81ea\u30d5\u30a1\u30a4\u30eb\u306b\u3066\u3001\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u4ee5\u5916\u306e\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u3092\u3001\r\n'\u8db3\u3089\u306a\u3044\u5217\u540d\u3092\u8ffd\u8a18\u3057\u3064\u3064\u3001SQL\u3092\u4f7f\u3063\u3066\u7e26\u306b\u7d50\u5408\u3059\u308b\u3002\r\n'\r\n'\u300c\u5217\u540d\u306e\u4e26\u3073\u9806\u300d\u306f\u5404\u30b7\u30fc\u30c8\u3067\u9055\u3063\u3066\u3066\u3082\u3044\u3044\u3002\u30c7\u30fc\u30bf\u578b\u3055\u3048\u5408\u3063\u3066\u3044\u308c\u3070\u3002\r\n'\u8db3\u3089\u306a\u3044\u5217\u304c\u3042\u308b\u30b7\u30fc\u30c8\u306b\u306f\u3001\u30c7\u30fc\u30bf\u7121\u3057\u3068\u3057\u3066\u3001\u305d\u306e\u5217\u540d\u3092\u81ea\u52d5\u8ffd\u8a18\u3059\u308b\u3002\r\n'\r\n'\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3060\u3068\u9762\u5012\u306a\u306e\u3067\u3001VBA\u3067\u3084\u3063\u3066\u307f\u305f\u3002\r\n'VBA\u3067\u3082\u9762\u5012\u3060\u3051\u3069\u3001\u5f62\u3060\u3051\u4f5c\u3063\u3066\u3057\u307e\u3048\u3070\u3001\u901a\u5e38\u306f\u5217\u540d\u306e\u6307\u5b9a\u3060\u3051\u3067\u6e08\u3080\u3002\r\n'\u305d\u306e\u610f\u5473\u3067\u306f\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3088\u308a\u3082\u7c21\u5358\u304b\u3082\u3002\r\n'###############################################################################\r\n\r\nSub test04()\r\n\r\n    '\u7a7a\u767d\u306e\u30b7\u30fc\u30c8\u304c\u7121\u3044\u3001\u5217\u540d\u306e\u884c\u304c\u5168\u30b7\u30fc\u30c8\u540c\u3058\uff08\u3067\u304d\u308c\u30701\u884c\u76ee\uff09\u3001\u5148\u982d\u5217\u304cA\u5217\u3001\r\n    '\u3067\u3042\u308b\u3053\u3068\u304c\u524d\u63d0\u3067\u3059\u3002\u3058\u3083\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\r\n    '\u5217\u540d\u306e\u884c\u304c\uff11\u884c\u76ee\u3058\u3083\u306a\u3044\u3086\u3048\u306b\u30a8\u30e9\u30fc\u304c\u51fa\u308b\u5834\u5408\u306f\u3001\r\n    '\u5217\u540d\u306e\u4e0a\u306e\u7a7a\u767d\u884c\u306a\u3069\u3092\u30ab\u30c3\u30c8\u3059\u308b\u30b3\u30fc\u30c9\u3092\u8ffd\u52a0\u3057\u3066\u304f\u3060\u3055\u3044\u3002\r\n       \r\n\r\n    Dim s_TrgFNm001jj       As String      '\u5916\u90e8\u306e\u3001\u5438\u3044\u8fbc\u307f\u305f\u3044\u5148\u306e\u30d5\u30a1\u30a4\u30eb\r\n    Dim s_TrgFoldPath001jj  As String      '\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u5728\u308b\u30d5\u30a9\u30eb\u30c0\r\n    Dim s_FpathLen          As Integer\r\n    Dim s_SqlStr01jj        As String      '\u5438\u3044\u8fbc\u3080\u3068\u304d\u306eSQL\u5185\u5bb9\r\n    Dim s_ChkQTobjNm01jj    As String      '\u4ed8\u3051\u305f\u3044\u3001\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u540d\u524d\u300d\r\n    Dim o_ImpSht001jj       As Worksheet   '\u3053\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u4e2d\u306e\u3001QT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u751f\u6210\u3057\u305f\u3044\u30b7\u30fc\u30c8\uff08\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\r\n    Dim s_ImpCelAddr001jj   As String      '\u305d\u306e\u30b7\u30fc\u30c8\u306eQT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u751f\u6210\u3057\u305f\u3044\u30bb\u30eb\u4f4d\u7f6e\r\n\r\n\r\n    '\u30c1\u30a7\u30c3\u30af01\r\n    If 2 <= ActiveSheet.UsedRange.Cells.Count Then\r\n    \r\n        MsgBox \"\u7a7a\u767d\u30b7\u30fc\u30c8\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306b\u3059\u308b\u304b\u3001\u4eca\u306e\u30b7\u30fc\u30c8\u3092\u7a7a\u767d\u306b\u521d\u671f\u5316\u3057\u3066\u304b\u3089\u518d\u64cd\u4f5c\u3057\u3066\u304f\u3060\u3055\u3044\"\r\n        '\uff08\u3058\u3083\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u3002\u7406\u7531\u306f\u3081\u3093\u3069\u304f\u3055\u304f\u3066\u672a\u8abf\u67fb\u3002\uff09\r\n        \r\n        Exit Sub\r\n    Else\r\n    \r\n    End If\r\n    \r\n    \r\n    \r\n    '\u2605\u8a2d\u5b9a\u90e8\r\n    \r\n    '\u4ed6\u30d5\u30a1\u30a4\u30eb\u30c7\u30fc\u30bf\u306e\u5438\u8fbc\u307f\u7528\u8a2d\u5b9a\r\n    s_TrgFNm001jj = ThisWorkbook.FullName       '\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\r\n    s_TrgFoldPath001jj = ThisWorkbook.Path\r\n    Set o_ImpSht001jj = ActiveSheet     '\u3053\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u4e2d\u306e\u3001QT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u751f\u6210\u3057\u305f\u3044\u30b7\u30fc\u30c8\uff08\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\r\n    s_ImpCelAddr001jj = \"$A$1\"                  '\u305d\u306e\u30b7\u30fc\u30c8\u306eQT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u751f\u6210\u3057\u305f\u3044\u8d77\u70b9\u30bb\u30eb\u306e\u4f4d\u7f6e\r\n\r\n       \r\n    o_ImpSht001jj.Activate\r\n    o_ImpSht001jj.Range(\"A1\").Select\r\n    \r\n        \r\n    s_ChkQTobjNm01jj = \"QTSht0\uff12\uff12_Imp_\"\r\n       '\u300c\u91cd\u8907\u3092\u8abf\u3079\u305f\u3044\uff1d\u4ed8\u3051\u305f\u3044\u300d\r\n       '\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u540d\u524d\u300d\u306e\u8a2d\u5b9a\r\n        \r\n    \r\n    '========================================================\r\n    '\u4ee5\u4e0b\u3001\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u306b\u3066\u3001\u8db3\u3089\u306a\u3044\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306e\u8ffd\u8a18\r\n    '\uff08\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u4ee5\u5916\uff09\r\n    '\u300cCall AddNewFld01(o_ItemWs01, \"\u5927\u5206\u985e\", s_StrtCellAddr01)\u300d\u306e\u3088\u3046\u306a\u5f62\u3067\u6307\u5b9a\u3002\r\n    '\u5168\u30b7\u30fc\u30c8\u3067\u7d71\u4e00\u3055\u305b\u305f\u3044\u5217\u540d\u306e\u6570\u3060\u3051\u3001\u66f8\u304f\u3002\r\n    '\u65e2\u5b58\u306e\u5217\u540d\u306b\u306f\u8a18\u8ff0\u30df\u30b9\u304c\u7121\u3044\u3053\u3068\u304c\u524d\u63d0\uff61\r\n    '\u5217\u540d\u304c\uff12\uff10\u5217\u3084\uff13\uff10\u5217\u3092\u8d85\u3048\u308b\u3088\u3046\u306a\u3089\u3001\u30eb\u30fc\u30d7\u3067\u5217\u540d\u3092\u69cb\u7bc9\u3059\u308b\u30b3\u30fc\u30c9\u306b\u5909\u3048\u305f\u307b\u3046\u304c\u826f\u3044\u304b\u3082\u3002\r\n    \r\n\r\n    Dim s_StrtCellAddr01    As String\r\n    Dim o_ItemWs01          As Worksheet\r\n    \r\n    Let s_StrtCellAddr01 = \"A1\"\r\n    '\u5217\u540d\u306e\u30bb\u30eb\u306e\u8d77\u70b9\u306e\u30bb\u30eb\u3092\u6307\u5b9a\u3002\r\n    '\u5168\u30b7\u30fc\u30c8\u540c\u3058\u884c\u306b\u5217\u540d\u304c\u7121\u3044\u3068\u3044\u3051\u306a\u3044\u3002\r\n    '\u3042\u308b\u3044\u306f\u3001\u4e8b\u524d\u306b\uff11\u884c\u76ee\u304c\u5217\u540d\u306e\u884c\u306b\u306a\u308b\u3088\u3046\u306b\u3001\u624b\u52d5\u304bVBA\u3067\u6574\u5f62\u3057\u3066\u304a\u304f\u3002\r\n   \r\n\r\n    For Each o_ItemWs01 In Worksheets\r\n    \r\n        If ActiveSheet.Name = o_ItemWs01.Name Then\r\n            '\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306fQuetyTable\u3092\u51fa\u529b\u3059\u308b\u306e\u3067\r\n            '\u4f55\u3082\u3057\u3066\u306f\u3044\u3051\u306a\u3044\u3002\u30b9\u30eb\u30fc\u3002\r\n        Else\r\n            '\u305d\u308c\u4ee5\u5916\u306e\u30b7\u30fc\u30c8\u306f\u3001\u8db3\u3089\u306a\u3044\u5217\u540d\u3092\u8ffd\u8a18\u3059\u308b\u3002\r\n            \r\n'            Debug.Print o_ItemWs01.Name\r\n\r\n            Call AddNewFld01(o_ItemWs01, \"\u5927\u5206\u985e\", s_StrtCellAddr01)\r\n            Call AddNewFld01(o_ItemWs01, \"\u4e2d\u5206\u985e\", s_StrtCellAddr01)\r\n            Call AddNewFld01(o_ItemWs01, \"\u5c0f\u5206\u985e\", s_StrtCellAddr01)\r\n            Call AddNewFld01(o_ItemWs01, \"\u5c0f\u3005\u5206\u985e\", s_StrtCellAddr01)\r\n            \r\n        End If\r\n    \r\n    Next o_ItemWs01\r\n    '\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u306b\u304a\u3044\u3066\u3001\u4e0d\u8db3\u3059\u308b\u5217\u540d\u3092\u8ffd\u8a18\u3059\u308b\u30eb\u30fc\u30d7\u3002\r\n    '\uff08\u7a7a\u767d\u30b7\u30fc\u30c8\uff1d\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\uff1dQueryTable\u51fa\u529b\u5148\u30b7\u30fc\u30c8\uff09\r\n\r\n\r\n    'SQL\u6587\u306e\u8a2d\u5b9a\uff08\u53e4\u3044\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u305f\uff09\r\n'    s_SqlStr01jj = \"SELECT * FROM `sheet1$`\"\r\n\r\n    '========================================================\r\n    '\u4ee5\u4e0b\u3001\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u3092\u901a\u3057\u3066\u306eSQL\u306e\u751f\u6210\r\n    '\uff08\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u4ee5\u5916\uff09\r\n    'SQL\u6587\u3092255\u6587\u5b57\u305a\u3064\u306e\u914d\u5217\u306b\u3059\u308b\u3002\r\n    '\u306a\u306e\u3067\u3001\u6700\u5f8c\u306e\u300cMSQryOnlMakeByODBCFunc001\u300d\u95a2\u6570\u306eSQL\u6587\u306e\u578b\u3082\u3001\u914d\u5217\uff08Variant\u578b\uff09\u306b\u5909\u66f4\u3057\u305f\u3002\r\n\r\n    '\u300c\", \u5927\u5206\u985e\" & _\u300d\u306e\u3088\u3046\u306a\u5f62\u3067\u6307\u5b9a\u3002\r\n    '\u5168\u30b7\u30fc\u30c8\u3067\u7d71\u4e00\u3055\u305b\u305f\u3044\u5217\u540d\u306e\u6570\u3060\u3051\u3001\u66f8\u304f\u3002\r\n    '\u65e2\u5b58\u306e\u5217\u540d\u306b\u306f\u8a18\u8ff0\u30df\u30b9\u304c\u7121\u3044\u3053\u3068\u304c\u524d\u63d0\uff61\r\n    '\u5217\u540d\u304c\uff12\uff10\u5217\u3084\uff13\uff10\u5217\u3092\u8d85\u3048\u308b\u3088\u3046\u306a\u3089\u3001\u30eb\u30fc\u30d7\u3067\u5217\u540d\u3092\u69cb\u7bc9\u3059\u308b\u30b3\u30fc\u30c9\u306b\u5909\u3048\u305f\u307b\u3046\u304c\u826f\u3044\u304b\u3082\u3002\r\n\r\n'    Stop\r\n    \r\n    Dim o_ItemWs02      As Worksheet\r\n'    Dim Ary_s_SQL01      As Variant 'Split\u4f7f\u3046\u306a\u3089\u3053\u3063\u3061\u306e\u66f8\u304d\u65b9\u3060\u3051\u3069\u3001\u4f7f\u3046\u306e\u3084\u3081\u305f\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\r\n    Dim Ary_s_SQL01()   As Variant\r\n\r\n    \r\n    For Each o_ItemWs02 In Worksheets\r\n    \r\n        If ActiveSheet.Name = o_ItemWs02.Name Then\r\n            '\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306fSQL\u5bfe\u8c61\u3067\u306f\u306a\u3044\u306e\u3067\r\n            '\u4f55\u3082\u3057\u306a\u3044\u3067\u30b9\u30eb\u30fc\r\n        Else\r\n            '\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u4ee5\u5916\u306fSQL\u64cd\u4f5c\u5bfe\u8c61\r\n            s_SqlStr01jj = s_SqlStr01jj & _\r\n                           \"SELECT \" & _\r\n                           \" '\" & o_ItemWs02.Name & \"' AS \u30b7\u30fc\u30c8\u540d\" & _\r\n                           \", \u5927\u5206\u985e\" & _\r\n                           \", \u4e2d\u5206\u985e\" & _\r\n                           \", \u5c0f\u5206\u985e\" & _\r\n                           \", \u5c0f\u3005\u5206\u985e\" & _\r\n                           \" FROM  [\" & o_ItemWs02.Name & \"$]\" & _\r\n                           \" UNION ALL \"\r\n                           \r\n        End If\r\n        \r\n    Next o_ItemWs02\r\n    '\u5168\u30b7\u30fc\u30c8\u7e26\u7d50\u5408\u306eSQL\u6587\u3092\u751f\u6210\u3059\u308b\u30eb\u30fc\u30d7\r\n    \r\n    \r\n    s_SqlStr01jj = Left(s_SqlStr01jj, Len(s_SqlStr01jj) - 11)\r\n    'SQL\u6587\u306e\u672b\u5c3e\u306e\u4f59\u8a08\u306a\u300cUNION ALL\u300d\u3092\u6d88\u3059\u3002\r\n    \r\n'    Debug.Print s_SqlStr01jj\r\n    \r\n'    Ary_s_SQL01 = Split(s_SqlStr01jj, \"$]\")\r\n     'Split\u3092\u4f7f\u3046\u3068\u3001\u30c7\u30ea\u30df\u30bf\u306e\u6587\u5b57\u304c\u6d88\u3055\u308c\u3066\u3057\u307e\u3046\u306e\u3067\u3084\u3081\u3066\u3001\r\n     '\u4e00\u5b9a\u306e\u6587\u5b57\u6570\uff08255\u6587\u5b57\uff09\u3067\u533a\u5207\u3063\u3066\u3001\uff11\u6b21\u5143\u914d\u5217\u306b\u5165\u308c\u308b\u3053\u3068\u306b\u3057\u305f\u3002\r\n\r\n\r\n    Ary_s_SQL01 = SQLCmdAryMake01(s_SqlStr01jj, 255)\r\n    'SQL\u30b3\u30de\u30f3\u30c9\u3092\uff12\uff15\uff15\u6587\u5b57\u305a\u3064\u3067\u533a\u5207\u3063\u3066\u914d\u5217\u5316\u3002\r\n    '\uff08\u203bSQL\u6587\u5168\u4f53\u304c\uff12\uff15\uff15\u6587\u5b57\u3092\u8d85\u3048\u308b\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3057\u3001\r\n    '    \u3082\u3068\u3082\u3068SQL\u30b3\u30de\u30f3\u30c9\u306e\u5f15\u6570\u306e\u578b\u81ea\u4f53\u304c\u3001Variant\u578b\u306e\u914d\u5217\u3060\u304b\u3089\u3002\uff09\r\n\r\n \r\n        '\u203b\u30c6\u30fc\u30d6\u30eb\u540d\u306f\u4e0a\u8a18\u306e\u3088\u3046\u306b\u300c`\u300d\u3067\u56f2\u3080\u306e\u3082OK\u3067\u3059\u3057\u3001\r\n        '  \u300c\u89d2\u30ab\u30c3\u30b3\u300d\u3067\u56f2\u3080\u306e\u3082OK\u3067\u3059\u3002\r\n        '   \u89d2\u30ab\u30c3\u30b3\u3067\u56f2\u3080\u3068\u300e [Sheet1$] \u300f\u3068\u306a\u308a\u307e\u3059\u3002\r\n        '   \u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u5225\u540d\u3092\u4ed8\u3051\u305f\u3068\u304d\u306f\u3001\u5225\u540d\u306b\u89d2\u30ab\u30c3\u30b3\u3092\u4f7f\u3046\u307b\u3046\u304c\r\n        '   \u7d50\u679c\u306e\u8868\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u540d\u306b\u300c\u2019\u300d\u304c\u4ed8\u304b\u306a\u3044\u306e\u3067\u4fbf\u5229\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\r\n    \r\n\r\n        \r\n    '\u2605 \u30c1\u30a7\u30c3\u30af\u90e8\r\n    \r\n    '\u6307\u5b9a\u3057\u305f\u30d6\u30c3\u30af\u5185\u306b\u3001\u6307\u5b9a\u3057\u305f\u540d\u524d\u3092\u542b\u3080QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\r\n    '\u65e2\u306b\u5b58\u5728\u3057\u3066\u3044\u306a\u3044\u304b\u3069\u3046\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3002\r\n    '\u5728\u3063\u305f\u3089\u4e2d\u65ad\u3002\r\n    If QTSonzaiChk01(ThisWorkbook, s_ChkQTobjNm01jj) = 1 Then\r\n        Exit Sub\r\n    Else\r\n    \r\n    End If\r\n    \r\n'    Stop\r\n \r\n \r\n    '\u2605 \u5b9f\u52d5\u90e8\r\n    \r\n    'SQL\u306e\u5b9f\u884c\uff1dSQL\u3067\u306e\u5438\u8fbc\u307f\r\n\r\n'\u4ee5\u4e0b\u3001\u53e4\u3044\u30b3\u30fc\u30c9\u306a\u306e\u3067\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3002\u4f7f\u308f\u306a\u3044\u3002\r\n'    Call MSQryOnlMakeByODBCFunc001(s_TrgFNm001jj, _\r\n'                                   s_TrgFoldPath001jj, _\r\n'                                   s_SqlStr01jj, _\r\n'                                   s_ChkQTobjNm01jj, _\r\n'                                   o_ImpSht001jj, _\r\n'                                   s_ImpCelAddr001jj)\r\n\r\n    Call MSQryOnlMakeByODBCFunc001(s_TrgFNm001jj, _\r\n                                   s_TrgFoldPath001jj, _\r\n                                   Ary_s_SQL01, _\r\n                                   s_ChkQTobjNm01jj, _\r\n                                   o_ImpSht001jj, _\r\n                                   s_ImpCelAddr001jj)\r\n' \u547c\u3073\u51fa\u3057\u65b9\u6cd5\r\n'    Call MSQryOnlMakeByODBCFunc001(\"\u8aad\u307f\u306b\u884c\u304d\u305f\u3044\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\",\r\n'                                   \"\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5728\u308b\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\",\r\n'                                   SQL\u6587,\r\n'                                   \u7d50\u679c\u8868\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u306b\u3064\u3051\u305f\u3044\u540d\u524d,\r\n'                                   \u7d50\u679c\u3092\u51fa\u529b\u3057\u305f\u3044\u300c\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u3057\u3066\u306e\u300d\u30b7\u30fc\u30c8.\r\n'                                   \u7d50\u679c\u8868\u3092\u51fa\u529b\u3059\u308b\u30bb\u30eb\u306e\u30a2\u30c9\u30ec\u30b9\uff08\u8868\u306e\u4e00\u756a\u5de6\u4e0a\u9685\u306e\u30bb\u30eb\u306e\u3002)\r\n'\r\n\r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u2605\uff12\u3064\u76ee\u306e\u30e2\u30b8\u30e5\u30fc\u30eb<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n\r\n'###############################################################################\r\n'SQL\u30b3\u30de\u30f3\u30c9\u306e\u914d\u5217\uff08Variant\u578b\uff09\u3092\u3001\u6587\u5b57\u6570\u533a\u5207\u308a\u3067\u751f\u6210\u3059\u308b\u95a2\u6570\r\n'SQL\u4ee5\u5916\u306b\u3082\u6587\u5b57\u5217\u3092\u6587\u5b57\u6570\u533a\u5207\u308a\u3067\u914d\u5217\u5316\u3057\u305f\u3044\u3068\u304d\u306b\u3082\u4f7f\u3048\u307e\u3059\u3002\r\n'\r\n' Call SQLCmdAryMake01(\u533a\u5207\u308a\u305f\u3044\u6587\u5b57\u5217 , \u533a\u5207\u308b\u6587\u5b57\u6570)\r\n'\r\n'###############################################################################\r\n\r\nFunction SQLCmdAryMake01(ByVal s_SqlStr01jj As String, ByVal i_SplitNum01 As Integer) As Variant\r\n\r\n'    Dim s_SqlStr01jj    As String\r\n'    Dim i_SplitNum01    As Integer 'SQL\u30b3\u30de\u30f3\u30c9\u306e\u914d\u5217\u306b\u683c\u7d0d\u3059\u308b\u306e\u306b\u3001\u4f55\u6587\u5b57\u3054\u3068\u306bSplit\u3059\u308b\u304b\u306e\u6587\u5b57\u6570\r\n\r\n    Dim Ary_s_SQL01()   As Variant\r\n    Dim i_Cnt01         As Integer\r\n    Dim s_Chunk         As String  'Chunk\uff1d\u304b\u305f\u307e\u308a\r\n    Dim i_ChunkNum01    As Integer 'i_ChunkNum01\uff1d255\u6587\u5b57\u3054\u3068\u306e\u304b\u305f\u307e\u308a\u306e\u6570\uff08\u2192\u3064\u307e\u308a\u3001\u8981\u7d20\u6570\u306b\u306a\u308b\uff09\r\n\r\n\r\n'    s_SqlStr01jj = \"galgkjaldsgjalsjga\"\r\n\r\n'    i_SplitNum01 = 5\r\n    'SQL\u30b3\u30de\u30f3\u30c9\u306e\u914d\u5217\u306e\u5404\u8981\u7d20\u306b\u683c\u7d0d\u3059\u308b\u6587\u5b57\u6570\u306e\u8a2d\u5b9a\u3002256\u6587\u5b57\u4ee5\u4e0a\u306f\u30c0\u30e1\u3060\u3063\u305f \u3002\r\n    \r\n    i_ChunkNum01 = Len(s_SqlStr01jj) \\ i_SplitNum01 + IIf(Len(s_SqlStr01jj) Mod i_SplitNum01 > 0, 1, 0)\r\n    'SQL\u3092255\u6587\u5b57\u306e\u304b\u305f\u307e\u308a\u306b\u3059\u308b\u3068\u3001\u3044\u304f\u3064\u306e\u8981\u7d20\u6570\u306b\u306a\u308b\u304b\u306e\u8a08\u7b97\u3002\r\n    \r\n'    Stop\r\n \r\n    ReDim Ary_s_SQL01(0 To i_ChunkNum01 - 1)\r\n    '\u7a7a\u306e\u914d\u5217\u3092\u751f\u6210\u3002\r\n    \r\n    For i_Cnt01 = 0 To (i_ChunkNum01 - 1)\r\n        s_Chunk = Mid(s_SqlStr01jj, i_Cnt01 * i_SplitNum01 + 1, i_SplitNum01)\r\n        Ary_s_SQL01(i_Cnt01) = s_Chunk\r\n    Next i_Cnt01\r\n    ' 255\u6587\u5b57\u305a\u3064\u53d6\u308a\u51fa\u3057\u3066\u914d\u5217\u306b\u683c\u7d0d\u3059\u308b\u30eb\u30fc\u30d7\u3002\r\n    \r\n    SQLCmdAryMake01 = Ary_s_SQL01\r\n    \r\n\r\nEnd Function\r\n\r\n\r\n'###############################################################################\r\n'\u6307\u5b9a\u3057\u305f\u30b7\u30fc\u30c8\u306b\u3066\u3001\u8db3\u3089\u306a\u3044\u5217\u540d\u3092\u8db3\u3059\u305f\u3081\u306e\u95a2\u6570\r\n'###############################################################################\r\n\r\nSub AddNewFld01(o_Ws001 As Worksheet, s_SrchWrd As String, s_StrtCellAdr)\r\n\r\n'    Dim o_TrgWs001 As Worksheet\r\n    Dim o_SearchRange As Range\r\n    Dim o_foundCell As Range\r\n    Dim l_lastCol As Long\r\n    Dim l_CrntRow As Long\r\n\r\n\r\n'    Set o_TrgWs001 = o_Ws001\r\n    ' \u30bf\u30fc\u30b2\u30c3\u30c8\u306e\u30b7\u30fc\u30c8\u3092\u8a2d\u5b9a\r\n\r\n    l_lastCol = o_Ws001.Range(s_StrtCellAdr).End(xlToRight).Column\r\n    '\u30b9\u30bf\u30fc\u30c8\u30bb\u30eb\u306e\u884c\u306e\u53f3\u7aef\u306e\u30bb\u30eb\u306e\u5217\u540d\uff08R1C1\u5f62\u5f0f\u306e\u6570\u5b57\uff09\u3092\u53d6\u5f97\u3002\r\n\r\n    l_CrntRow = o_Ws001.Range(s_StrtCellAdr).Row\r\n\r\n    Set o_SearchRange = o_Ws001.Range(o_Ws001.Range(s_StrtCellAdr).Address, Cells(l_CrntRow, l_lastCol).Address)\r\n    '\u30b9\u30bf\u30fc\u30c8\u30bb\u30eb\u306e\u884c\uff08\u5217\u540d\u306e\u5165\u3063\u305f\u5217\uff09\u306e\u30bb\u30eb\u7bc4\u56f2\u3092\u8a2d\u5b9a\r\n\r\n    Set o_foundCell = o_SearchRange.Find(What:=s_SrchWrd, LookAt:=xlWhole, MatchCase:=False)\r\n    ' \u300c\u691c\u7d22\u8a9e\u53e5\u300d\u3092\u691c\u7d22\uff08Find\u95a2\u6570\u3092\u4f7f\u7528\uff09\r\n\r\n    If o_foundCell Is Nothing Then o_Ws001.Cells(l_CrntRow, l_lastCol + 1).Value = s_SrchWrd\r\n    ' \u300c\u691c\u7d22\u8a9e\u53e5\u300d\u304c\u898b\u3064\u304b\u3089\u306a\u304b\u3063\u305f\u5834\u5408\u3001\u30b9\u30bf\u30fc\u30c8\u30bb\u30eb\u306e\u884c\u306e\u6700\u53f3\u5217\u306e\u6b21\u306e\u30bb\u30eb\u306b\u300c\u691c\u7d22\u8a9e\u53e5\u300d\u3092\u8ee2\u8a18\r\n\r\n    Set o_foundCell = o_SearchRange.Find(What:=\"\", LookAt:=xlPart, MatchCase:=False)\r\n    '\u4e00\u5fdc\u3001\u4e00\u822c\u64cd\u4f5c\u753b\u9762\u306e\u691c\u7d22\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u3001\u4eca\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3067\u4fdd\u5b58\u3055\u308c\u305f\u691c\u7d22\u8a2d\u5b9a\u3092\u6d88\u3059\u3002\r\n\r\nEnd Sub\r\n\r\n'###############################################################################\r\n'QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u524a\u9664\uff08\u540d\u524d\u306e\u5b9a\u7fa9\u3082\u4e00\u7dd2\u306b\u6d88\u3048\u307e\u3059\u3002\uff09\r\n'###############################################################################\r\n\r\nFunction QTDelFunc01(o_WSjj As Worksheet)\r\n    \r\n    Dim o_KizonTeigiNm01 As Name\r\n        \r\n    If 1 <= o_WSjj.QueryTables.Count Then\r\n    \r\n        o_WSjj.Activate\r\n        o_WSjj.QueryTables(1).Delete\r\n        o_WSjj.Rows.Delete\r\n          '\u2191\u305f\u3060\u306e\u300cCells.ClearContents\u300d\u3060\u3051\u3060\u3068\r\n          '\u4f55\u304b\u304c\u6b8b\u308b\u307f\u305f\u3044\u3067\u81ea\u30d5\u30a1\u30a4\u30eb\u53c2\u7167\u3059\u308b\u3068\r\n          'F1\u3001F2\u3001F3\u30fb\u30fb\u30fb\u307f\u305f\u3044\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3053\u3068\u304c\u3042\u308b\u306e\u3067\r\n          '\u4e00\u5fdc\u3001Rows.Delete\u306b\u3057\u305f\u3002\u3067\u3082Cells.Delete\u306e\u307b\u3046\u304c\u3044\u3044\u306e\u304b\u3082\uff1f\r\n        o_WSjj.Range(\"A1\").Select\r\n        \r\n    Else\r\n    \r\n    End If\r\n    \r\n    \r\n    'xls\u30d5\u30a1\u30a4\u30eb\u7528\u306e\u540d\u524d\u306e\u5b9a\u7fa9\u306e\u524a\u9664\u51e6\u7406\u3002\r\n    'xls\u306e\u5834\u5408\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u524a\u9664\u3057\u3066\u3082\r\n    '\u540d\u524d\u306e\u5b9a\u7fa9\u304c\u6b8b\u3063\u3066\u3057\u307e\u3046\u305f\u3081\u3002\r\n       \r\n'    o_WSjj.Names(o_WSjj.QueryTables(1).Name).Delete\r\n\r\n    For Each o_KizonTeigiNm01 In o_WSjj.Names\r\n    \r\n        If 0 < InStr(1, o_KizonTeigiNm01, \"\", vbBinaryCompare) Then\r\n            o_KizonTeigiNm01.Delete\r\n        Else\r\n        \r\n        End If\r\n        \r\n    Next\r\n\r\n        \r\n    '\u30a2\u30af\u30c6\u30a3\u30d6\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u8abf\u6574\r\n    ActiveWindow.Zoom = 100           '\u30ba\u30fc\u30e0 100%\r\n    ActiveWindow.FreezePanes = False  '\u30a6\u30a3\u30f3\u30c9\u30a6\u67a0\u306e\u89e3\u9664\r\n    \r\n     \r\nEnd Function\r\n\r\n\r\n'###############################################################################\r\n'\u6307\u5b9a\u3055\u308c\u305f\u30d6\u30c3\u30af\u5185\u306b\u3001\u6307\u5b9a\u3055\u308c\u305f\u540d\u524d\u3092\u542b\u3080QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\r\n'\u5b58\u5728\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3057\u305f\u3068\u304d\u306b\u3001\u30d2\u30c3\u30c8\u3057\u305f\u3089\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u51fa\u3059\u3060\u3051\u306e\u3001\r\n'\uff08\u4e00\u5fdc\u72b6\u614b\u3082\u6570\u5b57\u3067\u8fd4\u3059\uff09\u95a2\u6570\u3002\r\n'###############################################################################\r\n\r\nFunction QTSonzaiChk01(o_WB02jj As Workbook, s_ChkQTobjNm02jj As String) As Integer\r\n\r\n    Dim v_Answ01jj          As Variant\r\n\r\n    '\u2605 \u5b9f\u52d5\u90e8\r\n    \r\n    '\u540c\u3058\u540d\u524d\u304b\u3001\u307b\u3068\u3093\u3069\u540c\u3058\u540d\u524d\uff08\u63a5\u5c3e\u8a9e\u304c\u3042\u308b\u3060\u3051\u306e\uff09\u306e\u3001\r\n    'QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u5b58\u5728\u3059\u308b\u304b\u30c1\u30a7\u30c3\u30af\u3057\u3066\r\n    '\u5728\u308c\u3070\u4e2d\u65ad\u3059\u308b\u5206\u5c90\u3002\r\n    '\u3061\u306a\u307f\u306b\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u4f5c\u6210\u3055\u308c\u308b\u3068\u3001\r\n    '\u540d\u524d\u5b9a\u7fa9\u306b\u3082\u52dd\u624b\u306b\u8a2d\u5b9a\u304c\u8ffd\u52a0\u3055\u308c\u308b\u304c\u3001\r\n    'QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092Delete\u30e1\u30bd\u30c3\u30c9\u3067\u524a\u9664\u3059\u308b\u3068\u3001\u305d\u306e\u8a2d\u5b9a\u3082\u4e00\u7dd2\u306b\u6d88\u3048\u307e\u3059\u3002\r\n    '\u305f\u3060\u3001\u624b\u52d5\u3067\u30b7\u30fc\u30c8\u4e0a\u304b\u3089\u624b\u4f5c\u696d\u3067QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u524a\u9664\u3059\u308b\u3068\r\n    '\u540d\u524d\u5b9a\u7fa9\u306e\u8a2d\u5b9a\u306f\u6b8b\u3063\u305f\u307e\u307e\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u3002\r\n    \r\n    v_Answ01jj = KizonQTCheck01(o_WB02jj, s_ChkQTobjNm02jj)\r\n    \r\n    If v_Answ01jj(0) = \"OK\" Then\r\n    \r\n        QTSonzaiChk01 = 0\r\n        \r\n    ElseIf v_Answ01jj(0) = s_ChkQTobjNm02jj Then\r\n    \r\n        MsgBox \"\u300c\" & v_Answ01jj(0) & \"\u300d\u3092\u542b\u3080QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff08\uff1d\u540d\u524d\uff09\u304c\u3001\" & _\r\n            vbCrLf & \"\u300c\" & v_Answ01jj(1) & \"\u300d\u3068\u3057\u3066\" & _\r\n            vbCrLf & \"\u300c\" & v_Answ01jj(2) & \"\u300d\u306b\u898b\u3064\u304b\u308a\u307e\u3057\u305f\u306e\u3067\u4e2d\u65ad\u3057\u307e\u3059\u3002\" & _\r\n            vbCrLf & _\r\n            vbCrLf & \"\u4ed8\u3051\u305f\u3044\u540d\u524d\u3092\u5909\u66f4\u3057\u3066\u518d\u5ea6\u5b9f\u884c\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n        \r\n        QTSonzaiChk01 = 1\r\n        Exit Function\r\n    \r\n    End If\r\n\r\n\r\nEnd Function\r\n\r\n\r\n'###############################################################################\r\n'\u6307\u5b9a\u3055\u308c\u305f\u30d6\u30c3\u30af\u5185\u306b\u3001\u6307\u5b9a\u3055\u308c\u305f\u540d\u524d\u3092\u542b\u3080QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\r\n'\u5b58\u5728\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\u95a2\u6570\u3002\r\n'\u4e0a\u8a18\u95a2\u6570\u306e\u300cQTSonzaiChk01\u300d\u304b\u3089\u4e88\u5099\u3060\u3055\u308c\u307e\u3059\u3002\r\n'\u306a\u304a\u3001\u623b\u308a\u5024\u3092Variant\u578b\u306e\u914d\u5217\u306b\u3057\u3066\u3042\u308a\u307e\u3059\u3002\r\n'\r\n'\u623b\u308a\u5024\u2192\uff08\u30c1\u30a7\u30c3\u30af\u3059\u308b\u540d\u524d,\u305d\u308c\u3092\u542b\u3093\u3060\u5b9f\u969b\u306eQT\u306e\u540d\u524d,\u898b\u3064\u304b\u3063\u305f\u30b7\u30fc\u30c8\u540d\uff09\u306e\r\n'          Variant\u578b\u306e\u914d\u5217\u3002\r\n'\r\n'###############################################################################\r\n \r\nFunction KizonQTCheck01(o_WBjj As Workbook, s_ChkQTNm01jj As String) As Variant\r\n\r\n    Dim o_KizonQT01jj   As QueryTable\r\n    Dim o_KizonWSjj     As Worksheet\r\n    Dim i_EscapeForFlg  As Integer\r\n    \r\n    \r\n    \r\n    '\u2605 \u8a2d\u5b9a\u90e8\r\n    \r\n    Set o_WBjj = ThisWorkbook\r\n    \r\n    i_EscapeForFlg = 0\r\n    \r\n    \r\n    KizonQTCheck01 = Array(\"OK\", \"OK\", \"OK\")\r\n    \r\n        '\u2191\u691c\u7d22\u304c\u30d2\u30c3\u30c8\u3057\u306a\u304b\u3063\u305f\u3068\u304d\u306e\u623b\u308a\u5024\u3092\u3042\u3089\u304b\u3058\u3081\u8a2d\u5b9a\u3057\u3066\u304a\u304f\u3002\r\n        '  \u30d2\u30c3\u30c8\u3059\u308c\u3070\u3001\u3053\u306e\u5024\u304c\u5225\u306e\u914d\u5217\u3067\u4e0a\u66f8\u304d\u3055\u308c\u308b\u3002\r\n        '    \u203b\u914d\u5217\u3067\u8fd4\u3057\u305f\u3044\uff0b\u521d\u671f\u5024\u3092\u6c7a\u3081\u3066\u304a\u304d\u305f\u3044\u3068\u304d\u306f\u3001\r\n        '      \u3042\u3089\u304b\u3058\u3081\u914d\u5217\u3067\u521d\u671f\u5024\u3092\u57cb\u3081\u3066\u304a\u304b\u306a\u3044\u3068\u3001\r\n        '\u3000    \u547c\u3073\u51fa\u3057\u5143\u306e\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u5074\u306b\u3066\u306e\u3001\u623b\u308a\u5024\u3067\u306eIf\u6587\u306e\u5224\u65ad\u5206\u5c90\u7b49\u3005\u306b\u3066\u3001\r\n        '     \u300c\u578b\u304c\u9055\u3044\u307e\u3059\u300d\u306e\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u6ce8\u610f\u3059\u308b\u3002\r\n        '      \u3067\u3082\u3001\u3082\u3063\u3068\u30b9\u30de\u30fc\u30c8\u306a\u3084\u308a\u65b9\u304c\u3042\u308b\u304b\u3082\u3057\u308c\u306a\u3044\u3002\r\n        \r\n        \r\n    '\u2605 \u5b9f\u52d5\u90e8\r\n    \r\n    \r\n    \r\n    For Each o_KizonWSjj In o_WBjj.Worksheets\r\n      '\u6307\u5b9a\u3055\u308c\u305fQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u5b58\u5728\u3059\u308b\u304b\u3092\u63a2\u3059\u305f\u3081\u306b\u3001\r\n      '\u5168\u30b7\u30fc\u30c8\u3092\u79fb\u52d5\u3059\u308b\u30eb\u30fc\u30d7\u3002\u89aa\u30eb\u30fc\u30d7\u3002\r\n    \r\n'                                             Debug.Print o_KizonWSjj.Name\r\n\r\n        If i_EscapeForFlg = 1 Then Exit For\r\n           '\u3082\u3057\u30d2\u30c3\u30c8\u3057\u305f\u3089\u3001\u3053\u306e\uff08\u5168\u90e8\u306e\u30b7\u30fc\u30c8\u3092\u9806\u306b\u79fb\u52d5\u3057\u3066\u3044\u304f\u3068\u3044\u3046\uff09\u89aa\u30eb\u30fc\u30d7\u3082\u629c\u3051\u308b\u3002\r\n           '\u203b\u300ci_EscapeForFlg\u300d\u304c\uff11\u306b\u306a\u3063\u3066\u3044\u305f\u3089\u3001\u30d2\u30c3\u30c8\u3057\u305f\u3001\u3068\u3044\u3046\u610f\u5473\u3002\r\n        \r\n        \r\n        \r\n        For Each o_KizonQT01jj In o_KizonWSjj.QueryTables\r\n           '\u5404\u30b7\u30fc\u30c8\u306e\u4e2d\u306e\u3059\u3079\u3066\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\r\n           '\u30c1\u30a7\u30c3\u30af\u3059\u308b\u30eb\u30fc\u30d7\u3002\u5b50\u30eb\u30fc\u30d7\u3002\r\n        \r\n'                                             Debug.Print o_KizonQT01jj.Name\r\n            \r\n            If 1 <= InStr(1, o_KizonQT01jj.Name, _\r\n                          s_ChkQTNm01jj, _\r\n                          vbBinaryCompare) Then\r\n                          \r\n                   '\u2191\u76ee\u7684\u306eQT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u30d2\u30c3\u30c8\u3057\u305f\u6642\u306f\u3053\u308c\u4ee5\u964d\u2193\u306e\u51e6\u7406\u3092\u3059\u308b\u3002\r\n                   '    \u76ee\u7684\u306e\u540d\u524d\u304c\u542b\u307e\u308c\u305fQT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u30d2\u30c3\u30c8\u3057\u305f\u3068\u304d\u2193\u3002\r\n\r\n'                                             Debug.Print \"\u63a2\u3057\u3066\u3044\u308bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u3042\u308a\u307e\u3057\u305f\u3002---\" & o_KizonQT01jj.Name\r\n                    \r\n                    \r\n                If Not (o_KizonWSjj Is ActiveSheet) Then\r\n                   '\u3082\u3057\u3001\u76ee\u7684\u306e\u540d\u524d\u306eQT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u898b\u3064\u304b\u3063\u305f\u30b7\u30fc\u30c8\u304c\u3001\r\n                   '\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b7\u30fc\u30c8\u300c\u4ee5\u5916\u300d\u3067\u3042\u308c\u3070\u3001\u300c\u30d2\u30c3\u30c8\u3057\u305f\uff01\u300d\u3068\r\n                   '\u307f\u306a\u3057\u3066\u4ee5\u4e0b\u306e\u51e6\u7406\u3002\r\n                   '\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b7\u30fc\u30c8\u306b\u76ee\u7684\u306eQT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u5b58\u5728\u3057\u3066\u3057\u307e\u3063\u3066\u3044\u305f\u306a\u3089\u3001\r\n                   '\u305d\u306eQT\u306f\u300c\u6d88\u3057\u3061\u3083\u3063\u3066\u3082\u3044\u3044\u300d\u3068\u3044\u3046\u3053\u3068\u306b\u3057\u3066\u3001\r\n                   '\u300c\u30d2\u30c3\u30c8\u3057\u306a\u304b\u3063\u305f\u3082\u306e\u300d\u3068\u307f\u306a\u3059\u3002\r\n                \r\n                    \r\n                    \r\n                    KizonQTCheck01 = Array( _\r\n                                            s_ChkQTNm01jj, _\r\n                                            o_KizonQT01jj.Name, _\r\n                                            o_KizonWSjj.Name)\r\n                                            \r\n                       ' \u2191 \u623b\u308a\u5024\uff08OK\u30fbOK\u30fbOK\uff09\u3092\u3001\u30d2\u30c3\u30c8\u5185\u5bb9\u306b\u4e0a\u66f8\u304d\u3002\r\n                    \r\n                    \r\n                    i_EscapeForFlg = 1\r\n                       '\u30d2\u30c3\u30c8\u3057\u305f\u3053\u3068\u3092\u3001\u89aa\u30eb\u30fc\u30d7\u3092\u629c\u3051\u308b\u305f\u3081\u306b\u3001\u30e1\u30e2\u3002\r\n                    \r\n                    Exit For\r\n                       '\u3053\u306e\uff08\u30b7\u30fc\u30c8\u5185\u306e\u5168\u3066\u306eQT\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8abf\u3079\u308b\u3068\u3044\u3046\uff09\u5b50\u30eb\u30fc\u30d7\u3092\u629c\u3051\u308b\u3002\r\n                    \r\n                Else\r\n                \r\n                End If\r\n            Else\r\n'                                             Debug.Print \"\u63a2\u3057\u3066\u3044\u308bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u3042\u308a\u307e\u305b\u3093\u3002\"\r\n            End If\r\n            \r\n        Next\r\n        \r\n        \r\n\r\n        \r\n    Next\r\n    \r\n\r\n\r\nEnd Function\r\n\r\n \r\n'###############################################################################\r\n'\r\n'\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u300d\u306f\u4f7f\u308f\u305a\u306b\u3001\u3064\u307e\u308a\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u57cb\u3081\u8fbc\u307e\u306a\u3044\u30d1\u30bf\u30fc\u30f3\u3002\r\n'\u305d\u3057\u3066\u3001\u4ed6\u306e\u300cXLS\u3001XLSM\u3001XLSX\u300d\u3084\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30b7\u30fc\u30c8\u306a\u3069\u3092\u5438\u3044\u8fbc\u3080\u95a2\u6570\u306e\u30b5\u30f3\u30d7\u30eb\u3002\r\n'\r\n'\u524d\u8ff0\u306e\uff11\u3064\u76ee\u3068\u540c\u69d8\u306b\u3001\u300cMicrosoft Query\u300d\u3067\u306e\u7d50\u5408\u3092\u30de\u30af\u30ed\u306e\u8a18\u9332\u6a5f\u80fd\u3067\u8a18\u9332\u3057\u3066\u3001SQL<\/a>\u3092\u5c11\u3057\r\n'\u77ed\u304f\u3057\u305f\u3060\u3051\u306e\u30b3\u30fc\u30c9\u3092\u3001\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u300d\u306b\u57cb\u3081\u8fbc\u307e\u306a\u3044\u3088\u3046\u306b2\u884c\u307b\u3069\u66f8\u304d\u63db\u3048\u305f\u3082\u306e\u3001\u3092\u3001\r\n'\u95a2\u6570\u5316\u3057\u305f\u3082\u306e\u3002\r\n'\r\n'\u3053\u308c\u306f\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306e\u307f\u3067\u7d50\u679c\u3092\u8868\u793a\u3057\u3066\u3044\u307e\u3059\u3002\r\n'\u306a\u304a\u3001\u300cMicrosoft Query\u300d\u306f\u3001\u5b9f\u306fExcel\u304b\u3089\u306f\u72ec\u7acb\u3057\u305f\u6a5f\u80fd\u3067\u3059\u304c\u3001SQL<\/a>\u5b9f\u884c\u306e\u7d50\u679c\u306e\u8868\u306f\u3001\r\n'\u300cQeryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306b\u8fd4\u3063\u3066\u304f\u308b\u3088\u3046\u306b\u3001Excel\u81ea\u8eab\u304c\u6307\u793a\u3092\u51fa\u3057\u3066\u3044\u308b\u3063\u307d\u3044\u3067\u3059\u3002\r\n'\u306a\u306e\u3067\u3001\u300cMicrosoft Query\u300d\u3068\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u64cd\u4f5c\u300d\u306f\u3001\u6a5f\u80fd\u306f\u64cd\u4f5c\u306f\u7570\u306a\u308a\u307e\u3059\u304c\u3001\r\n'\u7d50\u679c\u306f\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306b\u51fa\u529b\u3055\u308c\u308b\u3001\u300c\u540c\u7b49\u306a\u3082\u306e\u300d\u3068\u7406\u89e3\u3057\u3066\u826f\u3055\u305d\u3046\u3067\u3059\u3002\r\n'\r\n'\r\n' \u547c\u3073\u51fa\u3057\u65b9\u6cd5\r\n'    Call MSQryOnlMakeByODBCFunc001(\"\u8aad\u307f\u306b\u884c\u304d\u305f\u3044\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\",\r\n'                                   \"\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5728\u308b\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\",\r\n'                                   SQL\u6587,\r\n'                                   \u7d50\u679c\u8868\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u306b\u3064\u3051\u305f\u3044\u540d\u524d,\r\n'                                   \u7d50\u679c\u3092\u51fa\u529b\u3057\u305f\u3044\u300c\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u3057\u3066\u306e\u300d\u30b7\u30fc\u30c8.\r\n'                                   \u7d50\u679c\u8868\u3092\u51fa\u529b\u3059\u308b\u30bb\u30eb\u306e\u30a2\u30c9\u30ec\u30b9\uff08\u8868\u306e\u4e00\u756a\u5de6\u4e0a\u9685\u306e\u30bb\u30eb\u306e\u3002)\r\n'\r\n'\r\n'  \u4f8b\uff1a\u5b9f\u969b\u306b\u306f\u5404\u884c\u306b\u3001\u300c _ \u300d\uff08\u534a\u89d2\u3067\u306e\u3001\u30b9\u30da\u30fc\u30b9+\u30a2\u30f3\u30c0\u30fc\u30d0\u30fc\uff09\u304c\u8981\u308a\u307e\u3059\u3002\r\n'\r\n'    Call MSQryOnlMakeByODBCFunc001(\"D:\\1\\\u30af\u30a8\u30ea\u306e\u30cd\u30b9\u30c8\u306e\u30c6\u30b9\u30c8.xls\",\r\n'                                   \"D:\\1\",\r\n'                                   s_SqlStr01jj,\r\n'                                   \"QT_To_OwnSheet1\",\r\n'                                   ActiveSheet,\r\n'                                   \"$A$1\")\r\n'\r\n'###############################################################################\r\n\r\n\r\n\r\nSub MSQryOnlMakeByODBCFunc001(s_TrgFNm01jj As String, _\r\n                              s_TrgFPath01jj As String, _\r\n                              s_Sql01jj As Variant, _\r\n                              s_QTNm01jj As String, _\r\n                              o_ImpWSht01jj As Worksheet, _\r\n                              s_ImpRng01jj As String)\r\n   \r\n\r\n'On Error GoTo error1:\r\n\r\n    Dim o_QT01jj    As QueryTable\r\n    Dim i_Answ01    As Integer\r\n\r\n    '\u2605 \u30c1\u30a7\u30c3\u30af\u90e8\r\n\r\n    \r\n    \r\n    '\u6700\u5f8c\u306e\u30c1\u30a7\u30c3\u30af\r\n    i_Answ01 = MsgBox(\"\u672c\u5f53\u306bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f5c\u6210or\u66f8\u304d\u63db\u3048\u3066\u3082\u3044\u3044\u3067\u3059\u304b\uff1f\", vbOKCancel)\r\n    \r\n    If i_Answ01 = 2 Then\r\n        Exit Sub  '\u300c\u3044\u3044\u3048\u300d\u304c\u62bc\u3055\u308c\u305f\u3089\u7d42\u308f\u308b\u3002\r\n    Else\r\n        '\u305d\u308c\u4ee5\u5916\u306f\u7d42\u308f\u3089\u306a\u3044\u3002\u4ee5\u964d\u306e\u51e6\u7406\u3092\u7d9a\u3051\u308b\u3002\u3002\r\n    End If\r\n    \r\n    \r\n    \r\n    '\u2605 \u5b9f\u52d5\u90e8\r\n\r\n\r\n    '\u3059\u3067\u306b\u3042\u308bQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u51e6\u7406\u3059\u308b\r\n    If 1 <= o_ImpWSht01jj.QueryTables.Count Then\r\n        \r\n        o_ImpWSht01jj.QueryTables(1).Delete\r\n'        o_ImpWSht01jj.Cells.ClearContents\r\n        o_ImpWSht01jj.Rows.Delete\r\n           '\u3044\u3063\u305f\u3093QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u524a\u9664\u3002\r\n           '\u7d10\u3064\u3044\u3066\u3044\u308b\u540d\u524d\u5b9a\u7fa9\u3082\u4e00\u7dd2\u306b\u6d88\u53bb\u3055\u308c\u307e\u3059\u3002\r\n\r\n    Else\r\n\r\n    End If\r\n    \r\n    \r\n    'QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u751f\u6210\r\n    \r\n    Set o_QT01jj = o_ImpWSht01jj.QueryTables _\r\n                      .Add(Connection:= _\r\n                           \"ODBC;DSN=Excel Files\" & _\r\n                           \";DBQ=\" & s_TrgFNm01jj & _\r\n                           \";DefaultDir=\" & s_TrgFPath01jj & _\r\n                           \";DriverId=1046\" & _\r\n                           \";MaxBufferSize=2048\" & _\r\n                           \";PageTimeout=5\" & _\r\n                           \";\" _\r\n                           , Destination:=o_ImpWSht01jj.Range(s_ImpRng01jj))\r\n                            \r\n                            \r\n'         Stop\r\n         \r\n    With o_QT01jj\r\n        \r\n'        .CommandText = Array(s_Sql01jj)\r\n        .CommandText = s_Sql01jj\r\n        \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 = False\r\n        .SaveData = True\r\n        .AdjustColumnWidth = True\r\n        .RefreshPeriod = 0\r\n        .PreserveColumnInfo = True\r\n'        .ListObject.DisplayName = \"\u30c6\u30fc\u30d6\u30eb_Excel_Files_\u304b\u3089\u306e\u30af\u30a8\u30ea4\"\r\n             '\u2191\u3053\u306e2\u3064\u76ee\u306e\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u306f\u65b0\u3057\u3044Excel\u3067\u3082 \u3082\u3061\u308d\u3093\u52d5\u304d\u307e\u3059\u304c\u3001\r\n             ' \u3082\u3068\u3082\u3068\u306f\u53e4\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u306eExcel\u306e\u305f\u3081\u306e\u3082\u306e\u3067\u3059\u3002\r\n             ' \u3057\u304b\u3057\u3053\u306e\u884c\u3060\u3051\u306f\u65b0\u3057\u3044Excel\u306e\u305f\u3081\u306e\u3082\u306e\u3067\u3059\u3002\r\n             ' \u53e4\u3044Excel\u306f\u3001\u6700\u521d\u304b\u3089\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u300d\u304c\u4f7f\u3048\u306a\u3044\u306e\u3067\r\n             ' \u53e4\u3044Excel\u3067\u3053\u306e2\u3064\u76ee\u306e\u30b5\u30f3\u30d7\u30eb\u3092\u52d5\u304b\u3059\u3068\u3053\u306e\u884c\u306f\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\r\n             ' \u306a\u306e\u3067\u3001\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u3066\u3001\u4ee3\u308f\u308a\u306b\u4ee5\u4e0b\u306e\u884c\u3067\u540d\u524d\u3092\u8a2d\u5b9a\u3057\u3066\u3044\u307e\u3059\u3002\r\n        .Name = s_QTNm01jj\r\n        .Refresh BackgroundQuery:=False 'False\uff08\u540c\u671f\uff09\u3067SQL\u3092\u5b9f\u884c\u3002\u300c\u540c\u671f\u300d\u3060\u3068\u3001\u4ed6\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u4e26\u5217\u52d5\u4f5c\u306f\u7121\u3044\u3002True\u3060\u3068\u300c\u975e\u540c\u671f\u300d\uff1d\u4ed6\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3082\u540c\u6642\u9032\u884c\u3057\u3066\u3057\u307e\u3046\u3002\r\n        \r\n    End With\r\n    \r\n    \r\n    '\u30a2\u30af\u30c6\u30a3\u30d6\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u8abf\u6574\r\n    ActiveWindow.Zoom = 75           '\u30ba\u30fc\u30e0 75%\r\n    o_ImpWSht01jj.Range(\"A2\").Select\r\n    ActiveWindow.FreezePanes = True  '\u30a6\u30a3\u30f3\u30c9\u30a6\u67a0\u306e\u56fa\u5b9a\r\n\r\n\r\nExit Sub\r\n\r\n\r\nerror1:\r\n\r\n\r\n    If Err.Number = 1004 Then\r\n        '\u300co_QT01jj.Refresh BackgroundQuery:\uff1d=False\u300d\u30671004\u756a\u306e\r\n        '\u300c\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u5b9a\u7fa9\u307e\u305f\u306f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5b9a\u7fa9\u306e\u30a8\u30e9\u30fc\u3067\u3059\u3002\u300d\u3068\u3044\u3046\r\n        '\u30a8\u30e9\u30fc\u306b\u306a\u3063\u305f\u6642\u306e\u51e6\u7406\u3002\r\n        'SELECT\u7cfb\u306e\u547d\u4ee4\u3058\u3083\u306a\u3044\u6642\uff08INSERT\u3084UPDATE\u306a\u3069\u3092\u4f7f\u3063\u305f\u6642\uff09\u306b\u3001\r\n        '1004\u30a8\u30e9\u30fc\u306b\u306a\u308b\u306e\u3067\u3001\u305d\u306e\u56de\u907f\u3002\r\n        \r\n'        o_QT01jj.Refresh BackgroundQuery:=True 'True\uff08\u975e\u540c\u671f\uff09\u3067SQL\u3092\u5b9f\u884c\u3002False\u3060\u3068\u300c\u540c\u671f\u300d\u3067\u3001\u300c\u540c\u671f\u300d\u3060\u3068\u3001\u4ed6\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u4e26\u5217\u52d5\u4f5c\u306f\u7121\u3044\u3002True\u3060\u3068\u300c\u975e\u540c\u671f\u300d\uff1d\u4ed6\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3082\u540c\u6642\u9032\u884c\u3057\u3066\u3057\u307e\u3046\u3002\u3051\u3069\u3001\u4e00\u5fdc\u5b9f\u884c\u306f\u3067\u304d\u308b\u3002\r\n        Debug.Print Err.Description\r\n        Resume Next\r\n        \r\n    Else\r\n    \r\n    End If\r\n\r\n    \r\nEnd Sub\r\n\r\n\r\n'###############################################################################\r\n'Excel\u3092\u958b\u304b\u305a\u306b\u3001Excel\u306e\u30b7\u30fc\u30c8\u540d\uff08\u30c6\u30fc\u30d6\u30eb\u540d\uff09\u3092\u8abf\u3079\u308b\u95a2\u6570\r\n'\u300csn\u300d\u306f\u300cSheetName\u300d\u306e\u7565\u3067\u3059\u3002\r\n'\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u3067\u3055\u3063\u3068\u8abf\u3079\u305f\u3044\u306e\u3067\u3042\u3048\u3066\u77ed\u3044\u540d\u524d\u306b\u3057\u3066\u3042\u308a\u307e\u3059\u3002\r\n'###############################################################################\r\n\r\nFunction sn(s_BkFlpath As String)\r\n\r\n    'http:\/\/doctorlabo.main.jp\/?p=398 \u3092\u52a0\u5de5\u3002\r\n\r\n\r\n    \r\n'    Dim s_BkFlpath  As String\r\n    \r\n    Dim i           As Long\r\n    \r\n\r\n'    '\u4ee5\u4e0b\u306e\u5909\u6570\u8a2d\u5b9a\u3092\u4f7f\u3044\u305f\u3044\u6642\u306f\u3001\r\n'    'VBE\u306e\u753b\u9762\u306b\u3066\u3001\u4ee5\u4e0b\u306e\uff12\u3064\u306e\u30e9\u30a4\u30d6\u30e9\u30ea\u3078\u306e\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u304c\u5fc5\u8981\u3067\u3059\u3002\r\n'    '\u30fbMicrosoft ActiveX Data Object 2.8 Library\r\n'    '\u30fbMicrosoft ADO Ext.2.8 for DDL and Security]\r\n'    Dim cn          As New ADODB.Connection\r\n'    Dim t           As Table\r\n'    Dim ct          As New ADOX.Catalog\r\n\r\n\r\n    '\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u3057\u305f\u304f\u306a\u3044\u3068\u304d\u306f\u4ee5\u4e0b\u306e\u5909\u6570\u8a2d\u5b9a\u3092\u4f7f\u3044\u307e\u3059\u3002\r\n    Dim cn          As Object\r\n    Dim t           As Object\r\n    Dim ct          As Object\r\n\r\n\r\nOn Error GoTo error1:\r\n\r\n    '\u2605 \u8a2d\u5b9a\u90e8\r\n    \r\n    \r\n    '\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u3057\u305f\u304f\u306a\u3044\u3068\u304d\u306e\u300cADO\u300d\u306e\u6e96\u5099\u8a2d\u5b9a\r\n    \r\n    '\u8a2d\u5b9a\u304c\u7a7a\u306e\uff08\uff1d\u672a\u8a2d\u5b9a\u306e\uff09ADO\u7528\u306e\u5909\u6570\u306e\u7528\u610f\r\n    Set cn = CreateObject(\"ADODB.Connection\")\r\n    \r\n    '\u8a2d\u5b9a\u304c\u7a7a\u306e\uff08\uff1d\u672a\u8a2d\u5b9a\u306e\uff09ADOX\u7528\u306e\u5909\u6570\u306e\u7528\u610f\r\n    Set ct = CreateObject(\"ADOX.Catalog\")\r\n    \r\n    \r\n    '\u203b\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u3057\u305f\u3068\u304d\u306f\u3001\u76f4\u4e0a\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u306f\u4e0d\u8981\u3067\u3059\u3002\r\n    \r\n\r\n\r\n'    cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & ThisWorkbook.path & \"\\\u57fa\u672c.mdb\" & \";\"\r\n\r\n'    s_BkFlpath = \"D:\\1\\5.xls\"\r\n    \r\n'    cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & s_BkFlpath & \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n'    cn.Open \"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\" & s_BkFlpath & \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n        \r\n        \r\n    'Excel\u30d5\u30a1\u30a4\u30eb\u3078\u306eADO\u5f62\u5f0f\u3067\u306e\u63a5\u7d9a\r\n    If 0 < InStr(1, s_BkFlpath, \".xlsm\", vbBinaryCompare) Then\r\n    \r\n        cn.Open \"Provider=Microsoft.ACE.OLEDB.12.0\" & _\r\n                \";Data Source=\" & s_BkFlpath & _\r\n                \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n    \r\n    ElseIf 0 < InStr(1, s_BkFlpath, \".xlsx\", vbBinaryCompare) Then\r\n        \r\n        cn.Open \"Provider=Microsoft.ACE.OLEDB.12.0\" & _\r\n                \";Data Source=\" & s_BkFlpath & _\r\n                \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n\r\n    ElseIf 0 < InStr(1, s_BkFlpath, \".xls\", vbBinaryCompare) Then\r\n    \r\n        '\u6700\u521d\u306bxls\u3092\u8abf\u3079\u3066\u3057\u307e\u3046\u3068\u3001\r\n        'xlsm\u3068xlsx\u306b\u3082\u53cd\u5fdc\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u4e00\u756a\u6700\u5f8c\u306b\u8abf\u3079\u308b\r\n        \r\n        cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0\" & _\r\n                \";Data Source=\" & s_BkFlpath & _\r\n                \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n    \r\n    Else\r\n\r\n    End If\r\n\r\n\r\n    'ADO\u5f62\u5f0f\u3067\u63a5\u7d9a\u3057\u305fExcel\u30d5\u30a1\u30a4\u30eb\u306b\u304a\u3044\u3066\u3001\r\n    '\u300cADOX\u300d\u306e\u6a5f\u80fd\u3092\u4f7f\u3048\u308b\u3088\u3046\u306b\u3059\u308b\u3002\r\n       \r\n    ct.ActiveConnection = cn\r\n    \r\n        '    \u2191\r\n        '  \u300cADOX\u300d\u306f\u3001ADO\u63a5\u7d9a\u3092\u3057\u305f\u5834\u5408\u306b\u9650\u308a\u3001\r\n        '    \u300c\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3057\u305f\u308a\u524a\u9664\u3057\u305f\u308a\u3059\u308b\u300d\u6a5f\u80fd\u3067\u3059\u3002\r\n        '\r\n        '   \u203b\u300cADO\u300d\u3067\u306f\u306a\u304f\u3001\u300cDAO\u300d\u3067\u306e\u63a5\u7d9a\u3092\u4f7f\u3044\u305f\u3044\u5834\u5408\u3067\u306f\u3001\r\n        '     \u300c\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3057\u305f\u308a\u524a\u9664\u3057\u305f\u308a\u3059\u308b\u6a5f\u80fd\u300d\u306f\u3001\r\n        '      \u6700\u521d\u304b\u3089\u305d\u306e\u300cDAO\u300d\u5358\u4f53\u306e\u4e2d\u306b\u542b\u307e\u308c\u3066\u3044\u308b\u305f\u3081\u3001\r\n        '      \u3053\u306e\u3088\u3046\u306a\u51e6\u7406\uff08\uff1d\u30b3\u30fc\u30c9\uff09\u306f\u5fc5\u8981\u3042\u308a\u307e\u305b\u3093\u3002\r\n                \r\n    \r\n    \r\n    '\u2605 \u5b9f\u52d5\u90e8\r\n             \r\n'    ActiveSheet.Cells.Clear\r\n\r\n  \r\n    '\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u540d\u3092\u30c1\u30a7\u30c3\u30af\r\n    For Each t In ct.Tables\r\n    \r\n'      If t.Type = \"TABLE\" Then\r\n'        i = i + 1\r\n'        ActiveSheet.Cells(i, 1).Value = t.Name\r\n'      End If\r\n        \r\n        Debug.Print t.Name\r\n        \r\n    Next t\r\n  \r\n    \r\n    cn.Close\r\n    \r\n    Set cn = Nothing\r\n    Set ct = Nothing\r\n\r\n\r\n\r\nExit Function\r\nerror1:\r\n\r\n    cn.Close\r\n    \r\n    Set cn = Nothing\r\n    Set ct = Nothing\r\n    \r\n    \r\nEnd Function\r\n\r\n\r\n'###############################################################################\r\n'Excel\u3092\u958b\u304b\u305a\u306b\u3001Excel\u306e\u30b7\u30fc\u30c8\u540d\uff08\u30c6\u30fc\u30d6\u30eb\u540d\uff09\u3068\u5217\u540d\u3092\u8abf\u3079\u308b\u95a2\u6570\r\n'\u300csn2\u300d\u306f\u300cSheetName2\u300d\u306e\u7565\u3067\u3059\u3002\r\n'\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u3067\u3055\u3063\u3068\u8abf\u3079\u305f\u3044\u306e\u3067\u3042\u3048\u3066\u77ed\u3044\u540d\u524d\u306b\u3057\u3066\u3042\u308a\u307e\u3059\u3002\r\n'###############################################################################\r\n \r\nFunction sn2(s_BkFlpath As String)\r\n \r\n    'http:\/\/doctorlabo.main.jp\/?p=398 \u3092\u52a0\u5de5\u3002\r\n \r\n \r\n    \r\n'    Dim s_BkFlpath  As String\r\n    \r\n    Dim i           As Long\r\n    \r\n \r\n'    '\u4ee5\u4e0b\u306e\u5909\u6570\u8a2d\u5b9a\u3092\u4f7f\u3044\u305f\u3044\u6642\u306f\u3001\r\n'    'VBE\u306e\u753b\u9762\u306b\u3066\u3001\u4ee5\u4e0b\u306e\uff12\u3064\u306e\u30e9\u30a4\u30d6\u30e9\u30ea\u3078\u306e\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u304c\u5fc5\u8981\u3067\u3059\u3002\r\n'    '\u30fbMicrosoft ActiveX Data Object 2.8 Library\r\n'    '\u30fbMicrosoft ADO Ext.2.8 for DDL and Security]\r\n'    Dim cn          As New ADODB.Connection\r\n'    Dim t           As Table\r\n'    Dim ct          As New ADOX.Catalog\r\n \r\n \r\n    '\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u3057\u305f\u304f\u306a\u3044\u3068\u304d\u306f\u4ee5\u4e0b\u306e\u5909\u6570\u8a2d\u5b9a\u3092\u4f7f\u3044\u307e\u3059\u3002\r\n    Dim cn          As Object\r\n    Dim t           As Object\r\n    Dim ct          As Object\r\n \r\n \r\nOn Error GoTo error1:\r\n \r\n    '\u2605 \u8a2d\u5b9a\u90e8\r\n    \r\n    \r\n    '\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u3057\u305f\u304f\u306a\u3044\u3068\u304d\u306e\u300cADO\u300d\u306e\u6e96\u5099\u8a2d\u5b9a\r\n    \r\n    '\u8a2d\u5b9a\u304c\u7a7a\u306e\uff08\uff1d\u672a\u8a2d\u5b9a\u306e\uff09ADO\u7528\u306e\u5909\u6570\u306e\u7528\u610f\r\n    Set cn = CreateObject(\"ADODB.Connection\")\r\n    \r\n    '\u8a2d\u5b9a\u304c\u7a7a\u306e\uff08\uff1d\u672a\u8a2d\u5b9a\u306e\uff09ADOX\u7528\u306e\u5909\u6570\u306e\u7528\u610f\r\n    Set ct = CreateObject(\"ADOX.Catalog\")\r\n    \r\n    \r\n    '\u203b\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u3092\u3057\u305f\u3068\u304d\u306f\u3001\u76f4\u4e0a\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u306f\u4e0d\u8981\u3067\u3059\u3002\r\n    \r\n \r\n \r\n'    cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & ThisWorkbook.path & \"\\\u57fa\u672c.mdb\" & \";\"\r\n \r\n'    s_BkFlpath = \"D:\\1\\5.xls\"\r\n    \r\n'    cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & s_BkFlpath & \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n'    cn.Open \"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\" & s_BkFlpath & \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n        \r\n        \r\n    'Excel\u30d5\u30a1\u30a4\u30eb\u3078\u306eADO\u5f62\u5f0f\u3067\u306e\u63a5\u7d9a\r\n    If 0 < InStr(1, s_BkFlpath, \".xlsm\", vbBinaryCompare) Then\r\n    \r\n        cn.Open \"Provider=Microsoft.ACE.OLEDB.12.0\" & _\r\n                \";Data Source=\" & s_BkFlpath & _\r\n                \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n    \r\n    ElseIf 0 < InStr(1, s_BkFlpath, \".xlsx\", vbBinaryCompare) Then\r\n        \r\n        cn.Open \"Provider=Microsoft.ACE.OLEDB.12.0\" & _\r\n                \";Data Source=\" & s_BkFlpath & _\r\n                \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n \r\n    ElseIf 0 < InStr(1, s_BkFlpath, \".xls\", vbBinaryCompare) Then\r\n    \r\n        '\u6700\u521d\u306bxls\u3092\u8abf\u3079\u3066\u3057\u307e\u3046\u3068\u3001\r\n        'xlsm\u3068xlsx\u306b\u3082\u53cd\u5fdc\u3057\u3066\u3057\u307e\u3046\u306e\u3067\u4e00\u756a\u6700\u5f8c\u306b\u8abf\u3079\u308b\r\n        \r\n        cn.Open \"Provider=Microsoft.Jet.OLEDB.4.0\" & _\r\n                \";Data Source=\" & s_BkFlpath & _\r\n                \";Extended Properties=\"\"Excel 8.0;HDR=Yes;IMEX=1\"\"\"\r\n    \r\n    Else\r\n \r\n    End If\r\n \r\n \r\n    'ADO\u5f62\u5f0f\u3067\u63a5\u7d9a\u3057\u305fExcel\u30d5\u30a1\u30a4\u30eb\u306b\u304a\u3044\u3066\u3001\r\n    '\u300cADOX\u300d\u306e\u6a5f\u80fd\u3092\u4f7f\u3048\u308b\u3088\u3046\u306b\u3059\u308b\u3002\r\n       \r\n    ct.ActiveConnection = cn\r\n    \r\n        '    \u2191\r\n        '  \u300cADOX\u300d\u306f\u3001ADO\u63a5\u7d9a\u3092\u3057\u305f\u5834\u5408\u306b\u9650\u308a\u3001\r\n        '    \u300c\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3057\u305f\u308a\u524a\u9664\u3057\u305f\u308a\u3059\u308b\u300d\u6a5f\u80fd\u3067\u3059\u3002\r\n        '\r\n        '   \u203b\u300cADO\u300d\u3067\u306f\u306a\u304f\u3001\u300cDAO\u300d\u3067\u306e\u63a5\u7d9a\u3092\u4f7f\u3044\u305f\u3044\u5834\u5408\u3067\u306f\u3001\r\n        '     \u300c\u30c6\u30fc\u30d6\u30eb\u3092\u4f5c\u6210\u3057\u305f\u308a\u524a\u9664\u3057\u305f\u308a\u3059\u308b\u6a5f\u80fd\u300d\u306f\u3001\r\n        '      \u6700\u521d\u304b\u3089\u305d\u306e\u300cDAO\u300d\u5358\u4f53\u306e\u4e2d\u306b\u542b\u307e\u308c\u3066\u3044\u308b\u305f\u3081\u3001\r\n        '      \u3053\u306e\u3088\u3046\u306a\u51e6\u7406\uff08\uff1d\u30b3\u30fc\u30c9\uff09\u306f\u5fc5\u8981\u3042\u308a\u307e\u305b\u3093\u3002\r\n                \r\n    \r\n    \r\n    '\u2605 \u5b9f\u52d5\u90e8\r\n             \r\n'    ActiveSheet.Cells.Clear\r\n \r\n    Debug.Print \"\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\"\r\n \r\n    '\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u540d\u3092\u30c1\u30a7\u30c3\u30af\uff08\u30b7\u30fc\u30c8\u540d\u306e\u307f\u5148\u306b\u5168\u90e8\u51fa\u3059\u3002\uff09\r\n    For Each t In ct.Tables\r\n    \r\n'      If t.Type = \"TABLE\" Then\r\n'        i = i + 1\r\n'        ActiveSheet.Cells(i, 1).Value = t.Name\r\n'      End If\r\n        \r\n        Debug.Print t.Name\r\n \r\n    Next t\r\n    \r\n    Debug.Print \"\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\u2605\"\r\n    Debug.Print \"=============================\"\r\n    \r\n    Dim f01 As Object\r\n  \r\n    '\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u540d\u3068\u305d\u306e\u30b7\u30fc\u30c8\u306e\u5217\u540d\u3092\u4e00\u89a7\u3059\u308b\u3002\r\n    For Each t In ct.Tables\r\n    \r\n'      If t.Type = \"TABLE\" Then\r\n'        i = i + 1\r\n'        ActiveSheet.Cells(i, 1).Value = t.Name\r\n'      End If\r\n        \r\n        Debug.Print t.Name\r\n'        Debug.Print \"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\"\r\n        Debug.Print \"------------------------\"\r\n        \r\n        For Each f01 In t.Columns\r\n            Debug.Print f01.Name\r\n        Next\r\n        \r\n        Debug.Print \"=============================\"\r\n        \r\n    Next t\r\n  \r\n    \r\n    cn.Close\r\n    \r\n    Set cn = Nothing\r\n    Set ct = Nothing\r\n \r\n \r\n \r\nExit Function\r\nerror1:\r\n \r\n    cn.Close\r\n    \r\n    Set cn = Nothing\r\n    Set ct = Nothing\r\n    \r\n    \r\nEnd Function\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605ExcelVBA ~ \u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u306e\u304b\u308f\u308a~ SQL\u3068ODBC\u3067\u3001\u30d6\u30c3\u30af\u5185\u306e\u5168\u30b7\u30fc\u30c8\u3092\u300c\u5217\u540d\u6307\u5b9a\u3060\u3051\u3067\u300d\u3001\u7e26\u306b\u7d50\u5408\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\u5217\u3055\u3048\u3042\u308c\u3070\u305d\u306e\u4e26\u3073\u9806\u306f\u5de6\u53f3\u3050\u3061\u3083\u3050\u3061\u3083\u3067\u3082OK\uff01\uff01\uff08\u3082\u3057\u3069\u3053\u304b\u306e\u30b7\u30fc\u30c8\u306b\u300c\u8db3\u3089\u306a\u3044\u5217\u300d ...","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\/2022"}],"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=2022"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/2022\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=2022"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=2022"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}