{"id":1562,"date":"2019-06-12T19:46:24","date_gmt":"2019-06-12T10:46:24","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1562"},"modified":"2023-07-16T15:49:00","modified_gmt":"2023-07-16T06:49:00","slug":"text-file_import_by_sql-of-query-table-object01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/text-file_import_by_sql-of-query-table-object01","title":{"rendered":"\u2605\u2605\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eExcel\u306b\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u3001\u300cSQL\u3092\u4f7f\u3044\u306a\u304c\u3089\u300d\u30fb\u304b\u3064\u30fb\u300c\u7d5e\u308a\u8fbc\u307f\u306a\u304c\u3089\u8aad\u307f\u8fbc\u3080\u300d\u65b9\u6cd5\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u3066ODBC\u63a5\u7d9a\u5229\u7528\uff09\u203bADO\uff0bOLEDB\u306f\u5225\u3067\u3059\u3002\uff5e"},"content":{"rendered":"

\u2605\u2605\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eExcel\u306b\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u3001\u300cSQL\u3092\u4f7f\u3044\u306a\u304c\u3089\u300d\u30fb\u304b\u3064\u30fb\u300c\u7d5e\u308a\u8fbc\u307f\u306a\u304c\u3089\u8aad\u307f\u8fbc\u3080\u300d\u65b9\u6cd5\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u3066ODBC\u63a5\u7d9a\u5229\u7528\uff09\u203bADO\uff0bOLEDB\u306f\u5225\u3067\u3059\u3002\uff5e
\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>
\n\u3000\u3000<\/SPAN>
\n\u203b\u95a2\u9023Web\u8a18\u4e8b
\n\u300e ADO\u3067CSV\u306e\u8aad\u307f\u8fbc\u307f\uff08SQL\uff09<\/a> \u300f
\n\u300e VBA\u3067\u306eCSV\u306e\u6271\u3044\u65b9\u307e\u3068\u3081\uff08\u6587\u5b57\u30b3\u30fc\u30c9\u304c\u3069\u3046\u3057\u3066\u3082\u95a2\u4fc2\u3059\u308b\u5834\u5408\u3068\u304b\uff09<\/a> \u300f<\/p>\n

\u76ee\u6b21
\n \u3000\u2605 \u306f\u3058\u3081\u306b<\/a><\/SPAN>
\n \u3000\u2605 \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u300c \u201d SQL \u201d \u3092\u4f7f\u3044\u306a\u304c\u3089\u300d\u5438\u3044\u8fbc\u307f\u305f\u3044\u5834\u5408\u306e\u6ce8\u610f\u30fb\u4e8b\u524d\u77e5\u8b58<\/a><\/SPAN>
\n \u3000\u2605 \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3054\u3068\u306e\u3001\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u306e\u5177\u4f53\u4f8b<\/a><\/SPAN>
\n \u3000\u2605 \u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3092\u4f5c\u308b\u3068\u3001\u4f8b\u3048\u3070Microsoft Query\u304b\u3089\u306f\u3069\u3046\u898b\u3048\u308b\u304b\uff1f<\/a><\/SPAN>
\n \u3000\u2605 Excel\u306eMicrosoftQuery\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u753b\u9762\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u4e00\u89a7\u3067\u306e\u3001\u300c*\u300d\u306e\u610f\u5473<\/a><\/SPAN>
\n \u3000\u2605 \u5148\u306bSchema.ini\u3068\u30d5\u30a9\u30eb\u30c0\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u3063\u3066\u304b\u3089\u3001<\/a><\/SPAN>
\n \u3000\u3000\u3000\u3000\u3000\u3000ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u306b\u767b\u9332\u3059\u308b\u3068\u3069\u3046\u306a\u308b\u304b\uff1f<\/a><\/SPAN>
\n \u3000\u2605 \u5148\u306bSchema.ini\u3068\u30d5\u30a9\u30eb\u30c0\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u3063\u3066\u304b\u3089\u3001<\/a><\/SPAN>
\n \u3000\u3000\u3000\u3000\u3000\u3000Excel\u306eMicrosoftQuery\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u753b\u9762\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306b\u767b\u9332\u3059\u308b\u3068\u3069\u3046\u306a\u308b\u304b\uff1f<\/a><\/SPAN>
\n \u3000\u2605 \u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3092\u4f5c\u308b\u3068\u3001VBA\u304b\u3089\u306f\u3069\u3046\u6271\u3048\u308b\u3088\u3046\u306b\u306a\u308b\u306e\u304b\uff1f<\/a><\/SPAN>
\n \u3000\u2605 \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u7f6e\u304f\u30d5\u30a9\u30eb\u30c0\u3092\u4f5c\u6210<\/a><\/SPAN>
\n \u3000\u2605 \u305d\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u3072\u3068\u3064\u3068\u3057\u3066\u8a2d\u5b9a\u3059\u308b<\/a><\/SPAN>
\n \u3000\u3000\u3000\u3000\u3000\uff08\u8907\u6570\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u7f6e\u3051\u307e\u3059\u3057\u3001\u533a\u5207\u308a\u6587\u5b57\u306a\u3069\u3082\u5225\u3005\u306b\u8a2d\u5b9a\u3067\u304d\u307e\u3059\u3002\uff09<\/a><\/SPAN>
\n \u3000\u2605 \u305d\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u3072\u3068\u3064\u3068\u3057\u3066\u8a2d\u5b9a\u3059\u308b\u3067\u304d\u307e\u3059\u3002\uff09<\/a><\/SPAN>
\n \u3000\u2605 \u305d\u306e\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u30ab\u30f3\u30de\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u914d\u7f6e<\/a><\/SPAN>
\n \u3000\u2605 \u30ab\u30f3\u30de\u533a\u5207\u308a\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5217\u540d\u884c\u306e\u6307\u5b9a\u3084\u533a\u5207\u308a\u6587\u5b57\u7b49\u3005\u306e\u8a2d\u5b9a<\/a><\/SPAN>
\n \u3000\u2605 \u305d\u306e\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u914d\u7f6e<\/a><\/SPAN>
\n \u3000\u2605 \u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5217\u540d\u884c\u306e\u6307\u5b9a\u3084\u533a\u5207\u308a\u6587\u5b57\u7b49\u3005\u306e\u8a2d\u5b9a<\/a><\/SPAN>
\n \u3000\u2605 Microsoft Query\u304b\u3089\u30ab\u30f3\u30de\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3093\u3067\u307f\u308b<\/a><\/SPAN>
\n \u3000\u2605 \u305d\u308c\u3092\u30de\u30af\u30ed\u306e\u8a18\u9332\u306b\u3057\u3066\u307f\u308b\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u307f\uff09<\/a><\/SPAN>
\n \u3000\u2605 \u540c\u4e0a\uff08ListObject\u3064\u304d\uff09<\/a><\/SPAN>
\n \u3000\u2605 VBA\u3092\u66f8\u304d\u63db\u3048\u3066\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u5438\u3044\u8fbc\u3093\u3067\u307f\u308b\u3002<\/a><\/SPAN>
\n \u3000\u2605 VBA\u306eSQL\u3092\u66f8\u304d\u63db\u3048\u3066\u3001\u7d5e\u308a\u8fbc\u3093\u3067\u307f\u308b<\/a><\/SPAN>
\n \u3000\u2605 \u30de\u30af\u30ed\u3067\u751f\u6210\u3055\u308c\u305f\u30d7\u30ed\u30b0\u30e9\u30e0\u4f8b\uff1a\u30d0\u30fc\u30b8\u30e7\u30f32010\u306e\u5834\u5408\uff08\u3053\u306e\u30b3\u30fc\u30c9\u3060\u3068\u30ab\u30f3\u30de\u533a\u5207\u308a\u3057\u304b\u5438\u3044\u8fbc\u3081\u307e\u305b\u3093\u3067\u3057\u305f\uff09<\/a><\/SPAN>
\n \u3000\u2605 C:\\USERS\\USER01\\DESKTOP\\ttt.txt \u306e\u4e2d\u8eab\u306e\u4f8b<\/a><\/SPAN>
\n \u3000\u2605 Excel2000\u306e\u5834\u5408\uff10\uff11\uff08\uff12\uff10\uff11\uff10\u3067\u306e\u30b3\u30fc\u30c9\u3092\u307e\u3093\u307e\u3067\u4f7f\u3063\u305f\u30c6\u30b9\u30c8\uff09<\/a><\/SPAN>
\n \u3000\u2605 Excel2000\u306e\u5834\u5408\uff10\uff12<\/a><\/SPAN><\/p>\n

\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u306f\u3058\u3081\u306b<\/a><\/p>\n

ExcelVBA\u306e\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u3067\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u5834\u5408\u3001\u591a\u304f\u304c\u30fb\u30fb\u30fb<\/p>\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
\nSet a = ActiveSheet.QueryTables.Add( _
\n\u3000\u3000\u3000\u3000\u3000\u3000Connection:=\"TEXT;C:\\\u30d5\u30a9\u30eb\u30c0\u540d\\\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u540d.txt\", _
\n\u3000\u3000\u3000\u3000\u3000\u3000Destination:=Range(\"$A$1\"))<\/p>\n

\u3000\u30fb\u30fb\u30fb\u4ee5\u4e0b\u4e91\u3005<\/p>\n

\u203b\u53c2\u8003URL
\nhttps:\/\/excel-ubara.com\/excelvba5\/EXCEL111.html<\/a>
\n\u5f15\u7528\uff1a\u300c\u6587\u5b57\u30b3\u30fc\u30c9\u304cUTF8\u306e\u5834\u5408\u3000.TextFilePlatform = 65001 'UTF8\u3000\u3053\u306e\u3088\u3046\u306b\u3001932\u306e\u4ee3\u308f\u308a\u306b65001\u3092\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u300d<\/p>\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<\/p>\n

\u30fb\u30fb\u30fb\u3068\u3044\u3046\u3088\u3046\u306a\u611f\u3058\u306e\u30b3\u30fc\u30c9\u3067\u5438\u3044\u8fbc\u3080\u5f62\u3068\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

Web\u4e0a\u306b\u3082\u3053\u306e\u5f62\u3067\u306e\u7d39\u4ecb\u304c\u591a\u3044\u3067\u3059\u3002
\n\u300e \u30ea\u30dc\u30f3 \u2192 \u30c7\u30fc\u30bf\u30fb\u30bf\u30d6 \u2192 \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u30fb\u30dc\u30bf\u30f3\uff08\u300c\u5916\u90e8\u30c7\u30fc\u30bf\u306e\u53d6\u308a\u8fbc\u307f\u300d\u30b0\u30eb\u30fc\u30d7\uff09\u300f\u3067\u306e\u5438\u3044\u8fbc\u307f\u3068\u540c\u3058\u52d5\u304d\u306b\u306a\u308a\u307e\u3059\u3088\u306d\u3002<\/p>\n

\u3067\u3082\u3001\u3053\u306e\u3084\u308a\u304b\u305f\u3067\u3059\u3068\u3001\u3069\u3046\u3084\u3089\u3001\u3067\u3059\u304c\u3001\u300c\u30c6\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u304c\uff11\u3064\u3060\u3051\u5438\u3044\u8fbc\u3081\u308b\u300d\u3063\u3066\u3060\u3051\u3067\u3001<\/b><\/span>SQL\u304c\u4f7f\u3048\u306a\u3044\u3082\u3088\u3046\u306a\u306e\u3067\u3059\u3002\uff08\u691c\u7d22\u4e0d\u8db3\u3067\u305f\u3060\u5358\u306b\u5206\u304b\u3089\u306a\u304b\u3063\u305f\u3060\u3051\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3002\u50d5\u306f\u30d0\u30ab\u306a\u306e\u3067\u3001\u30d8\u30eb\u30d7\u3084Web\u30b5\u30a4\u30c8\u3092\u3044\u308d\u3044\u308d\u63a2\u3057\u305f\u3093\u3067\u3059\u304c\u5206\u304b\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002\uff09<\/p>\n

\u3082\u3061\u308d\u3093\u3001\u5438\u3044\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u306f\u3001\u300c\u5168\u884c\u30fb\u5168\u5217\u300d\u304c\u300c\u30c9\u30d0\u30f3\uff01\uff01\uff01\u300d\u3068\u5438\u3044\u8fbc\u307e\u308c\u3066\u3057\u307e\u3044\u307e\u3059\u3002\u3081\u3093\u3069\u304f\u3055\u3063\uff01
\n\u3057\u304b\u3082\u305f\u3063\u305f\u4e00\u3064\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3060\u3051\u3057\u304b\u5438\u3044\u8fbc\u3081\u306a\u3044\uff01\uff01\u3081\u3093\u3069\u304f\u3055\u3063\uff01<\/p>\n

\u300cSQL\u3067\u7d5e\u308a\u8fbc\u307f\u3057\u306a\u304c\u3089\u5438\u3044\u8fbc\u3080\u300d\u306a\u3093\u3066\u3067\u304d\u3084\u3057\u307e\u305b\u3093\u3002\u3081\u3093\u3069\u304f\u3055\u3063\uff01
\n\u3082\u3061\u308d\u3093\u3001\u8907\u6570\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3055\u305b\u306a\u304c\u3089\u30fb\u30fb\u30fb\u3082\u3067\u304d\u307e\u305b\u3093\u3002
\n\u3042\uff5e\u30fb\u3081\u3093\u3069\u304f\u3055\u3063\uff01<\/b><\/span><\/p>\n

\u305d\u308c\u3092\u907f\u3051\u305f\u304f\u3066\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u5438\u3044\u8fbc\u307f\u3064\u3064\u3001\u3067\u3082\u305d\u308c\u306b\u5bfe\u3057\u3066SQL\u3082\u4f7f\u3044\u305f\u3044\u30fb\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3082\u7d44\u307f\u306a\u304c\u3089\u5438\u3044\u8fbc\u307f\u305f\u3044\u300d\u3068\u3044\u3046\u5834\u5408\u306f\u3001ODBC\u30c9\u30e9\u30a4\u30d0\u7d4c\u7531\uff08ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u7d4c\u7531\uff09\u306a\u3069\u306a\u3089\u3067\u304d\u308b\u3063\u307d\u3044\u3067\u3059\u3002\uff08\u4ee5\u4e0b\u306e\u53c2\u8003Web\u8a18\u4e8b\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002\uff09<\/p>\n

\u53c2\u8003Web\u8a18\u4e8b
\n\u300eODBC\u306eText Driver\u3068Excel\u3068\u3092\u4f7f\u3063\u3066CSV\u30d5\u30a1\u30a4\u30eb\u3092SQL\u3067\u691c\u7d22\u30fb\u62bd\u51fa\u3059\u308b<\/a>\u300f
\n\u203b\u2191\u300c\u6ce8\u610f\u3057\u306a\u3051\u308c\u3070\u306a\u3089\u306a\u3044\u306e\u306f\u3001\u3001\u3001\u300d\u306e\u3068\u3053\u308d\u3092\u5fc5\u305a\u8aad\u3093\u3067\u304a\u3044\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u5b9f\u969b\u306b\u4e0a\u8a18\u8a18\u4e8b\u306e\u3088\u3046\u306b\u3084\u3063\u3066\u307f\u307e\u3057\u305f\u3089\u3001\u300c\u7d50\u69cb\u4fbf\u5229\u304b\u3082\uff1f\u300d\u3068\u611f\u3058\u307e\u3057\u305f\u306e\u3067\u3001\u3084\u308a\u304b\u305f\u3092\u30e1\u30e2\u3063\u3066\u304a\u3053\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u203b\u3082\u3057\u304b\u3057\u305f\u3089\u3067\u3059\u304c\u3001SQL\u304c\u4f7f\u3048\u308b\u3001\u3068\u3044\u3046\u3053\u3068\u306f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3082SQL\uff0bODBC\u7d4c\u7531\u3067\u30ec\u30b3\u30fc\u30c9\u306e\u8ffd\u52a0\u30fb\u7de8\u96c6\u306a\u3069\u3082\u3067\u304d\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002Excel\u30d5\u30a1\u30a4\u30eb\u304c\u5bfe\u8c61\u306e\u5834\u5408\u3067\u306fSQL\u3067\u306f\u524a\u9664\u3060\u3051\u304c\u3067\u304d\u307e\u305b\u3093\u304c\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306a\u3089SQL\u3067\u524a\u9664\u3082\u3067\u304d\u308b\u306e\u304b\u3082\uff1f\uff1f\uff1f\u3067\u3082\u3001\u672a\u78ba\u8a8d\u306a\u306e\u3067\u3054\u81ea\u5206\u3067\u3082\u8abf\u3079\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/b><\/span>
\n<\/b><\/span>\u203b\u5149\u6804\u306b\u3082\u3001\u300e https:\/\/qiita.com\/Q11Q\/items\/9c93552a0efd49d06fc4<\/a> \u300f\u3068\u3044\u3046Web\u30da\u30fc\u30b8\u306b\u3066\u3001\u300c\u3053\u3093\u306a\u30d0\u30ab\u304c\u66f8\u3044\u3066\u3044\u308b\u60c5\u5831\u306f\u4fe1\u7528\u306a\u3089\u306a\u3044\u300d\u3068\u304a\u8912\u3081\u306e\u8a00\u8449\u3092\u3044\u305f\u3060\u304d\u307e\u3057\u305f\u3002
\n\u305d\u3046\u3067\u3059\u3002
\n\u3053\u306e\u65b9\u306e\u8a00\u3046\u901a\u308a\u3067\u3059\u3002
\n\u306a\u306e\u3067\u3001\u5f53\u8a18\u4e8b\u306f\u3082\u3061\u308d\u3093\u3001\u307c\u304f\u306e\u30b5\u30a4\u30c8\u306e\u60c5\u5831\u306f\u5168\u90e8\u3001\u4fe1\u7528\u3057\u306a\u3044\u3067\u304f\u3060\u3055\u3044\u3002
\n\u5168\u90e8\u3001\u300c\u30c6\u30ad\u30c8\u30fc\u300d\u3067\u3059\u304b\u3089\u3002
\n\u5fc5\u305a\u3054\u81ea\u5206\u3067\u3082\u3057\u3063\u304b\u308a\u3068\u8272\u3005\u3068\u304a\u8abf\u3079\u304f\u3060\u3055\u3044\u306d\u3002<\/b><\/span><\/p>\n

\u203b\u66f4\u306b\u3082\u3057\u304b\u3057\u305f\u3089\u3067\u3059\u304c\u30012010\uff1f2013?\u4ee5\u964d\u306e\u3001\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3084\u30d1\u30ef\u30fc\u30d4\u30dc\u30c3\u30c8\u306a\u3069\u3067\u3082\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092 \u201d SQL\u3092\u4f7f\u3044\u306a\u304c\u3089\u30fb\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3092\u7d44\u307f\u306a\u304c\u3089 \u201d \u5438\u3044\u8fbc\u3080\u300d\u3068\u3044\u3046\u3053\u3068\u304c\u53ef\u80fd\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u304c\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u7d4c\u7531\u3067MicrosoftQuery\u3084VBA\u3067\u6271\u3046\u307b\u3046\u304c\u3001\u591a\u5206\u3067\u3059\u304c\u3001\u306f\u308b\u304b\u306b\u3001\u30e9\u30af\u3061\u3093\u3060\u3068\u306f\u601d\u3044\u307e\u3059\u3002\u53e4\u3044\u6280\u8853\u306a\u306e\u3067\u4f59\u8a08\u306a\u3053\u3068\u3092\u899a\u3048\u306a\u304f\u3066\u3044\u3044\u304b\u3089\u3067\u3059\u3002\u3044\u305a\u308c\u306b\u3057\u307e\u3057\u3066\u3082\u3001\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3084\u30d1\u30ef\u30fc\u30d4\u30dc\u30c3\u30c8\u306a\u3069\u3067\u3082\u3067\u304d\u308b\u306e\u306a\u3089\u305d\u3061\u3089\u3092\u4f7f\u3063\u3066\u3082\u3044\u3044\u3068\u601d\u3044\u307e\u3059\u3002\u30d1\u30ef\u30fc\u30af\u30a8\u30ea\u3084\u30d1\u30ef\u30fc\u30d4\u30dc\u30c3\u30c8\u306b\u3057\u304b\u306a\u3044\u3001\u4fbf\u5229\u306a\u5438\u3044\u8fbc\u307f\u6a5f\u80fd\u3082\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u306e\u3067\u3002\u30af\u30e9\u30a6\u30c9\u5bfe\u5fdc\u3068\u304b\u3002<\/b><\/span><\/p>\n

\u306a\u304a\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3068\u3044\u3046\u3082\u306e\u306f\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\uff0832bit Or 64bit\u300d\u3067\u4f5c\u6210\u3059\u308b\u306e\u3067\u3059\u304c\u3001\u305d\u306e\u30c4\u30fc\u30eb\u306fWindows95\u4ee5\u964d\uff08\u591a\u5206\uff09\u300198\u30012000\u3001XP\u3001Vitsta\u30017\u30018\u300110\u3001\u3059\u3079\u3066\u306eOS\u3067\u4f7f\u3048\u308bOS\u6a19\u6e96\u306e\u6a5f\u80fd\u3067\u3059\u3002
\n\uff08Windows95\u300198\u3001\u3042\u305f\u308a\u306f\u3001\u3082\u3057\u304b\u3057\u305f\u3089Schema.ini\uff08\u5f8c\u8ff0\uff09\u304c\u5225\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001 \u300eMicrosoft Jet \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30a8\u30f3\u30b8\u30f3\u3068ODBC\u3068\u30ec\u30b8\u30b9\u30c8\u30ea\u3068Schema.ini <\/a>\u300f\u3092\u898b\u308b\u3068\u300195\u308498\u3082Schema.ini \u304c\u4f7f\u3048\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\uff09<\/b><\/span><\/p>\n

\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u300c \u201d SQL \u201d \u3092\u4f7f\u3044\u306a\u304c\u3089\u300d\u5438\u3044\u8fbc\u307f\u305f\u3044\u5834\u5408\u306e\u6ce8\u610f\u30fb\u4e8b\u524d\u77e5\u8b58<\/a><\/p>\n

\u203b\u53c2\u8003Web\u8a18\u4e8b
\n\u300e\u30c7\u30fc\u30bf \u30bd\u30fc\u30b9 (ODBC)\u3000\u3000\u203b\u6a5f\u68b0\u7ffb\u8a33\uff1f<\/a>\u300f
\n\u300eMicrosoft Jet \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30a8\u30f3\u30b8\u30f3\u3068ODBC\u3068\u30ec\u30b8\u30b9\u30c8\u30ea\u3068Schema.ini <\/a>\u300f<\/p>\n

\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u3068\u304d\u306b\u30fb\u30fb\u30fb
\n(a)SQL\u3092\u4f7f\u3044\u305f\u3044\u3002
\n(b)SQL\u3092\u4f7f\u3063\u3066\u3001\u7d5e\u308a\u8fbc\u307f\u3092\u3057\u306a\u304c\u3089\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u5438\u3044\u8fbc\u307f\u305f\u3044\u3002
\n(c)\u4e00\u822c\u7684\u306a\u300c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u30a4\u30f3\u30dd\u30fc\u30c8\u300d\u6a5f\u80fd\u306f\u5fc5\u305a\u5168\u3066\u306e\u30c7\u30fc\u30bf\u304c\u5438\u3044\u8fbc\u307e\u308c\u3066\u3057\u307e\u3044\u3001\u300cSQL\u3067\u306e\u7d5e\u308a\u8fbc\u307f\u304c\u3067\u304d\u306a\u3044\u300d\u306e\u3067\u9762\u5012\u304f\u3055\u304f\u3066\u4f7f\u3044\u305f\u304f\u306a\u3044\u3002
\n(d)\u300cADO\uff0bOLEDB\u63a5\u7d9a\uff0bRange.CopyFromRecordset\u30e1\u30bd\u30c3\u30c9\u300d\u3067\u3082\u3084\u308c\u308b\u3051\u3069\u3001\u305d\u308c\u3060\u3068\u300c\u5217\u540d\u8868\u793a\u5c02\u7528\u300d\u306e\u30b3\u30fc\u30c9\u304c\u8ffd\u52a0\uff08\u5225\u9014\uff09\u3067\u5fc5\u8981\u3067\u3044\u3061\u3044\u3061\u305d\u3093\u306a\u3053\u3068\u3059\u308b\u306e\u9762\u5012\u304f\u3055\u3044\u3002
\n(e)\u300cADO\uff0bOLEDB\u63a5\u7d9a\uff0bRange.CopyFromRecordset\u30e1\u30bd\u30c3\u30c9\u300d\u306e\u5834\u5408\u3001\u7d50\u679c\u306e\u8868\u3092\u64cd\u4f5c\u3059\u308b\u969b\u306b\u3001\u300c\u624b\u8efd\u306a\u300d\u300c\u53f3\u30af\u30ea\u30c3\u30af\u3067 \u201d\u66f4\u65b0\u201d \u3067\u304d\u308b\u300d\u3001\u305d\u3046\u3044\u3046\u30e1\u30cb\u30e5\u30fc\u304c\u300c\u7121\u3044\u300d\u306e\u3067\u3001\u305d\u308c\u3082\u9762\u5012\u304f\u3055\u3044\u3002
\n(f)\u300cQueryTable\uff0bODBC\u63a5\u7d9a\u300d\u3067\u306a\u3089\u3001\u305d\u3093\u306a\u9762\u5012\u3082\u7121\u3044\u306e\u3067\uff08\u5217\u540d\u5c02\u7528\u30b3\u30fc\u30c9\u306a\u3093\u304b\u8981\u3089\u306a\u3044\u3057\u3001\u53f3\u30af\u30ea\u30c3\u30af\u66f4\u65b0\u3082\u53ef\u80fd\u3060\u3057\u3001\u901f\u5ea6\u3082\u914d\u5217\u5229\u7528\u306b\u8ca0\u3051\u306a\u3044\u304f\u3089\u3044\u306a\u306e\u3067\uff09ODBC\u63a5\u7d9a\u3067\u3084\u308a\u305f\u3044\u3002
\n(g)\u5438\u3044\u8fbc\u3080\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u3084\u5404\u30d5\u30a3\u30fc\u30eb\u30c9\u306e\u578b\u3082\u7d30\u304b\u304f\u6307\u5b9a\u3057\u305f\u3044
\n\u30fb\u30fb\u30fb\u3068\u3044\u3046\u3088\u3046\u306a\u5834\u5408\u306f\u3001\u4e8b\u524d\u306b\u30fb\u30fb\u30fb\u3001
\n\u30fb\u305d\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u683c\u7d0d\u3057\u3066\u3044\u308b\u30d5\u30a9\u30eb\u30c0\u3068\u3001
\n\u30fb\u305d\u306e\u5438\u3044\u8fbc\u307f\u305f\u3044\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u305d\u306e\u3082\u306e\u306b\u5bfe\u3057\u3066\u3001
\n\u30fb\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3068\u3044\u3046\u3082\u306e\u3092\u3001\u4e8b\u524d\u306b\u3001\u8a2d\u5b9a\u3057\u306a\u3044\u3068\u3084\u308c\u306a\u3044\u3063\u307d\u3044\u3067\u3059\u3002
\n\u306a\u304a\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306f\u3001\u8a2d\u5b9a\uff11\u500b\u3042\u305f\u308a\u306b\u3064\u304d\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u7f6e\u304f\u30d5\u30a9\u30eb\u30c0\u3068\u3001\u305d\u306e\u4e2d\u306b\u7f6e\u304f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u305d\u306e\u3082\u306e\u306e\u4e21\u65b9\u300d\u306b\u5bfe\u3057\u3066\u8a2d\u5b9a\u3057\u307e\u3059\u3002<\/p>\n

\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306f\u3001\uff08CSV\u3084\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u5408\u306f\uff09\u300c\u30d5\u30a9\u30eb\u30c0\u5358\u4f4d\u300d\u3067\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u8a2d\u5b9a\u3068\u306a\u308a\u307e\u3059\u3002<\/b><\/span><\/font>

\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\uff0832bit Or 64bit\u300d\u3067\u4f5c\u6210\u3057\u307e\u3059\u304c\u3001\u305d\u306e\u30c4\u30fc\u30eb\u306fWindows95\u4ee5\u964d\uff08\u591a\u5206\uff09\u300198\u30012000\u3001XP\u3001Vitsta\u30017\u30018\u300110\u3001\u3059\u3079\u3066\u306eOS\u3067\u4f7f\u3048\u308bOS\u6a19\u6e96\u306e\u6a5f\u80fd\u3067\u3059\u3002
\n\uff08Windows95\u300198\u3001\u3042\u305f\u308a\u306f\u3001\u3082\u3057\u304b\u3057\u305f\u3089Schema.ini\uff08\u5f8c\u8ff0\uff09\u304c\u5225\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001 \u300eMicrosoft Jet \u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30a8\u30f3\u30b8\u30f3\u3068ODBC\u3068\u30ec\u30b8\u30b9\u30c8\u30ea\u3068Schema.ini <\/a>\u300f\u3092\u898b\u308b\u3068\u300195\u308498\u3082Schema.ini \u304c\u4f7f\u3048\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\uff09<\/p>\n

\u57fa\u672c\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3068\u3057\u3066\u306e\u30d5\u30a9\u30eb\u30c0\u3092\uff11\u3064\u6c7a\u3081\u308c\u3070\u3001\u305d\u306e\u4e2d\u306b\u3001\u300c\u30ab\u30f3\u30de\u533a\u5207\u308a\u300d\u300c\u30bf\u30d6\u533a\u5207\u308a\u300d\u300c\u30ab\u30b9\u30bf\u30e0\u533a\u5207\u308a\uff08\u30b9\u30da\u30fc\u30b9\u3084\u30a2\u30f3\u30c0\u30fc\u30d0\u30fc\u306a\u3069\u3067\u306e\u72ec\u81ea\u306e\u533a\u5207\u308a\uff09\u300d\u3001\u3055\u307e\u3056\u307e\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\uff08CSV\u306a\u3069\u3082\u542b\u3080\uff09\u3092\u7f6e\u304f\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002
\n\u305d\u3057\u3066\uff08SQL\u3092\u4f7f\u3063\u3066\u306e\uff09\u3001\u305d\u308c\u3089\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u306e\u5438\u3044\u8fbc\u307f\u304c\u3067\u304d\u307e\u3059\u3002\uff08\u3042\u304f\u307e\u3067\u3082\u300c\u8868\u30c7\u30fc\u30bf\u300d\u3068\u3057\u3066\u3001\u3067\u3059\u304c\u3002\uff09
\n\u305d\u3057\u3066\u305d\u308c\u3089\u306e\u30d5\u30a1\u30a4\u30eb\u540c\u58eb\u3067\uff08\u95a2\u9023\u6027\u304c\u3042\u308b\u3082\u306e\u540c\u58eb\u306a\u3089\uff09\u3001\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3082\u7d44\u3081\u307e\u3059\u3002<\/p>\n

\u203b\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306f\u524d\u8ff0\u306e\u3068\u304a\u308a\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u5408\u306b\u9650\u3063\u3066\u8a00\u3048\u3070\u3001\u300c\u30d5\u30a9\u30eb\u30c0\u5358\u4f4d\uff1d\u30d5\u30a9\u30eb\u30c0\u3054\u3068\u300d\u306b\u3001\u500b\u3005\u306b\u3001\u8a2d\u5b9a\u304c\u3067\u304d\u307e\u3059\u3002\u57fa\u672c\u3001\u597d\u304d\u306a\u540d\u524d\u3092\u4ed8\u3051\u3066\u8a2d\u5b9a\u304c\u3067\u304d\u307e\u3059\u3002
\n\u306a\u306e\u3067\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u5c02\u7528\u306e\u30d5\u30a9\u30eb\u30c0\u3068\u3057\u3066\u30fb\uff11\u3064\u3060\u3051\u3057\u304b\u8a2d\u5b9a\u304c\u4f5c\u308c\u306a\u3044\u300d\u3068\u3044\u3046\u308f\u3051\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u3044\u304f\u3064\u3067\u3082\u3001\u300c\u30d5\u30a9\u30eb\u30c0\u306e\u6570\u3060\u3051\uff08\u305d\u3057\u3066\u305d\u306e\u4e2d\u306e\u500b\u3005\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306b\u5bfe\u3057\u3066\uff09\u300d\u3001\u4f5c\u308c\u307e\u3059\u3002<\/p>\n

\u25cf\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3092\u4f5c\u6210\u3059\u308b\u753b\u9762\uff08\u300cGUI\u300d\u306e\u753b\u9762\uff1aODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u3002\uff09
\n\uff08\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u30d1\u30cd\u30eb\u2192\u7ba1\u7406\u30c4\u30fc\u30eb\u2192ODBC \u30c7\u30fc\u30bf \u30bd\u30fc\u30b9 (\u00d7\u00d7 \u30d3\u30c3\u30c8)\uff09
\n\"\"<\/a><\/p>\n

\u25cf\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3054\u3068\u306e\u300c\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\uff08\u8a73\u7d30\u306f\u5f8c\u8ff0\uff09\u300d\u306e\u753b\u9762\uff08\u540c\u3058\u304fODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u3001\u306e\u4e00\u90e8\u3002\uff09
\n\"\"<\/a><\/p>\n

\u305d\u3057\u3066\u3001\u305d\u308c\u3089\u306e\u500b\u3005\u306e\u30d5\u30a1\u30a4\u30eb\u306b\u306f\u305d\u308c\u305e\u308c\u500b\u5225\u306b\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u8a2d\u5b9a\u306e\u4e2d\u3067\u3001\u300c\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\uff08\u5177\u4f53\u4f8b\u306f\u5f8c\u8ff0\uff09\u300d\u3092\u3057\u307e\u3059\u3002
\n\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3082\u306e\u3092\u8a2d\u5b9a\u3067\u304d\u307e\u3059\u3002\uff08\u4e0a\u56f3\u300c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3054\u3068\u306e\u8a2d\u5b9a\u753b\u9762\u300d\u3092\u53c2\u7167\uff09<\/p>\n

\u3000\u3000\u30fb\u300c\u66f8\u5f0f\uff08\u30ab\u30f3\u30de\u3001\u30bf\u30d6\u3001\u30ab\u30b9\u30bf\u30e0\u3001\u3069\u308c\u3067\u533a\u5207\u308b\u304b\uff1f\u306e\u8a2d\u5b9a\uff09\u300d\u3001
\n\u3000\u3000\u30fb\u300c\u30ab\u30b9\u30bf\u30e0\u533a\u5207\u308a\u306e\u5834\u5408\u306e\u533a\u5207\u308a\u6587\u5b57
\n\u3000\u3000\u3000\u3000\u3000\u3000\u3000\uff08\u30b9\u30da\u30fc\u30b9\u3001\u30a2\u30f3\u30c0\u30fc\u30d0\u30fc\u306a\u3069\u3092\u533a\u5207\u308a\u6587\u5b57\u306b\u8a2d\u5b9a\u3067\u304d\u307e\u3059\uff09\u300d\u3001
\n\u3000\u3000\u30fb\u300c\u30b9\u30ad\u30e3\u30f3\u3059\u308b\u884c\u6570\uff08\u591a\u5206\u3001\u5404\u5217\u306e\u30c7\u30fc\u30bf\u578b\u304c\u63c3\u3063\u3066\u3044\u308b\u304b\u306e\u30c1\u30a7\u30c3\u30af\u542b\u3081\uff09\u300d\u3001
\n\u3000\u3000\u30fb\u300c1\u884c\u76ee\u3092\u5217\u540d\u3068\u3059\u308b\u304b\u3069\u3046\u304b\uff08\u5217\u540d\u306e\u898b\u51fa\u3057\u8a2d\u5b9a\uff09\u300d\u3001
\n\u3000\u3000\u30fb\u300c\u6587\u5b57\u30b3\u30fc\u30c9
\n\u3000\u3000\u3000\u3000\u3000\uff08ANSI\u304bOEM\u304b\u306e\u8a2d\u5b9a\u3002\u305f\u3060\u3057\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3053\u3068\u306e\u3088\u3046\u3067\u3059\u3002<\/a>\uff09\u300d\u3001<\/p>\n

\u203b\u5f15\u7528\u30fb\u30fb\u30fb\u7c73\u56fd\u3092\u542b\u3080\u591a\u304f\u306e 1 \u30d0\u30a4\u30c8\u30b3\u30fc\u30c9\u3092\u5e38\u7528\u3057\u3066\u3044\u308b\u56fd\u3067\u306f\uff0c\u6b74\u53f2\u7684\u7406\u7531\u304b\u3089
\n\u3000\u3000\u3000Windows \u74b0\u5883\u4e0b\u306e\u6587\u5b57\u30bb\u30c3\u30c8\u3068\u30d5\u30a1\u30a4\u30eb\u30b7\u30b9\u30c6\u30e0\u4e0a\u3067\u4f7f\u7528\u3055\u308c\u308b\u6587\u5b57\u30bb\u30c3\u30c8\u304c
\n\u3000\u3000\u3000\u7570\u306a\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002Windows \u4e0a\u306e\u6587\u5b57\u30bb\u30c3\u30c8\u3092 ANSI \u6587\u5b57\u30bb\u30c3\u30c8\u3068\u547c\u3073\uff0c
\n\u3000\u3000\u3000\u52d5\u4f5c\u74b0\u5883\u306b\u56fa\u6709\u306e\u6587\u5b57\u30bb\u30c3\u30c8\u3092 OEM \u6587\u5b57\u30bb\u30c3\u30c8\u3068\u547c\u3076\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u3002
\n\u3000\u3000\u3000DOS \u74b0\u5883\u3067\u4f5c\u3089\u308c\u305f\u30d5\u30a1\u30a4\u30eb\u3068\u6271\u3046\u5834\u5408\u306b ANSI - OEM \u5909\u63db\u304c\u5fc5\u8981\u306b\u306a\u308b\u5834\u5408
\n\u3000\u3000\u3000\u304c\u3042\u308a\u307e\u3059\u3002\u65e5\u672c\u8a9e\u74b0\u5883\u306b\u304a\u3044\u3066\u306f Windows \u74b0\u5883\u306e\u6587\u5b57\u30bb\u30c3\u30c8\u3068\u74b0\u5883\u56fa\u6709\u306e
\n\u3000\u3000\u3000\u6587\u5b57\u30bb\u30c3\u30c8\u306f\u4e21\u65b9\u3068\u3082 Shift-JIS \u3067\u3042\u308b\u5834\u5408\u304c\u307b\u3068\u3093\u3069\u306a\u306e\u3067\uff0c
\n\u3000\u3000\u3000ANSI-OEM \u5909\u63db\u306f\u610f\u5473\u3092\u6301\u3061\u307e\u305b\u3093\u3002<\/p>\n

\u203b\u3053\u3053\u3067\u306f\u8a73\u3057\u304f\u3084\u3063\u3066\u3044\u307e\u305b\u3093\u304c\u3001
\n\u3000\u3000\u3000\u300c\u5217\u300d\u5358\u4f4d\u306e\u30c7\u30fc\u30bf\u578b\u306e\u8a2d\u5b9a\u306a\u3069\u3082\u3067\u304d\u308b\u3088\u3046\u3067\u3059\u3002
\n\u3000\u3000\u3000\u305d\u3057\u3066\u305d\u306e\u8a2d\u5b9a\u306f\u3001ADO\uff0bODBC\uff1f\uff1f\u3067\u3082\u4f7f\u3048\u308b\u3063\u307d\u3044\u3067\u3059\u3002<\/b><\/span><\/font>
\n\u3000\u3000\u3000http:\/\/blog.livedoor.jp\/tea_cocoa_cake\/archives\/7152895.html<\/a>
\n\u3000\u3000\u3000https:\/\/ameblo.jp\/catsliving-se\/entry-10519964022.html<\/a>
\n\u3000\u3000\u3000\u5f15\u7528\u300e \uff5e\uff5e\u81ea\u52d5\u7684\u306b\u4f7f\u7528\u3055\u308c\u308b\u3002\u4e0a\u8a18\u306eVBScript\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306b\u3001
\n\u3000\u3000\u3000ADO\u3092\u4f7f\u3063\u3066\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b\u6642\u306f\u300c\u3069\u306eSchema.ini\u3092\u53c2\u7167\u3059\u308b\u304b\u300d
\n\u3000\u3000\u3000\u3068\u3044\u3046\u6307\u793a\u306f\u30b3\u30fc\u30c9\u4e0a\u306e\u3069\u3053\u306b\u3082\u66f8\u304b\u306a\u3044\u3002\u300f
\n\u3000\u3000\u3000\u30fb\u30fb\u30fb\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u3069\u3046\u3084\u3089\u5c11\u3057\u30e9\u30af\u3061\u3093\u3063\u307d\u3044\u3067\u3059\u3002(^^)<\/p>\n

\u3053\u308c\u3089\u306e\u9805\u76ee\u306f\u3001\u300c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u30a4\u30f3\u30dd\u30fc\u30c8\uff08\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u307f\u306b\u7279\u5316\u3057\u305f\u5438\u3044\u8fbc\u307f\u6a5f\u80fd\uff09\u300d\u306e\u64cd\u4f5c\u3092VBA\u5316\u3057\u305f\u969b\u306f\u3001\u305d\u306eVBA\u30b3\u30fc\u30c9\u306e\u4e2d\u3067\u66f8\u3044\u3066\u8a2d\u5b9a\u3057\u307e\u3059\u304c\u3001\u300cSQL\u3092\u4f7f\u3044\u305f\u3044\u5834\u5408\uff0bODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3067\u3084\u308a\u305f\u3044\u5834\u5408\u300d\u306f\u3001VBA\u30b3\u30fc\u30c9\u306e\u4e2d\u306b\u306f\u3053\u308c\u3089\u306e\u9805\u76ee\u306e\u8a2d\u5b9a\u306f\u66f8\u304d\u307e\u305b\u3093\u3002
\n\u4e8b\u524d\u306b\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u4e2d\u3067\u8a2d\u5b9a\u3057\u307e\u3059\u3002<\/p>\n

\u306a\u304a\u3001\u305d\u306e\u300c\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u300d\u306e\u5177\u4f53\u7684\u306a\u5185\u5bb9\u306f\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u4f5c\u6210\u306e\u3068\u304d\u306b\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u300d\u306e\u4e2d\u306e\u300cschema.ini\u300d\u3068\u3044\u3046\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u4e2d\u306b\u5168\u90e8\u66f8\u304d\u8fbc\u307e\u308c\u307e\u3059\u3002
\n\u300cschema.ini\u300d\u306f\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f5c\u6210\u3057\u305f\u77ac\u9593\u300d\u306b\u3001\u81ea\u52d5\u7684\u306b\u5bfe\u8c61\u306e\u30d5\u30a9\u30eb\u30c0\u306e\u4e2d\u306b\u81ea\u52d5\u751f\u6210\u3055\u308c\u307e\u3059\u3002<\/p>\n

ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u8a2d\u5b9a\u304c\u5b8c\u4e86\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u306e\u4f8b\uff08\u300cschema.ini\u300d\u304c\u3067\u304d\u3066\u3044\u307e\u3059\u3002\uff09
\n\"\"<\/a>
\n\u500b\u3005\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u306f\u3001\u300cschema.ini\u300d\u306e\u4e2d\u306b\u66f8\u304b\u308c\u3066\u3044\u307e\u3059\u3002\u4e2d\u8eab\u306b\u3064\u3044\u3066\u306f\u5f8c\u8ff0\u3002\uff09<\/p>\n

\u300cschema.ini\u300d\u306f\u3001\u3044\u3061\u3069\u81ea\u52d5\u751f\u6210\u3055\u308c\u308c\u3070\u3001\u305f\u3068\u3048\u3070\u306e\u3061\u306e\u3061\u3001\u5438\u3044\u8fbc\u307f\u305f\u3044\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3084CSV\u306a\u3069\u304c\u65b0\u305f\u306b\u51fa\u3066\u304d\u305f\u5834\u5408\u3001\u305d\u306e\u300cschema.ini\u300d\u306b\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u306e\u5185\u5bb9\u3092\u66f8\u304d\u8db3\u305b\u3070\uff08\u30b3\u30d4\u30da\u3057\u3066\u307b\u3093\u306e\u5c11\u3057\u7de8\u96c6\u3001\u3067OK\uff09\u3001GUI\u306e\u8a2d\u5b9a\u753b\u9762\u3092\u4f7f\u308f\u305a\u3068\u3082\u3001\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u306e\u8ffd\u52a0\u8a2d\u5b9a\u304c\u7d42\u308f\u308a\u307e\u3059\u3002
\n\u305d\u3057\u3066\u3001GUI\u3067\u306e\u8a2d\u5b9a\u753b\u9762\u5074\uff08\uff1d\u524d\u8ff0\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u300d\u306e\u5074\uff09\u306b\u3082\u3001\u305d\u306e\u8ffd\u52a0\u3057\u305f\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u306e\u5185\u5bb9\u304c\u3001\u81ea\u52d5\u7684\u306b\u8868\u793a\u3055\u308c\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3054\u3068\u306e\u3001\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u306e\u5177\u4f53\u4f8b<\/a><\/p>\n

\u306a\u304a\u3001\u300cschema.ini\u300d\u306b\u306f\u3001\u4f8b\u3048\u3070\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u611f\u3058\u3067\u3001\u5438\u3044\u8fbc\u3080\u5bfe\u8c61\u3068\u3059\u308b\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3054\u3068\u306b\u8a2d\u5b9a\u30a8\u30f3\u30c8\u30ea\u304c\u66f8\u304d\u8fbc\u307e\u308c\u307e\u3059\u3002\uff08\u30e1\u30e2\u5e33\u3067\u958b\u304f\u3068\u898b\u308b\u3053\u3068\u3082\u66f8\u304d\u63db\u3048\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002\uff09<\/p>\n

[schema.ini]\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u2190\u30d5\u30a1\u30a4\u30eb\u540d\u6307\u5b9a\u3067\u306f\u306a\u304f\u3001\u300c\u30c7\u30d5\u30a9\u8a2d\u5b9a\u300d\u3001\u306e\u610f\u5473<\/SPAN>
\nColNameHeader=False
\nFormat=CSVDelimited\u3000\u3000\u2190\u30c7\u30d5\u30a9\u306e\u533a\u5207\u308a\u306e\u7a2e\u985e\u306f\u300c\u30ab\u30f3\u30de\u533a\u5207\u308a\u300d\u3067\u3001\u533a\u5207\u308a\u6587\u5b57\u306f\u300c\u534a\u89d2\u30ab\u30f3\u30de\u300d<\/SPAN>
\nMaxScanRows=25
\nCharacterSet=OEM
\n[ttt_space01.txt]\u3000\u3000\u3000\u3000\u3000\u2190\u500b\u5225\u30fb\u7279\u5b9a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u540d\u3000\u3000\u3000\u203b\uff08\u500b\u5225\u8a2d\u5b9a\u306e\u6700\u521d\u306e\u884c\uff09<\/span><\/SPAN>
\nColNameHeader=True\u3000\u3000\u21901\u884c\u76ee\u3092\u300c\u5217\u540d\u300d\u306b\u3059\u308b<\/SPAN>
\nFormat=Delimited( )\u3000\u3000\u3000\u2190\u533a\u5207\u308a\u306e\u7a2e\u985e\u306f\u300c\u30ab\u30b9\u30bf\u30e0\u533a\u5207\u308a\u300d\u3067\u3001\u533a\u5207\u308a\u6587\u5b57\u306f\u300c\u534a\u89d2\u30b9\u30da\u30fc\u30b9\u300d<\/SPAN>
\nMaxScanRows=8\u3000\u3000\u3000\u3000\u2190\u30b9\u30ad\u30e3\u30f3\u3059\u308b\u884c\u6570<\/SPAN>
\nCharacterSet=OEM\u3000\u3000\u3000\u2190\u6587\u5b57\u30b3\u30fc\u30c9\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u3000\u203b\uff08\u500b\u5225\u8a2d\u5b9a\u306e\u6700\u5f8c\u306e\u884c\uff09<\/span><\/SPAN>
\n[ttt_tab01.txt]
\nColNameHeader=True
\nFormat=TabDelimited\u3000\u3000\u2190\u533a\u5207\u308a\u306e\u7a2e\u985e\u306f\u300cTAB\u533a\u5207\u308a\u300d\u3067\u3001\u533a\u5207\u308a\u6587\u5b57\u306f\u300cTAB\u300d<\/SPAN>
\nMaxScanRows=8
\nCharacterSet=OEM
\n[ttt_underbar01.txt]
\nColNameHeader=True
\nFormat=Delimited(_)\u3000\u3000\u3000\u2190\u533a\u5207\u308a\u306e\u7a2e\u985e\u306f\u300c\u30ab\u30b9\u30bf\u30e0\u533a\u5207\u308a\u300d\u3067\u3001\u533a\u5207\u308a\u6587\u5b57\u306f\u300c\u30a2\u30f3\u30c0\u30fc\u30d0\u30fc\u300d<\/SPAN>
\nMaxScanRows=8
\nCharacterSet=OEM<\/p>\n

\u300cschema.ini\u300d\u3068\u3044\u3046\u30d5\u30a1\u30a4\u30eb\u3092\u30e1\u30e2\u5e33\u3067\u958b\u3044\u3066\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u8a2d\u5b9a\u30a8\u30f3\u30c8\u30ea\uff08\u30d5\u30a1\u30a4\u30eb1\u500b\u5206\uff09\u3092\u8ffd\u52a0\u3067\u66f8\u304d\u8fbc\u3080\u3068\u3001GUI\u306e\u753b\u9762\u306e\u5074\u306b\u3001\u3053\u306e\u5185\u5bb9\u304c\u52dd\u624b\u306b\u53cd\u6620\u3055\u308c\u307e\u3059\u3002\uff08\u306a\u306e\u3067\u3001\u30b3\u30d4\u30da\u3057\u305f\u3042\u3068\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u3060\u3051\u3092\u5909\u3048\u3066\u3082OK\u3067\u3059\u3002\u3082\u3061\u308d\u3093\u3001\u4e8b\u524d\u306b\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u305d\u306e\u8a2d\u5b9a\u306b\u5bfe\u5fdc\u3059\u308b\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u304c\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\uff09<\/p>\n

\u4ee5\u4e0b\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\uff11\u500b\u5206\u306e\u8a2d\u5b9a\u5185\u5bb9\u306e\u4f8b\u3002
\n\u3053\u306e\u4f8b\u3060\u3068\u300cttt_space01.txt\u300d\u3068\u3044\u3046\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u3092\u8ffd\u52a0\u3067\u304d\u307e\u3059\u3002<\/p>\n

[ttt_space01.txt]\u3000\u3000\u3000\u3000\u3000\u2190\u500b\u5225\u30fb\u7279\u5b9a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u540d<\/SPAN>
\nColNameHeader=True\u3000\u3000\u21901\u884c\u76ee\u3092\u300c\u5217\u540d\u300d\u306b\u3059\u308b<\/SPAN>
\nFormat=Delimited( )\u3000\u3000\u3000\u2190\u533a\u5207\u308a\u306e\u7a2e\u985e\u306f\u300c\u30ab\u30b9\u30bf\u30e0\u533a\u5207\u308a\u300d\u3067\u533a\u5207\u308a\u6587\u5b57\u306f\u300c\u534a\u89d2\u30b9\u30da\u30fc\u30b9\u300d<\/SPAN>
\nMaxScanRows=8\u3000\u3000\u3000\u3000\u2190\u30b9\u30ad\u30e3\u30f3\u3059\u308b\u884c\u6570<\/SPAN>
\nCharacterSet=OEM\u3000\u3000\u3000\u2190\u6587\u5b57\u30b3\u30fc\u30c9<\/SPAN><\/p>\n

\uff08\u203b\u3053\u306e\u3088\u3046\u306a\u3082\u306e\u3092\u3068\u308a\u3042\u3048\u305a\u3001\u30b3\u30d4\u30da\u3057\u3066\u5fc5\u8981\u7b87\u6240\u3092\u66f8\u304d\u63db\u3048\u308c\u3070OK\u3067\u3059\u3002\u5927\u62b5\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u540d\u3068\u533a\u5207\u308a\u6587\u5b57\u306e\u3068\u3053\u308d\u3060\u3051\u3067OK\u304b\u3068\u601d\u3044\u307e\u3059\u3002\u30d5\u30a3\u30fc\u30eb\u30c9\u3054\u3068\u306e\u7d30\u304b\u3044\u8a2d\u5b9a\u3082\u3057\u305f\u304b\u3063\u305f\u3089\u3001\u3059\u3050\u4e0b\u306e\u300e \u203b\u53c2\u8003Web\u30da\u30fc\u30b8\uff1a\u300cSchema.ini \u30d5\u30a1\u30a4\u30eb\u300d\u3067\u306e\u5404\u7a2e\u8a2d\u5b9a\u306b\u3064\u3044\u3066\u306e\u8a73\u7d30\u3002\u300f\u306eURL\u3092\u3054\u53c2\u8003\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\uff09<\/p>\n

\u4e0b\u56f3\u306e\u3088\u3046\u306b\u3001GUI\u306e\u8a2d\u5b9a\u753b\u9762\u306b\u51fa\u3066\u304d\u307e\u3059\u3002\uff08\u4e0b\u56f3\u306e\u4e2d\u306e\u9752\u304f\u9078\u629e\u3055\u308c\u305f\u3082\u306e\u3001\u306e\u3088\u3046\u306b\u3002\uff09\u3000\u3000\u203bGUI\u753b\u9762\u306e\u533a\u5207\u308a\u6587\u5b57\u306e\u8a2d\u5b9a\u306f\u3001\u7a7a\u767d\u306e\u3088\u3046\u306b\u898b\u3048\u307e\u3059\u304c\u5b9f\u969b\u306b\u306f\u534a\u89d2\u30b9\u30da\u30fc\u30b9\u304c\u5165\u529b\u3055\u308c\u3066\u3044\u307e\u3059\u3002
\n\"\"<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u203b\u53c2\u8003Web\u30da\u30fc\u30b8\uff1a\u300cSchema.ini \u30d5\u30a1\u30a4\u30eb\u300d\u3067\u306e\u5404\u7a2e\u8a2d\u5b9a\u306b\u3064\u3044\u3066\u306e\u8a73\u7d30\u3002\uff08\u8a18\u4e8b\u3092\u66f8\u3044\u305f\u5f8c\u306b\u300cCSVDelimited\u300d\u3067Web\u898b\u3066\u305f\u3089\u305f\u307e\u305f\u307e\u898b\u3064\u304b\u308a\u307e\u3057\u305f\uff01\uff09
\n\u300e\u30b9\u30ad\u30fc\u30de \u30d5\u30a1\u30a4\u30eb\u306e\u5b9a\u7fa9<\/a>\u300f
\n\u300e\u30c6\u30ad\u30b9\u30c8 \u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30a3\u30fc\u30eb\u30c9\u3092\u5b9a\u7fa9\u3059\u308b\u65b9\u6cd5 <\/a>\u300f
\n\u300eSchema.ini \u30d5\u30a1\u30a4\u30eb (\u30c6\u30ad\u30b9\u30c8 \u30d5\u30a1\u30a4\u30eb \u30c9\u30e9\u30a4\u30d0\u30fc)\uff08\u6a5f\u68b0\u7ffb\u8a33\uff1f\uff09<\/a>\u300f
\n\u300eschema.ini\u30d5\u30a1\u30a4\u30eb\u3092\u5229\u7528\u3057\u3066\u30c6\u30fc\u30d6\u30eb\u306e\u5b9a\u7fa9\u60c5\u5831\u901a\u308a\u306b\u8aad\u307f\u8fbc\u3080\u3000(TAB\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080) <\/a>\u300f
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n

\u2605 \u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3092\u4f5c\u308b\u3068\u3001\u4f8b\u3048\u3070Microsoft Query\u304b\u3089\u306f\u3069\u3046\u898b\u3048\u308b\u304b\uff1f<\/a><\/p>\n

\u4f8b\u3048\u3070\u300ctext_test01\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3092\u4f5c\u3063\u305f\u5834\u5408\u306b\u3001Microsoft Query\u306e\u64cd\u4f5c\u9014\u4e2d\u306e\u30c0\u30a4\u30a2\u30ed\u30b0\u753b\u9762\u3067\u3001\u305d\u308c\u304c\u3069\u3046\u898b\u3048\u308b\u304b\u306e\u56f3\u3092\u793a\u3057\u307e\u3059\u3002\u4e0b\u56f3\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002\uff08\u9752\u304f\u9078\u629e\u3055\u308c\u305f\u3068\u3053\u308d\u304c\u300ctext_test01\u300d\u3068\u3044\u3046\u540d\u524d\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3067\u3059\u3002\uff09<\/p>\n

\"\"<\/a><\/p>\n

\u4e0a\u56f3\u306f\u3001\u4f8b\u3048\u3070\u30d0\u30fc\u30b8\u30e7\u30f32010\u306e\u5834\u5408\u306a\u3089\u3001\u300c\u30c7\u30fc\u30bf\u2192\u305d\u306e\u4ed6\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u2192Microsoft Query\u300d\u3068\u305f\u3069\u308b\u3068\u51fa\u3066\u304d\u307e\u3059\u3002
\nExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u307f\u305f\u3044\u3068\u304d\u306f\u3053\u3053\u3067Excel\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3059\u308b\u306e\u3067\u3059\u304c\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u5408\u306f\u4e0a\u56f3\u306e\u3088\u3046\u306b\u4f5c\u6210\u3057\u305fODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u540d\u3092\u9078\u3073\u307e\u3059\u3002\uff08\u3082\u3057\u4e8b\u524d\u306b\u8907\u6570\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f5c\u3063\u305f\u5834\u5408\u306f\u3001\u305d\u306e\u3059\u3079\u3066\u304c\u3001\u3053\u3053\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/b><\/span>MicrosoftQuery\u306f\u57fa\u672c\u3001\u300cODBC\u63a5\u7d9a\u300d\u304c\u4f7f\u308f\u308c\u308b\u3063\u307d\u3044\u3067\u3059\u3002\uff09<\/p>\n

\u3053\u306e\u3042\u3068\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u3001\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u305f\u3061\u3092\u9078\u629e\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\"\"<\/a><\/p>\n

\uff08\u203b\u3053\u306e\u30c0\u30a4\u30a2\u30ed\u30b0\u306e\u4e2d\u306b\u306f\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u8a2d\u5b9a\u3092\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u3059\u3079\u3066\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u304c\u8868\u793a\u3055\u308c\u307e\u3059\u3002\u305f\u3060\u3057\u3001\u300c\u672a\u8a2d\u5b9a\u306e\u3082\u306e\u3084\u8a2d\u5b9a\u306b\u5931\u6557\u3057\u3066\u3044\u308b\u3082\u306e\u300d\u3082\u3068\u308a\u3042\u3048\u305a\u8868\u793a\u3055\u308c\u3066\u3057\u307e\u3044\u307e\u3059\u3002\u305d\u3053\u306f\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002Microsoft Query\u3084VBA\u3067\u6271\u3048\u308b\u306e\u306f\u3001\u8868\u793a\u3055\u308c\u305f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u3046\u3061\u3001GUI\u753b\u9762\uff1dODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u306e\u753b\u9762\u304bSchema.ini \u30d5\u30a1\u30a4\u30eb\u306b\u3066\u3001\u6b63\u5e38\u306b\u8a2d\u5b9a\u304c\u5b8c\u4e86\u3057\u305f\u3082\u306e\u306e\u307f\u3067\u3059\u3002\u3082\u3061\u308d\u3093\u3001\u30ab\u30f3\u30de\u533a\u5207\u308a\u306a\u3069\u306f\u30c7\u30d5\u30a9\u306a\u306e\u3067\u8a2d\u5b9a\u306f\u4e0d\u8981\u3067\u3059\u304c\u3002\uff09<\/p>\n

\u3053\u308c\u3067\u3001\u5168\u5217\u00d7\u5168\u884c\u3092\u30d0\u30f3\u3063\uff01\uff01\uff01\u3068\u5168\u90e8\u5438\u3044\u8fbc\u3080\u3053\u3068\u3082\u3001\u30c7\u30fc\u30bf\u3092\u7d5e\u308a\u8fbc\u307f\u306a\u304c\u3089\u5438\u3044\u8fbc\u3080\u3053\u3068\u3082\u3001\u601d\u3044\u306e\u307e\u307e\u3001\u3067\u3059\u3002
\n\u3082\u3061\u308d\u3093\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u540c\u58eb\u304c\u95a2\u9023\u6027\u306e\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u540c\u58eb\u306a\u3089\u3001\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3082\u7d44\u3081\u307e\u3059\u3002<\/p>\n

\u3088\u3063\u3066\u3001\u300e \u95a2\u9023\u30d5\u30a1\u30a4\u30eb\u3054\u3068\u306b\u3001\u8907\u6570\u306e\u30d5\u30a9\u30eb\u30c0\u3067\u305d\u308c\u3089\u3092\u5206\u3051\u3066\u307e\u3068\u3081\u3066\u3001\u305d\u308c\u3089\u3054\u3068\u306b\u3001\u8907\u6570\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f5c\u308b\u30fb\u30fb\u30fb\u300f\u3001\u3042\u308b\u3044\u306f\u3001\u300e 1\u3064\u306e\u30d5\u30a9\u30eb\u30c0\u3060\u3051\u3092ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306b\u3057\u3066\u3001\u3042\u3068\u306f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u540d\u524d\u306b\u30d7\u30ec\u30d5\u30a3\u30c3\u30af\u30b9\uff08\u63a5\u982d\u8a9e\u30fb\u63a5\u982d\u8f9e\uff09\u3092\u4ed8\u3051\u3066\u307e\u3068\u3081\u308b\u30fb\u30fb\u30fb\u300f\u3001\u306a\u3069\u3001\u30b1\u30fc\u30b9\u30d0\u30a4\u30b1\u30fc\u30b9\u3067\u8272\u3093\u306a\u7ba1\u7406\u65b9\u6cd5\u304c\u8003\u3048\u4ed8\u304f\u3068\u601d\u3044\u307e\u3059\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 Excel\u306eMicrosoftQuery\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u753b\u9762\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u4e00\u89a7\u3067\u306e\u3001\u300c*\u300d\u306e\u610f\u5473<\/a><\/p>\n

\u300c*\u300d\u304c\u3064\u3044\u3066\u3044\u308b\u306e\u306f\u3001\u591a\u5206\u3067\u3059\u304c\u3001\u300e GUI\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u300d\u306e\u753b\u9762\u306b\u767b\u9332\u3055\u308c\u3066\u3044\u308b\u304b\u3069\u3046\u304b\uff1f \u300f\u304b\u3001Excel\u3084Access\u306b\u3082\u300c*\u300d\u304c\u4ed8\u3044\u3066\u3044\u307e\u3059\u306e\u3067\u3001\u300e OS\u304c\u516c\u7684\u306b\u8a8d\u8b58\u3057\u3066\u3044\u308b\u304b\uff1f\u300f\u307f\u305f\u3044\u306a\u611f\u3058\u3082\u610f\u5473\u3057\u3066\u3044\u308b\u3088\u3046\u306a\u6c17\u304c\u3057\u307e\u3059\u3002<\/p>\n

\u7406\u7531\u306f\u3001Schema.ini\u306f\u3001\u4f8b\u3048\u3070\u3001Excel\u306eMicrosoftQuery\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u753b\u9762\u306b\u3066\u3001\u76f4\u63a5\u3053\u306e\u30c0\u30a4\u30a2\u30ed\u30b0\u306e\u6700\u4e0a\u884c\u306e\u300c<\u65b0\u898f\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9>\u3092\u9078\u629e\u3057\u3066OK\u3057\u305f\u753b\u9762\u300d\u3067\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f5c\u3063\u305f\u5834\u5408\u306b\u3082\u3001\u305d\u306e\u6642\u306b\u300e \u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3068\u3057\u3066\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0 \u300f\u306e\u4e2d\u306b\u3082\u81ea\u52d5\u751f\u6210\u3055\u308c\u3001\u304b\u3064\u3001\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30d5\u30a9\u30eb\u30c0\u3068\u3057\u3066\u767b\u9332\u3055\u308c\u308b\u304b\u3089\u3067\u3059\u3002<\/p>\n

\u3067\u3082\u3063\u3066\u3001\u305d\u306e\u3068\u304d\u306b\u300c*\u300d\u306f\u4ed8\u304d\u307e\u305b\u3093\u3002<\/p>\n

\u306b\u3082\u304b\u304b\u308f\u3089\u305a\u3001\u300c*\u300d\u306e\u4ed8\u304b\u306a\u3044\u305d\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u300e \u65b0\u3057\u3044\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u305d\u308c\u306b\u5bfe\u5fdc\u3059\u308bSchema.ini\u306e\u8a2d\u5b9a \u300f\u3092\u8ffd\u52a0\u3059\u308b\u3068\u3001\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3082\u30e2\u30c8\u304b\u3089\u3042\u3063\u305f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3082\u3001\u4e21\u65b9\u3092\u8aad\u3081\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002
\n\u3082\u3061\u308d\u3093\u3001\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u305f\u3061\u304c\u95a2\u9023\u6027\u306e\u3042\u308b\u8005\u540c\u58eb\u306a\u3089\u3001\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3082\u7d44\u3081\u307e\u3059\u3002<\/p>\n

\u3060\u304b\u3089\u3001\u3067\u3059\u3002\u4ee5\u4e0a\u304c\u7406\u7531\u3067\u3059\u3002\u591a\u5206\u30fb\u30fb\u30fb\u3067\u3059\u3051\u3069\u30fb\u30fb\u30fb\u3002<\/p>\n

\u4ee5\u4e0a\u306e\u3088\u3046\u306a\u3053\u3068\u304b\u3089\u3001\u300e Schema.ini\u306f\u3001\u898b\u305f\u76ee\u7684\u306b GUI\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u300d\u306e\u753b\u9762\u306b\u767b\u9332\u3055\u308c\u3066\u3044\u306a\u3044\u3063\u307d\u3044\u5834\u5408\u3067\u3082\u3001Excel\uff08MicrosoftQuery\u306a\u3069\u542b\u3081\uff09\u304b\u3089\u898b\u305f\u5834\u5408\u306f\u6709\u52b9 \u300f<\/b><\/span>\u3068\u3082\u8a00\u3048\u308b\u3088\u3046\u3067\u3059\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u5148\u306bSchema.ini\u3068\u30d5\u30a9\u30eb\u30c0\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u3063\u3066\u304b\u3089\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u30a2\u30c9\u30df\u30cb\u30b9\u30c8\u30ec\u30fc\u30bf\u306b\u767b\u9332\u3059\u308b\u3068\u3069\u3046\u306a\u308b\u304b\uff1f<\/a><\/p>\n

\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u540d\u524d\u3068\u30d5\u30a9\u30eb\u30c0\u3092\u6307\u5b9a\u3057\u305f\u3060\u3051\u3067\u3001\u3042\u3068\u306f\u4f55\u3082\u3057\u306a\u304f\u3066\u3082\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u7d30\u304b\u3044\u300c\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u300d\u304c\u8a8d\u8b58\u3055\u308c\u307e\u3059\u3002Schema.ini\u306b\u66f8\u3044\u305f\u3068\u304a\u308a\u306b\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u5148\u306bSchema.ini\u3068\u30d5\u30a9\u30eb\u30c0\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u3063\u3066\u304b\u3089\u3001Excel\u306eMicrosoftQuery\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u753b\u9762\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306b\u767b\u9332\u3059\u308b\u3068\u3069\u3046\u306a\u308b\u304b\uff1f<\/a><\/p>\n

\u3053\u306e\u5834\u5408\u3001MicrosoftQuery\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u306e\u30c0\u30a4\u30a2\u30ed\u30b0\u753b\u9762\uff08\u524d\u3005\u3005\u9805\u306e\u753b\u9762\uff09\u306e\u30ea\u30b9\u30c8\u306b\u3066\u3001\u305d\u306e\u6700\u4e0a\u884c\u306e\u300c<\u65b0\u898f\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9>\u3092\u9078\u629e\u3057\u3066OK\u3057\u3066\u300d\u3001\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f5c\u308b\uff1d\u30d5\u30a9\u30eb\u30c0\u6307\u5b9a\u3092\u3059\u308b\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

\u305d\u3057\u3066\u3001\u3053\u3061\u3089\u306e\u5834\u5408\u3082\u3001\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u540d\u524d\u3068\u30d5\u30a9\u30eb\u30c0\u3092\u6307\u5b9a\u3057\u305f\u3060\u3051\u3067\u3001\u3042\u3068\u306f\u4f55\u3082\u3057\u306a\u304f\u3066\u3082\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u7d30\u304b\u3044\u300c\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u300d\u3001\u3042\u308b\u3044\u306f\u300c\u5438\u3044\u8fbc\u307f\u7528\u30d5\u30a9\u30eb\u30c0\u300d\u3068\u3057\u3066\u8a8d\u8b58\u3055\u308c\u307e\u3059\u3002<\/p>\n

\u3067\u3001\u3053\u306e\u5834\u5408\u306f\u300c*\u300d\u306f\u4ed8\u304d\u307e\u305b\u3093\u304c\u3001\u3067\u3082\u300c\u5438\u3044\u8fbc\u307f\u7528\u30d5\u30a9\u30eb\u30c0\u300d\u3068\u3057\u3066\u8a8d\u8b58\u3055\u308c\u307e\u3059\u306e\u3067\u3001Excel\u306eMicrosoftQuery\u306e\u30a6\u30a3\u30b6\u30fc\u30c9\u753b\u9762\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306b\u767b\u9332\u3059\u308b\u969b\u306b\u3001\u4ed8\u3051\u308b\u540d\u524d\u306f\u300c\u00d7\u00d7\u00d7\u30d5\u30a9\u30eb\u30c0\u300d\u3068\u304b\u300c\u00d7\u00d7\u00d7\u95a2\u9023\u300d\u3001\u300c\u00d7\u00d7\u00d7\u7ba1\u7406\u300d\u3068\u3044\u3063\u305f\u3088\u3046\u306a\u540d\u3065\u3051\u3092\u3057\u305f\u65b9\u304c\u3044\u3044\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u3092\u4f5c\u308b\u3068\u3001VBA\u304b\u3089\u306f\u3069\u3046\u6271\u3048\u308b\u3088\u3046\u306b\u306a\u308b\u306e\u304b\uff1f<\/a><\/p>\n

\u3082\u3061\u308d\u3093\u3001VBA\u304b\u3089\u3082<\/font>QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u901a\u3058\u3066\u3001\u64cd\u4f5c\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002\uff08VBA\u3067\u306f\u4e0a\u56f3\u306e\u3088\u3046\u306a\u753b\u9762\u306f\u51fa\u307e\u305b\u3093\u304c\u3002\uff09<\/b><\/span>
\n\u305d\u306e\u5834\u5408\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u6307\u5b9a\u3059\u308b\u5f62\u3067VBA\u64cd\u4f5c\u3057\u307e\u3059\u306e\u3067\u3001VBA\u30b3\u30fc\u30c9\u4e0a\u3067\u306f\u300e \u533a\u5207\u308a\u6587\u5b57\u3084\u5217\u540d\u8a2d\u5b9a\uff081\u884c\u76ee\uff09\u306a\u3069\u306e\u8a2d\u5b9a \u300f\u306f\u66f8\u304d\u307e\u305b\u3093\u3002\uff08\u305d\u308c\u3089\u306f\u5168\u90e8\u3001\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u4e2d\u306b\u5165\u3063\u3066\u3044\u308b\u305f\u3081\u3002\uff1d\u591a\u5206\u3001\u300cschema.ini\u300d\u306e\u4e2d\u306b\u65e2\u306b\u66f8\u304b\u308c\u3066\u3044\u308b\u305f\u3081\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3068\u3044\u3046\u6a5f\u80fd\u304c\u305d\u308c\u3092\u8aad\u307f\u306b\u884c\u3063\u3066\u304f\u308c\u308b\u304b\u3089\u30fb\u30fb\u30fb\u307f\u305f\u3044\u306a\u30a4\u30e1\u30fc\u30b8\u3060\u3068\u601d\u3044\u307e\u3059\u3002\uff09<\/b><\/span><\/p>\n

\u203b\u2605\u2605\u6ce8\u610f\uff01\uff01
\nMicrosoft Query\u3068QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u3001\u4e21\u65b9\u3068\u3082\u300cODBC\u63a5\u7d9a\u3067\u51e6\u7406\u3067\u304d\u308b\u305f\u3081\u300d\u4f3c\u3066\u306f\u3044\u307e\u3059\u304c\u3001\u3067\u3082\u300c\u4f3c\u3066\u975e\u306a\u308b\u3082\u306e\u300d\u3067\u306f\u3042\u308a\u307e\u3059\u3002
\nMicrosoftQuery\u3068QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u304a\u4e92\u3044\u3001\u300c\u72ec\u7acb\u3057\u305f\u6a5f\u80fd\u300d\u3067\u3001\u300cMicrosoft Query\u300d\u306fGUI\u753b\u9762\u4e2d\u5fc3\u3067SQL\u3092\u64cd\u4f5c\u3059\u308b\u6a5f\u80fd\u3067\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306fVBA\u306b\u3066\u6587\u5b57\u3060\u3051\u3067SQL\u3092\u64cd\u4f5c\u3059\u308b\u6a5f\u80fd\u3067\u3059\u3002
\n\u307e\u305f\u3001\u300e Microsoft Query\uff08GUI\uff09\u3067\u884c\u3063\u305f\u96c6\u8a08\u3084\u62bd\u51fa\u306e\u7d50\u679c\u3092\u8fd4\u3059\uff1d\u7d50\u679c\u3092\u8868\u793a\u3059\u308b\u5834\u6240\u304c\u3001QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u30fb\u30fb\u30fb\u300f\u3068\u3044\u3046\u30a4\u30e1\u30fc\u30b8\u3067\u3059\u3002<\/p>\n

\u306a\u304a\u3001\u300c Microsoft Query\uff08GUI\uff09\u300d\u306f\u3001Access\u306e\u300c\u30af\u30a8\u30ea\u300d\u3068\u3044\u3046\u6a5f\u80fd\u3068\u9177\u4f3c\u3057\u3066\u304a\u308a\u3001 Microsoft Query \u304c\u6271\u3048\u308c\u3070\u3001Access\u306e\u30af\u30a8\u30ea\u3082\u5165\u308a\u3084\u3059\u304f\u306a\u308b\u306e\u3067\u3001\u7df4\u7fd2\u306b\u306a\u308a\u307e\u3059\u3002\u307e\u305f\u3001SQL\u3092\u6271\u3046\u3053\u3068\u81ea\u4f53\u3082\u3001\u4ed6\u306e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30bd\u30d5\u30c8\u306b\u5c11\u3057\u5165\u308a\u3084\u3059\u304f\u306a\u308a\u307e\u3059\u3057\u3001VBA\u3060\u3051\u304c\u3067\u304d\u308b\u3088\u308a\u3082\u91cd\u5b9d\u304c\u3089\u308c\u307e\u3059\u3057\u3001\u6607\u7d66\u3092\u81ea\u5206\u304b\u3089\u7533\u3057\u51fa\u3066\u3082\u6065\u305a\u304b\u3057\u304f\u306a\u3044\u304f\u3089\u3044\u3067\u3059\u3002\uff08\u300cVBA\u306e\u7121\u99c4\u306a\u30eb\u30fc\u30d7\u51e6\u7406\u300d\u3084\u300c\u7121\u99c4\u306a\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u300d\u3092\u534a\u5206\u4ee5\u4e0b\u306b\u3057\u305f\u308a\u3001\u8907\u96d1\u306a\u6761\u4ef6\u3067\u306e\u96c6\u8a08\u3084\u8a18\u9332\u304cVBA\u3088\u308a\u3082\u5b89\u304f\u30fb\u65e9\u304f\u51fa\u305b\u308b\u305f\u3081\uff09\u3002<\/p>\n

\u57fa\u672c\u3001Excel\u3067\u306eSQL\u306e\u300c\u66f8\u304d\u65b9\u300d\u306b\u306f\u5c11\u3057\u300c\u72ec\u81ea\u30eb\u30fc\u30eb\u300d\u304c\u3042\u3063\u3066\u3001\u300cMicrosoft Query\u300d\u3067\u3082VBA\u3067\u3082\u300c\u5171\u901a\u306b\u4f7f\u3048\u308bSQL\u306e\u66f8\u304d\u65b9\u300d\u3001\u3068\u3044\u3046\u3082\u306e\u304c\u5b58\u5728\u3057\u307e\u3059\u3002\u305d\u306e\u72ec\u81ea\u30eb\u30fc\u30eb\u304b\u3089\u9038\u8131\u3059\u308b\u3068\u3001VBA\u5074\u3067\u306fSQL\u304c\u4f7f\u3048\u3066\u3082\u300cMicrosoft Query\u300d\u753b\u9762\u3067\u306f\u300cSQL\u6587\u306e\u5185\u5bb9\u306e\u30a8\u30e9\u30fc\u3067\u958b\u3051\u306a\u3044\u300d\u3001\u3068\u3044\u3046\u3053\u3068\u304c\u8d77\u3053\u308a\u307e\u3059\u3002\u305d\u308c\u3092\u907f\u3051\u308b\u306b\u306f\u3001\u4ee5\u4e0b\u306e\u8a18\u4e8b\u3092\u3054\u53c2\u8003\u306b\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002
\n\u300e\u2605\u2605\u2605Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\uff5e\uff5e\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\uff5e<\/a>\u300f<\/p>\n

\u3042\u3068\u3001\u30c6\u30ad\u30b9\u30c8\u5438\u3044\u8fbc\u307f\u306e\u8a71\u304b\u3089\u306f\u5916\u308c\u307e\u3059\u304c\u30fb\u30fb\u30fb\u3001MicrosoftQuery\u3067\u884c\u3063\u305f\u96c6\u8a08\u3084\u62bd\u51fa\u7d50\u679c\u306f\u3001\u30d0\u30fc\u30b8\u30e7\u30f32000\uff5e2003\u307e\u3067\u306f\u3001\u76f4\u63a5QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u8fd4\u3055\u308c\u307e\u3059\u304c\uff08\u8868\u793a\u3055\u308c\u307e\u3059\u304c\uff09\u30012007\u4ee5\u964d\u306f\u3001\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\uff08ListObject\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u300d\u306e\u4e2d\u306b\u3044\u3063\u305f\u3093\u57cb\u3081\u8fbc\u307e\u308c\u305f\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d<\/font>\u306e\u4e2d\u306b\u8868\u793a\u3055\u308c\u307e\u3059\u3002\u307e\u305f\u3001\u81eaExcel\u30d5\u30a1\u30a4\u30eb\u306e\u4e2d\u3092\u8997\u304f\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3053\u3068\u304c\u307b\u3068\u3093\u3069\u3067\u3059\u3002\uff08\u7d30\u304b\u3044\u3068\u3053\u308d\u306f\u672a\u78ba\u8a8d\u3067\u3059\u3002\uff09<\/p>\n

\u3067\u3082\u3001MicrosoftQuery\u3092\u4f7f\u308f\u305a\u306b\u3001\u76f4\u63a5\u3001VBA\u306b\u3066QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f7f\u3046\u3068\u30012007\u4ee5\u964d\u3067\u3082\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\uff08ListObject\uff09\u300d\u306e\u4e2d\u306b\u57cb\u3081\u8fbc\u307e\u308c\u308b\u3053\u3068\u306a\u304f\u3001\u76f4\u63a5\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3060\u3051\u3092\u300d\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306b\u8868\u793a\u3055\u305b\u3066\u64cd\u4f5c\u3067\u304d\u307e\u3059\u3002
\n\u307e\u305f\u3001\u305d\u306e\u5834\u5408\u306f\u3001\u81eaExcel\u30d5\u30a1\u30a4\u30eb\u3092\u3069\u306e\u3088\u3046\u306b\u8997\u304d\u306b\u884c\u3063\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u305b\u3093\u3002\u3055\u3089\u306b\u306f\u3001\u81ea\u30d5\u30a1\u30a4\u30eb\u5185\u3067\u7d50\u679c\u306e\u7d50\u679c\u306e\u7d50\u679c\u30fb\u30fb\u30fb\u30fb\u306e\u3088\u3046\u306b\u30cd\u30b9\u30c8\u7684\u306a\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002
\u3053\u308c\u304c\u3067\u304d\u308b\u3068\u300c\u304b\u306a\u308a\u8907\u96d1\u306a\u6761\u4ef6\u3067\u3042\u3063\u3066\u3082\u3001\u6211\u3005\u30c9\u7d20\u4eba\u3067\u3082\u306a\u3093\u3068\u304b\u7d50\u679c\u3092\u51fa\u305b\u308b\u300d\u305f\u3081\u3001\u672c\u5f53\u306b\u4fbf\u5229\u3067\u3059\u3002
Access\u306b\u304a\u3051\u308b\u300c\u30af\u30a8\u30ea\u3092\u30e2\u30c8\u306b\u3057\u305f\u30af\u30a8\u30ea\u3092\u30e2\u30c8\u306b\u3057\u305f\u30af\u30a8\u30ea\u30fb\u30fb\u30fb\u300d\u3068\u3044\u3046\u3088\u3046\u306a\u3053\u3068\u304c\u3067\u304d\u308b\u308f\u3051\u3067\u3059\u3002
\n\u81ea\u7531\u5ea6\u304c\u5927\u304d\u3044\u3067\u3059\u3002
\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u300d\u304cSQL\u7d50\u679c\u306e\u51fa\u529b\u5148\u3060\u3068\u3001\u305d\u3046\u3044\u3046\u3053\u3068\u304c\u307e\u3063\u305f\u304f\u3067\u304d\u306a\u304f\u3001\u52b9\u7387\u304c\u60aa\u3044\u3068\u8a00\u3048\u3070\u60aa\u3044\u3067\u3059\u3002\uff08\u3082\u3061\u308d\u3093\u30011\u6bb5\u968e\u306e\u307f\u30fb\u304b\u3064\u30fb\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\u306e\u6a5f\u80fd\u3060\u3051\u3092\u4f7f\u3044\u305f\u3044\u30fb\u3068\u3044\u3046\u3060\u3051\u306a\u3089\u52b9\u7387\u304c\u60aa\u304f\u306f\u306a\u308a\u307e\u305b\u3093\u304c\uff09<\/p>\n

\u3067\u306f\u3001\u4ee5\u964d\u3001\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff0bODBC\u63a5\u7d9a\u300d\u306e\u7c21\u5358\u306a\u4f8b\u3092\u793a\u3057\u307e\u3059\u3002<\/p>\n

\u3010\u4f8b01\u3011
\n\u300e \u4e8b\u524d\u306b\u300ctext_test01\u300d\u3068\u3044\u3046\u540d\u524d\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f5c\u3063\u305f\u5834\u5408 \u300f<\/font>\u306b\u3001\u305d\u308c\u3092\u4f7f\u3046\u8a2d\u5b9a\u3092VBA\u3067\u66f8\u3044\u305f\u5834\u5408\u306e\u4f8b\u3001\u3067\u3059\u3002<\/p>\n

VBA\u3067\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u5f62\u3067\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3068SQL\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002
\n\uff08SQL\u306e\u6307\u5b9a\u306b\u306f\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\u306e\u300cCommandText\u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3042\u308b\u3044\u306f\u3001\u300cSQL\u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3092\u4f7f\u3044\u307e\u3059\u3002\uff09
\n\u3059\u308b\u3068\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u5438\u3044\u8fbc\u3080\u3068\u304d\u306b\u3001VBA\u30b3\u30fc\u30c9\u5185\u3067\u300cSQL\u300d\u3092\u4f7f\u3048\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002
\n\u3053\u3061\u3089\u3082\u3001Microsoft Query\u306e\u6642\u3068\u540c\u69d8\u306b\u3001\u5168\u5217\u00d7\u5168\u884c\u3092\u30d0\u30f3\u3063\uff01\uff01\uff01\u3068\u5168\u90e8\u5438\u3044\u8fbc\u3080\u3053\u3068\u3082\u3001\u30c7\u30fc\u30bf\u3092\u7d5e\u308a\u8fbc\u307f\u306a\u304c\u3089\u5438\u3044\u8fbc\u3080\u3053\u3068\u3082\u3001\u601d\u3044\u306e\u307e\u307e\u3001\u3067\u3059\u3002
\n\u3082\u3061\u308d\u3093\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u540c\u58eb\u304c\u95a2\u9023\u6027\u306e\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u540c\u58eb\u306a\u3089\u3001\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3092\u7d44\u307f\u306a\u304c\u3089\u5438\u3044\u8fbc\u3080\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059\u3002<\/p>\n

Dim QTbl01 AS QueryTable
\nSet QTbl01 = ActiveSheet.QueryTables.Add(Connection:= \"ODBC;DSN=text_test01;\u3000\u3000\u3000 DefaultDir=D:\\Textdb_Folder;DriverId=27;FIL=text;MaxBufferSize=2048;PageTimeout=5;\" , Destination:=Range(\"A1\"))
\nQTbl01.CommandText = Array(\"SELECT * FROM ttt_tab01.txt ttt_tab01\")
\n\u3000\u3000\u30fb
\n\u3000\u3000\u30fb\uff08\u4ee5\u4e0b\u7565\uff09
\n\u3000\u3000\u30fb<\/p>\n

\u4e0a\u8a18\u306e\u4f8b\u3067\u306f\u3001\u300cDSN=text_test01\u300d\u304c\u300e \u300ctext_test01\u300d\u3068\u3044\u3046\u540d\u524d\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f7f\u7528\u3057\u307e\u3059\u3088\uff5e\uff01 \u300f\u3068\u3044\u3046\u610f\u5473\u3067\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u6307\u5b9a\u8a2d\u5b9a\u3067\u3059\u3002
\n\u305d\u306e\u307b\u304b\u3001\u300cDefaultDir=D:\\Textdb_Folder\u300d\u304c\u305d\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3067\u8a2d\u5b9a\u3057\u305f\u30d5\u30a9\u30eb\u30c0\u3067\u3059\u3002
\n\u533a\u5207\u308a\u6587\u5b57\u3084\u5217\u540d\u306a\u3069\u306e\u300c\u5177\u4f53\u7684\u306a\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u300d\u306f\u3001\u300ctext_test01\u300d\u3068\u3044\u3046ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u4e2d\u3067\u3059\u3067\u306b\uff08\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3054\u3068\u306b\uff09\u8a2d\u5b9a\u304c\u306a\u3055\u308c\u3066\u3044\u308b\u308f\u3051\u3067\u3001\u3067\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u305d\u308c\u3092\u9078\u629e\uff1d\u6307\u5b9a\u3057\u305f\u308f\u3051\u3067\u3059\u306e\u3067\u3001VBA\u30b3\u30fc\u30c9\u3068\u3057\u3066\u306f\u3001\u300c\u5177\u4f53\u7684\u306a\u5438\u3044\u8fbc\u307f\u8a2d\u5b9a\u300d\u306f\u7279\u306b\u4f55\u3082\u66f8\u304f\u5fc5\u8981\u304c\u3042\u308a\u307e\u305b\u3093\u3002
\n\u4ed6\u306e\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u7528\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u5834\u5408\u3082\u540c\u3058\u30eb\u30fc\u30eb\u3067\u3059\u3002<\/p>\n

\u3000\u3000<\/SPAN>
\n\u3010\u4f8b02\u3011
\n\u2605\u4ee5\u4e0b\u306e\u4f8b\u3067\u306f\u3001\u4e0a\u8a18\u306e\u3010\u4f8b01\u3011\u3092\u4f7f\u3063\u3066\u3001\u5b9f\u969b\u306b\u3001D:\\1\u30d5\u30a9\u30eb\u30c0\u306b\u5bfe\u3057\u3066\u300cd1\u300d\u3068\u3044\u3046ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u8a2d\u5b9a\u3057\u3001\u5229\u7528\u3057\u3066\u3044\u307e\u3059\u3002Win11\uff0bExcel365\uff08\u5f53\u66422021\uff09\u3067\u3082\u52d5\u304d\u307e\u3057\u305f\u3002\u3082\u3061\u308d\u3093\u3001Win2000\uff0bExcel2000\u306a\u3069\u306e\u53e4\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u3082\u52d5\u304d\u307e\u3059\u3002<\/p>\n

\u2605\u6587\u5b57\u30b3\u30fc\u30c9\u304cUTF-8\u3084Unicode\u306e\u5834\u5408\u3001\u3053\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f7f\u3046\u65b9\u6cd5\u300d\u3060\u3068\u3001\u300c.TextFilePlatform\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u3063\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u3088\u3046\u306a\u306e\u3067\u3001
\nCSV\u3092\u3092Shift-JIS\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u306b\u5909\u5316\u3057\u3066\u304b\u3089\u3058\u3083\u306a\u3044\u3068\u30c0\u30e1\u307f\u305f\u3044\u3067\u3059\u3002
\n\u3042\u308b\u3044\u306f\u3001ACE\u30a8\u30f3\u30b8\u30f3\u3092\u4f7f\u3063\u3066ADO\u3067\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u8a2d\u5b9a\u3057\u3066SQL\u3067\u5438\u3044\u8fbc\u3080\u304b\u3001
\n\u306f\u305f\u307e\u305f\u3001\u3044\u3063\u305f\u3093\u5358\u306a\u308b\u300c\u30c6\u30ad\u30b9\u30c8\u30a4\u30f3\u30dd\u30fc\u30c8\u300d\u3067\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\u3057\u306a\u304c\u3089
\nExcel\u306b\u5438\u3044\u8fbc\u3093\u3067\u3001\u305d\u306e\u3042\u3068SQL\u3092\u4f7f\u3046\u30fb\u30fb\u30fb\u3001\u306a\u3069\u3067\u3059\u3002\uff08\u4ed6\u306e\u4ee3\u66ff\u6848\u3082\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\uff09
\n\u540c\u3058QueryTable\u3092\u4f7f\u3046\u306e\u3067\u3082\u3001\u5358\u306a\u308b\u300c\u30c6\u30ad\u30b9\u30c8\u30a4\u30f3\u30dd\u30fc\u30c8\u300d\u306e\u52d5\u4f5c\u306e\u307b\u3046\u306eQueryTable\u306e\u52d5\u304d\u306a\u3089\u3001\u300c.TextFilePlatform\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\u304c\u4f7f\u3048\u307e\u3059\u3002
\n\u672c\u5f53\u306f\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f7f\u3046\u65b9\u6cd5\u300d\u306b\u304a\u3044\u3066\u3082\u3001\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u8a2d\u5b9a\u3067\u304d\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\uff08Schema.ini\u3092\u3044\u3058\u308b\u3068\u304b\uff1f\uff09\u30fb\u30fb\u30fb\u3002
\n\u306a\u304a\u3001Excel2007\u306e\u30d8\u30eb\u30d7\u3067\u306f\u300cTextFilePlatform\u300d\u306e\u5b9a\u6570\u306f\u300cXlPlatform \u30af\u30e9\u30b9\u300d\u306e\u300cxlMacintosh(1)\u3001xlMSDOS(3)\u3001xlWindows(2)\u300d\u306e\uff13\u3064\u3067\u3001\u300cShift-JIS\uff08932\uff09\u3001UTF-8\uff0865001\uff09\u3001UTF-16\uff081200\uff09\u300d\u3067\u306f\u306a\u3044\u306e\u3067\u3001\u3053\u308c\u3082\u30ca\u30be\u306e\uff11\u3064\u3067\u3059\u3002<\/p>\n

\u203bUTF\u2192S-JIS\u306e\u81ea\u52d5\u5909\u63db\uff08VBA\u30b3\u30fc\u30c9\uff09\u306e\u4f8b
\n\u3053\u306e\u30da\u30fc\u30b8\u306e\u4e00\u756a\u4e0b\u306b\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u3042\u308a\u307e\u3059\u3002
\n\u4ee5\u4e0b\u306f\u305d\u308c\u3068\u540c\u3058\u5185\u5bb9\u306e\u5225\u30da\u30fc\u30b8\u3067\u3059\u3002\u2193
\nhttps:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/textfile_utf8_to_shiftjis01<\/a><\/p>\n

\u2605\u4eca\u56de\u306e\u8a18\u4e8b\u306e\u4e2d\u3067\u3082\u3001\u4e00\u756a\u30b7\u30f3\u30d7\u30eb\u3001\u304b\u3064\u3001\u591a\u5206\u7570\u306a\u308bOffice\u30d0\u30fc\u30b8\u30e7\u30f3\u3084OS\u30d0\u30fc\u30b8\u30e7\u30f3\u306e\u9593\u3067\u3082\u30a8\u30e9\u30fc\u304c\u51fa\u306a\u3044\u30b3\u30fc\u30c9\u3001\u3060\u3068\u601d\u3044\u307e\u3059\u3002\uff08\u5f8c\u8ff0\u306e2010\u306eODBC\u30bd\u30fc\u30b9\u540d\u3092\u4f7f\u308f\u306a\u3044\u3082\u306e\u306f\u3001OS\u3084Office\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3001ODBC\u8a2d\u5b9a\u306a\u3069\u306b\u3088\u3063\u3066\u306f\u30a8\u30e9\u30fc\u304c\u51fa\u307e\u3059\uff09<\/p>\n

\r\n'\r\n'\r\n\r\nSub Macro4()    'OK\u3002Win11\uff0bExcel365\uff08\u5f53\u66422021\uff09\u3067\u3082\u52d5\u3044\u305f\u3002\r\n'\r\n    Dim o_QTbl01 As QueryTable\r\n    Dim s_ODBCsrcName As String\r\n    Dim s_ODBCsrcPath As String\r\n    Dim s_SqlStr As String\r\n    Dim s_RngName As String\r\n    \r\n    s_ODBCsrcName = \"d1\"    'OS\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u753b\u9762\u3067\u8a2d\u5b9a\u3057\u305f\u300c\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u540d\u300d\r\n    s_ODBCsrcPath = \"d:\\1\"   '\u305d\u306e\u300c\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u540d\u300d\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\r\n     \r\n'    s_SqlStr = \"SELECT * FROM [aaa.csv] as csv1 inner join [bbb.csv] as csv2 on csv1.f01 = csv2.f001\"\r\n    s_SqlStr = \"SELECT f03, f001 FROM [aaa.csv] as csv1 inner join [bbb.csv] as csv2 on csv1.f01 = csv2.f001\"\r\n    s_RngName = \"d1\u304b\u3089\u306e\u30af\u30a8\u30ea\"   '\u540d\u524d\u306e\u5b9a\u7fa9\u3067\u306e\u540d\u524d\r\n    \r\n    '\u7a7a\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u751f\u6210\uff08ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u5229\u7528\uff09\r\n    Set o_QTbl01 = ActiveSheet.QueryTables.Add( _\r\n    Connection:= _\r\n    \"ODBC;DSN=\" & s_ODBCsrcName & \";\" & _\r\n    \"DefaultDir=\" & s_ODBCsrcPath & \";\" & _\r\n    \"DriverId=27;\" & _\r\n    \"FIL=text;\" & _\r\n    \"MaxBufferSize=2048;\" & _\r\n    \"PageTimeout=5;\", _\r\n    Destination:=Range(\"A1\"))\r\n    \r\n        '\u7a7a\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3078\u306e\u3001SQL\u7d50\u679c\u306e\u300c\u8868\u300d\u306e\u8868\u793a\u3002 \r\n        With o_QTbl01\r\n'            .CommandText = Array(\"SELECT * FROM [aaa.csv] as csv1 inner join [bbb.csv] as csv2 on csv1.f01 = csv2.f001\")\r\n            .CommandText = Array(s_SqlStr)\r\n'            .Name = \"d1\u304b\u3089\u306e\u30af\u30a8\u30ea\"\r\n            .Name = s_RngName\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        End With\r\n \r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n
\u2605\u6ce8\u610f\uff10\uff11\uff01\uff01\uff01\uff01\uff01\uff01\uff01
\n\u4e0a\u8a18\u306e\u4f8b\u306f\u3001\u300cd1\u300dODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u4e2d\u306e\u3001CSV\u30d5\u30a1\u30a4\u30eb\u3092\u64cd\u4f5c\u306e\u5bfe\u8c61\u306b\u3057\u3066\u3044\u308b\u308f\u3051\u306a\u3093\u3067\u3059\u304c\u3001CSV\u306e\u5834\u5408\u3001\u304b\u3064\u3001\u300cInner Join\u300d\u53e5\u3067\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3092\u7d44\u3082\u3046\u3068\u601d\u3046\u3068\u3001\u30c6\u30fc\u30d6\u30eb\u3092\u300cAS \u00d7\u00d7\u00d7\u300d\u3067\u5225\u540d\u3092\u4ed8\u3051\u306a\u3044\u3068ON\u53e5\u3067\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u3057\u307e\u3046\u307f\u305f\u3044\u3067\u3059\u3002
\n\u9006\u306b\u3001\u300cWHERE\u300d\u53e5\u3067\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3055\u305b\u308b\u5834\u5408\uff08\u30aa\u30e9\u30af\u30eb\u65b9\u5f0f\uff1f\uff09\u306f\u5225\u540d\u306f\u8981\u3089\u306a\u3044\u3088\u3046\u306a\u306e\u3067\u3059\u304c\u30fb\u30fb\u30fb\u3002<\/p>\n
\u4f8b\u3048\u3070\u3001
\nSELECT * FROM [aaa.csv] as csv1 inner join [bbb.csv] as csv2 on csv1.f01 = csv2.f001
\n\u3092
\nSELECT f03, f001 FROM [aaa.csv], [bbb.csv] WHERE f01 = f001
\n\u3068\u300cWHERE\u300d\u53e5\u3067\u306e\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u306eSQL\u306b\u66f8\u304d\u63db\u3048\u308b\u3068OK\u306a\u3093\u3067\u3059\u304c\u30fb\u30fb\u30fb\u30fb\u3001
\n\u305d\u308c\u3092\u3001
\nSELECT * FROM [aaa.csv]  inner join [bbb.csv]  on [aaa.csv].f01 = [bbb.csv].f001\uff08SQL\u69cb\u6587\u30a8\u30e9\u30fc\uff09
\n\u3068\u304b
\nSELECT * FROM [aaa.csv]  inner join [bbb.csv]  on f01 = f001\uff08\u4e00\u822cODBC\u30a8\u30e9\u30fc\uff09
\n\u3068\u66f8\u304f\u3068\u3001\u305d\u308c\u305e\u308c\u30ab\u30c3\u30b3\u5185\u306b\u66f8\u3044\u305f\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\u307e\u305f\u3001
\nSELECT * FROM [aaa.csv] as csv1 inner join [bbb.csv] as csv2 on f01 = f001
\n\u3068\u66f8\u3044\u3066\u3082\uff08\u4e00\u822cODBC\u30a8\u30e9\u30fc\uff09\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
\u300c\u4e00\u822cODBC\u30a8\u30e9\u30fc\u300d\u306e\u307b\u3046\u306f\u300c\u69cb\u6587\u306f\u9593\u9055\u3063\u3066\u306a\u3044\u3051\u3069\u51e6\u7406\u3067\u304d\u306a\u3044\u300d\u3063\u3066\u3053\u3068\u306a\u3093\u3067\u3057\u3087\u3046\u304b\uff1f\uff1f\uff1f
\n\u30ca\u30be\u3067\u3059\u3002
\nExcel\u306eSQL\u306f\u6700\u5f8c\u306e\u300c;\u300d\u304c\u7121\u304f\u3066\u3082OK\u306a\u306e\u3067\u3059\u304c\u3001\u3053\u308c\u3089\u306e\u5834\u5408\u306f\u300c;\u300d\u3092\u4ed8\u3051\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002
\nxls\u3084xlsx\u3067\uff11\u3064\u306e\u30d6\u30c3\u30af\u5185\u306e\uff12\u3064\u306e\u30b7\u30fc\u30c8\u3067\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3092\u7d44\u3080\u6642\u306f\u3001\u3053\u306e\u30a8\u30e9\u30fc\u306b\u306f\u306a\u3089\u306a\u3044\u306e\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u304c\u30fb\u30fb\u30fb\u3002
\n\u203b\u2192\u30c1\u30a7\u30c3\u30af\u3057\u305f\u3089\u3084\u306f\u308aOK\u3067\u3057\u305f\u3002xls\u3067\u3082xlsx\u3067\u3082OK\u3067\u3059\u3002
\n\u3000\u4f8b\u2192SELECT * FROM [aaa$] INNER JOIN [bbb$] ON [aaa$].f01 = [bbb$].f001
\n\u3000ON\u53e5\u306b\u30c6\u30fc\u30d6\u30eb\u540d\u304c\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u304c\u3001\u5225\u540d\u306f\u4e0d\u8981\u3067\u3057\u305f\u3002
\n\u3000\u307e\u305f\u3001\u4e00\u90e8\u306eWeb\u30b5\u30a4\u30c8\u306bxlsx\u306b\u306f\u4f7f\u3048\u306a\u3044\u3068\u66f8\u3044\u3066\u3042\u308a\u307e\u3059\u304c\u3001
\n\u3000\u305d\u308c\u306f\u9593\u9055\u3044\u306e\u3088\u3046\u3067\u3059\u3002<\/p>\n
\u2605\u6ce8\u610f\uff10\uff12\uff01\uff01\uff01\uff01\uff01\uff01\uff01
\nExcel\u306e\u5834\u5408\u3001WHERE\u53e5\u3067\u306e\u7d50\u5408\u306f\u5185\u90e8\u7d50\u5408\u306e\u307f\u3067\u3001\u5916\u90e8\u7d50\u5408\u306f\u3067\u304d\u306a\u3044\u3063\u307d\u3044\u3067\u3059\u3002
\n\u3082\u3057\u304b\u3057\u305f\u3089\u3001\u4f55\u304b\u3084\u308a\u65b9\u304c\u3042\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u73fe\u6642\u70b9\u3067\u306f\u4e0d\u660e\u3067\u3059\u3002
\n\u4e00\u5fdc\u3001\u300c*\u300d\u3084\u300c(+)\u300d\u3092\u4f7f\u3063\u3066\u8a66\u3057\u3066\u307f\u307e\u3057\u305f\u304c\u3001SQL\u69cb\u6587\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3002<\/p>\n
\u3000\u3000<\/SPAN>
\n\u3010\u4f8b03\u3011
\nODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f7f\u3044\u305f\u304f\u306a\u3044\u5834\u5408\u3001\u4e00\u5fdc\u3001\u300cADO\uff08ACE\u30a8\u30f3\u30b8\u30f3\uff09\uff0bOLEDB\u63a5\u7d9a\uff0bRange.CopyFromRecordset\u30e1\u30bd\u30c3\u30c9\u300d\u306b\u3066\u5358\u7d14\u306b\u30d5\u30a9\u30eb\u30c0\u6307\u5b9a\u306e\u307f\u3067\u3001SQL\u3067\u30c7\u30fc\u30bf\u3092\u53d6\u308a\u51fa\u305b\u307e\u3059\u3002\uff08\u5217\u540d\u3092\u53d6\u308a\u51fa\u3059\u30b3\u30fc\u30c9\u304c\u5225\u9014\u306b\u5fc5\u8981\u3067\u3059\u304c\u3002\uff09
\n\u4ee5\u4e0b\u3001\u305d\u306e\u4f8b\u3067\u3059\u3002\u3053\u308c\u3082\u3001D:\\1 \u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u306e\u4e2d\u306eCSV\u30d5\u30a1\u30a4\u30eb\u3092\u30ea\u30ec\u30fc\u30b7\u30e7\u30f3\u3057\u306a\u304c\u3089\u5438\u3044\u8fbc\u307f\u307e\u3059\u3002\u306a\u304a\u3001\u5217\u540d\u3092\u53d6\u308a\u51fa\u3059\u30b3\u30fc\u30c9\u306f\u5272\u611b\u3057\u3066\u3042\u308a\u307e\u3059\u3002<\/p>\n
\u203b\u6ce8\u610f\uff01\uff01
\n\u3053\u306eACE\u30a8\u30f3\u30b8\u30f3\u3092\u4f7f\u3046\u5834\u5408\u3001Excel\u306e\u30d0\u30fc\u30b8\u30e7\u30f32007\u4ee5\u964d\u304b\u3082\u3063\u3068\u3042\u3068\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u304c\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u3066\u3044\u306a\u3044\u3068\u3044\u3051\u306a\u304b\u3063\u305f\u6c17\u304c\u3057\u307e\u3059\u30022003\u307e\u3067\u3057\u304b\u5165\u3063\u3066\u306a\u3044\u30d1\u30bd\u30b3\u30f3\u3067\u306f\u3001\u3053\u308c\u306f\u52d5\u304d\u307e\u305b\u3093\u3002<\/p>\n
\r\n'\r\n'\r\nSub tes()\r\n\r\n    Dim cn As ADODB.Connection\r\n    Dim rs As New ADODB.Recordset\r\n    Dim strSql As String\r\n\r\n    Set cn = New ADODB.Connection\r\n    cn.ConnectionString = \"Provider=Microsoft.ACE.OLEDB.12.0;\" _\r\n    & \"Data Source=D:\\1;\" _\r\n    & \"Extended Properties=\"\"Text;HDR=Yes;FMT=Delimited\"\"\"\r\n\r\n    cn.Open\r\n    strSql = \"SELECT * FROM [aaa.csv] as csv1 inner join [bbb.csv] as csv2 on csv1.f01 = csv2.f001\"\r\n    rs.Open strSql, cn, adOpenDynamic, adLockOptimistic, adCmdText\r\n\r\n    Range(\"A1\").CopyFromRecordset rs\r\n\r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n
\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n
\u4ee5\u4e0b\u3001ODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u3092\u4f5c\u308b\u969b\u306e\u304a\u304a\u307e\u304b\u306a\u624b\u9806\u3067\u3059\u3002<\/p>\n
\u3000\u3000<\/SPAN>
\n\u2605 \u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u7f6e\u304f\u30d5\u30a9\u30eb\u30c0\u3092\u4f5c\u6210<\/a><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u305d\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u3072\u3068\u3064\u3068\u3057\u3066\u8a2d\u5b9a\u3059\u308b\uff08\u8907\u6570\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u7f6e\u3051\u307e\u3059\u3057\u3001\u533a\u5207\u308a\u6587\u5b57\u306a\u3069\u3082\u5225\u3005\u306b\u8a2d\u5b9a\u3067\u304d\u307e\u3059\u3002\uff09<\/a><\/p>\n
\u53c2\u8003Web\u8a18\u4e8b
\n\u300eODBC\u306eText Driver\u3068Excel\u3068\u3092\u4f7f\u3063\u3066CSV\u30d5\u30a1\u30a4\u30eb\u3092SQL\u3067\u691c\u7d22\u30fb\u62bd\u51fa\u3059\u308b<\/a>\u300f
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n
\u2605 \u305d\u306e\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u30ab\u30f3\u30de\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u914d\u7f6e<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30ab\u30f3\u30de\u533a\u5207\u308a\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5217\u540d\u884c\u306e\u6307\u5b9a\u3084\u533a\u5207\u308a\u6587\u5b57\u7b49\u3005\u306e\u8a2d\u5b9a<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u305d\u306e\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u914d\u7f6e<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5217\u540d\u884c\u306e\u6307\u5b9a\u3084\u533a\u5207\u308a\u6587\u5b57\u7b49\u3005\u306e\u8a2d\u5b9a<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 Microsoft Query\u304b\u3089\u30ab\u30f3\u30de\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3093\u3067\u307f\u308b<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u305d\u308c\u3092\u30de\u30af\u30ed\u306e\u8a18\u9332\u306b\u3057\u3066\u307f\u308b\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u307f\uff09<\/a><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u540c\u4e0a\uff08ListObject\u3064\u304d\uff09<\/a><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n
\u2605 VBA\u3092\u66f8\u304d\u63db\u3048\u3066\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u5438\u3044\u8fbc\u3093\u3067\u307f\u308b\u3002<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 VBA\u306eSQL\u3092\u66f8\u304d\u63db\u3048\u3066\u3001\u7d5e\u308a\u8fbc\u3093\u3067\u307f\u308b<\/a>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u30de\u30af\u30ed\u3067\u751f\u6210\u3055\u308c\u305f\u30d7\u30ed\u30b0\u30e9\u30e0\u4f8b\uff1a\u30d0\u30fc\u30b8\u30e7\u30f32010\u306e\u5834\u5408\uff08\u3053\u306e\u30b3\u30fc\u30c9\u3060\u3068\u30ab\u30f3\u30de\u533a\u5207\u308a\u3057\u304b\u5438\u3044\u8fbc\u3081\u307e\u305b\u3093\u3067\u3057\u305f\uff09<\/a>
\n\u203bSQL\u3067WHERE\u3092\u4f7f\u3048\u3070\u7d5e\u308a\u8fbc\u307f\u5438\u3044\u8fbc\u307f\u304c\u3067\u304d\u307e\u3059\u3002
\n\u203b\u300c& Chr(13) & \"\" & Chr(10) &\u300d\u306a\u3069\u306f\u6d88\u3057\u3066\u3082\u5927\u4e08\u592b\u3067\u3059\u3002
\n\u203b\u4e8b\u524d\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u767b\u9332\u306f\u8981\u3089\u306a\u3044\u304b\u3082\uff1f\u3067\u3059\u3002\uff08\u3082\u3057\u30a8\u30e9\u30fc\u304c\u51fa\u305f\u3089\u3084\u3063\u3066\u304f\u3060\u3055\u3044\u3002\uff09\u2192\u5f8c\u65e5\u3001\u3084\u306f\u308a\u5fc5\u8981\u3068\u5224\u660e\u3057\u307e\u3057\u305f\u3002\u4f55\u3082\u3057\u306a\u304f\u3066\u3084\u308c\u308b\u3053\u3068\u306f\u306a\u3044\u306e\u3067\u3001\u4ee5\u524d\u306b\u8a2d\u5b9a\u3057\u305f\u3053\u3068\u3092\u5fd8\u308c\u3066\u3044\u305f\u3060\u3051\u306e\u3088\u3046\u3067\u3059\u3002\uff08\u601d\u3044\u51fa\u305b\u307e\u305b\u3093\u3067\u3057\u305f\u304c\u30fb\u30fb\u30fb\uff09<\/p>\n
\r\n'\r\n'\r\nSub Macro2()\r\n'\r\n' Macro2 Macro\r\n'\r\n\r\n'\r\n    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _\r\n        \"ODBC;DBQ=C:\\USERS\\USER01\\DESKTOP;DefaultDir=C:\\USERS\\USER01\\DESKTOP;Driver={Microsoft Access Text Driver (*.txt, *.csv)};DriverId=27\" _\r\n        ), Array( _\r\n        \";Extensions=txt,csv,tab,asc;FIL=text;MaxBufferSize=2048;MaxScanRows=25;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSyn\" _\r\n        ), Array(\"c=Yes;\")), Destination:=Range(\"$A$1\")).QueryTable\r\n        .CommandText = Array(\"SELECT ttt.a, ttt.b, ttt.c, ttt.d\" & Chr(13) & \"\" & Chr(10) & \"FROM ttt.txt ttt\")\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_ttt_\u304b\u3089\u306e\u30af\u30a8\u30ea\"\r\n        .Refresh BackgroundQuery:=False\r\n    End With\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u203b\u81ea\u52d5\u66f8\u304d\u8fbc\u307f\u3055\u308c\u308b\u7d30\u304b\u3044\u8a2d\u5b9a\u3068\u30c0\u30a4\u30a2\u30ed\u30b0\u30dc\u30c3\u30af\u30b9\u306e\u5bfe\u5fdc\u72b6\u6cc1\u306e\u56f3
\n\uff08\u300eExcel\u3067\u4f7f\u3046MySQL \u30c7\u30fc\u30bf\u5206\u6790\u7de8<\/a>\u300f\u306eP272\u306e\u56f3\u3092\u5f15\u7528\u3057\u307e\u3057\u305f\u3002\uff09
\n\"\"<\/a>
\n\u4e0a\u56f3\u306f\u30d0\u30fc\u30b8\u30e7\u30f32000\u306e\u3082\u306e\u3067\u3059\u304c\u3001\u30d0\u30fc\u30b8\u30e7\u30f32007\u4ee5\u964d\u306a\u3069\u3067\u3082\u4f3c\u305f\u3088\u3046\u306a\u8a2d\u5b9a\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u3042\u308a\u307e\u3059\u3002
\n\u4f8b\u3048\u30702010\u306e\u5834\u5408\u306f\u3001\u300c\u7d50\u679c\u306e\u8868\u3092\u53f3\u30af\u30ea\u30c3\u30af\u2192\u30c6\u30fc\u30d6\u30eb\u2192\u5916\u90e8\u30c7\u30fc\u30bf\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3067\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u306e\u3067\u3001\u540c\u3058\u3088\u3046\u306a\u8a2d\u5b9a\u7b87\u6240\u3092\u63a2\u3057\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 C:\\USERS\\USER01\\DESKTOP\\ttt.txt \u306e\u4e2d\u8eab\u306e\u4f8b<\/a><\/p>\n
\r\n'\r\n'\r\na,b,c,d\r\nA1,1,2,0.24\r\nB1,2,4,0.5\r\nE4,1,5,3.55\r\nC1,2,5,0.4\r\ne4,5,3,0.02\r\np2,3,4,0.57\r\nC2,5,4,0.8\r\nB7,2,7,0.5\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 Excel2000\u306e\u5834\u5408\uff10\uff11\uff08\uff12\uff10\uff11\uff10\u3067\u306e\u30b3\u30fc\u30c9\u3092\u307e\u3093\u307e\u3067\u4f7f\u3063\u305f\u30c6\u30b9\u30c8\uff09<\/a>
\n\u4e0a\u8a18\u306e\u5185\u5bb9\u304c\u3001\u300cD:\\1\u300d\u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u306b\u3042\u308b\u5834\u5408\u3067\u3059\u3002
\n\u203b\u4e8b\u524d\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u767b\u9332\u306f\u8981\u3089\u306a\u3044\u304b\u3082\uff1f\u3067\u3059\u3002\uff08\u3082\u3057\u30a8\u30e9\u30fc\u304c\u51fa\u305f\u3089\u3084\u3063\u3066\u304f\u3060\u3055\u3044\u3002\uff09\u2192\u5f8c\u65e5\u3001\u3084\u306f\u308a\u5fc5\u8981\u3068\u5224\u660e\u3057\u307e\u3057\u305f\u3002\u4f55\u3082\u3057\u306a\u304f\u3066\u3084\u308c\u308b\u3053\u3068\u306f\u306a\u3044\u306e\u3067\u3001\u4ee5\u524d\u306b\u8a2d\u5b9a\u3057\u305f\u3053\u3068\u3092\u5fd8\u308c\u3066\u3044\u305f\u3060\u3051\u306e\u3088\u3046\u3067\u3059\u3002\uff08\u601d\u3044\u51fa\u305b\u307e\u305b\u3093\u3067\u3057\u305f\u304c\u30fb\u30fb\u30fb\uff09<\/p>\n
\r\n'\r\n'\r\nSub Macro3()\r\n'\r\n' Macro2 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2019\/10\/7  \u30e6\u30fc\u30b6\u30fc\u540d : a\r\n'\r\n    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _\r\n        \"ODBC;DBQ=D:\\1;DefaultDir=D:\\1;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;FIL=text;MaxBufferSize=2048;MaxScanRows=8;Pa\" _\r\n        ), Array(\"geTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;\")), _\r\n        Destination:=Range(\"A1\"))\r\n'        .CommandText = Array( _\r\n'        \"SELECT `ttt`.a, `ttt`.b, `ttt`.c, `ttt`.d \" & Chr(13) & \"\" & Chr(10) & \"FROM `ttt.txt` `ttt`\")\r\n        .CommandText = Array( _\r\n        \"SELECT * FROM `ttt.txt` `ttt`\")\r\n        .Name = \"ttttxt \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    End With\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n
\u2605 Excel2000\u306e\u5834\u5408\uff10\uff12<\/a>
\n\uff08\u76f4\u63a5\u3001\u30d0\u30fc\u30b8\u30e7\u30f3\uff12\uff10\uff10\uff10\u3067\u300c\u30de\u30af\u30ed\u306e\u8a18\u9332\u300d\u3067\u4f5c\u3063\u305f\u30b3\u30fc\u30c9\u3092\u5c11\u3057\u66f8\u304d\u304b\u3048\u3002
\n\u3000\u30ab\u30f3\u30de\u533a\u5207\u308a\u3067\u306f\u306a\u304f\u3066\u3001TAB\u533a\u5207\u308a\u3068\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u3002\uff09<\/p>\n
\u4e0a\u8a18\u306e\u5185\u5bb9\u304c\u3001\u300cD:\\TEXTDB\u300d\u3068\u3044\u3046\u30d5\u30a9\u30eb\u30c0\u306b\u3042\u308b\u5834\u5408\u3067\u3059\u3002
\n\u30ab\u30f3\u30de\u533a\u5207\u308a\u3092\u304b\u3089\u3001TAB\u533a\u5207\u308a\u3068\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u3063\u3066\u3084\u308a\u307e\u3057\u305f\u3002
\nTAB\u533a\u5207\u308a\u3068\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u4e21\u65b9\u30fb\u30fb\u30fb\u3002
\n\u306a\u3093\u304b\uff12\uff10\uff10\uff10\u3060\u3068\u7279\u306b\u8a2d\u5b9a\u3057\u3066\u306a\u304f\u3066\u3082\u3001TAB\u533a\u5207\u308a\u3068\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u4e21\u65b9\u3082\u8aad\u3081\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3002\u306a\u3093\u304b\u306e\u9593\u9055\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3051\u3069\u30fb\u30fb\u30fb\u30fb\u3002
\n\u203b\u4e8b\u524d\u306eODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u767b\u9332\u306f\u8981\u3089\u306a\u3044\u304b\u3082\uff1f\u3067\u3059\u3002\uff08\u3082\u3057\u30a8\u30e9\u30fc\u304c\u51fa\u305f\u3089\u3084\u3063\u3066\u304f\u3060\u3055\u3044\u3002\uff09\u2192\u5f8c\u65e5\u3001\u3084\u306f\u308a\u5fc5\u8981\u3068\u5224\u660e\u3057\u307e\u3057\u305f\u3002\u4f55\u3082\u3057\u306a\u304f\u3066\u3084\u308c\u308b\u3053\u3068\u306f\u306a\u3044\u306e\u3067\u3001\u4ee5\u524d\u306b\u8a2d\u5b9a\u3057\u305f\u3053\u3068\u3092\u5fd8\u308c\u3066\u3044\u305f\u3060\u3051\u306e\u3088\u3046\u3067\u3059\u3002\uff08\u601d\u3044\u51fa\u305b\u307e\u305b\u3093\u3067\u3057\u305f\u304c\u30fb\u30fb\u30fb\uff09<\/p>\n
\r\n'\r\n'\r\nSub Macro2tab01()\r\n'\r\n' Macro2 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2019\/10\/8  \u30e6\u30fc\u30b6\u30fc\u540d : a\uff1a\r\n' \u300cTAB\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u5438\u3044\u8fbc\u3080\u3002\r\n'\r\n\r\n'\r\n    With ActiveSheet.QueryTables.Add(Connection:= _\r\n        \"ODBC;DSN=D_txtdb_tab;DefaultDir=D:\\TEXTDB;DriverId=27;FIL=text;MaxBufferSize=2048;PageTimeout=5;\" _\r\n        , Destination:=Range(\"A1\"))\r\n        .CommandText = Array( _\r\n        \"SELECT ttt_tab01.a, ttt_tab01.b, ttt_tab01.c, ttt_tab01.d\" & Chr(13) & \"\" & Chr(10) & \"FROM ttt_tab01.txt ttt_tab01\" _\r\n        )\r\n        .Name = \"D_txtdb_tab \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    End With\r\nEnd Sub\r\nSub Macro3space01()\r\n'\r\n' Macro3 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2019\/10\/8  \u30e6\u30fc\u30b6\u30fc\u540d : a\r\n' \u300c\u30b9\u30da\u30fc\u30b9\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u5438\u3044\u8fbc\u3080\u3002\r\n'\r\n\r\n'\r\n    With ActiveSheet.QueryTables.Add(Connection:= _\r\n        \"ODBC;DSN=D_TXTDB;DefaultDir=D:\\TEXTDB;DriverId=27;FIL=text;MaxBufferSize=2048;PageTimeout=5;\" _\r\n        , Destination:=Range(\"A1\"))\r\n        .CommandText = Array( _\r\n        \"SELECT ttt_space01.a, ttt_space01.b, ttt_space01.c, ttt_space01.d\" & Chr(13) & \"\" & Chr(10) & \"FROM ttt_space01.txt ttt_space01\" _\r\n        )\r\n        .Name = \"D_TXTDB \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    End With\r\n\r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u203b\u81ea\u52d5\u66f8\u304d\u8fbc\u307f\u3055\u308c\u308b\u7d30\u304b\u3044\u8a2d\u5b9a\u3068\u30c0\u30a4\u30a2\u30ed\u30b0\u30dc\u30c3\u30af\u30b9\u306e\u5bfe\u5fdc\u72b6\u6cc1\u306e\u56f3
\n\uff08\u300eExcel\u3067\u4f7f\u3046MySQL \u30c7\u30fc\u30bf\u5206\u6790\u7de8<\/a>\u300f\u306eP272\u306e\u56f3\u3092\u5f15\u7528\u3057\u307e\u3057\u305f\u3002\uff09
\n\"\"<\/a>
\n\u4e0a\u56f3\u306f\u30d0\u30fc\u30b8\u30e7\u30f32000\u306e\u3082\u306e\u3067\u3059\u304c\u3001\u30d0\u30fc\u30b8\u30e7\u30f32007\u4ee5\u964d\u306a\u3069\u3067\u3082\u4f3c\u305f\u3088\u3046\u306a\u8a2d\u5b9a\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u3042\u308a\u307e\u3059\u3002
\n\u4f8b\u3048\u30702010\u306e\u5834\u5408\u306f\u3001\u300c\u7d50\u679c\u306e\u8868\u3092\u53f3\u30af\u30ea\u30c3\u30af\u2192\u30c6\u30fc\u30d6\u30eb\u2192\u5916\u90e8\u30c7\u30fc\u30bf\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u300d\u3067\u3001\u4e0b\u56f3\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u306e\u3067\u3001\u540c\u3058\u3088\u3046\u306a\u8a2d\u5b9a\u7b87\u6240\u3092\u63a2\u3057\u307e\u3059\u3002
\n\"\"<\/a><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u3082\u3046\u5c11\u3057\u6271\u3044\u3084\u3059\u304f\u5909\u5f62\u3055\u305b\u305f\u3082\u306e<\/p>\n
OS\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u753b\u9762\u3067\u8a2d\u5b9a\u3057\u305f\u5185\u5bb9\u304c\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30e2\u30ce\u3060\u3063\u305f\u3068\u3057\u3066\u3002
\n\u300c\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u540d\uff1ac_text-tbl\u300d
\n\u300c\u305d\u306e\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\uff1aC:\\text-tbl\u300d<\/p>\n
OS\u3001Office\u3001\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u304c\u7570\u306a\u3063\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u3089\u306a\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
\r\n'\r\n'\r\n\r\nSub Macro4tab01()\r\n'\r\n' Macro2 Macro\r\n' \u30de\u30af\u30ed\u8a18\u9332\u65e5 : 2019\/10\/8  \u30e6\u30fc\u30b6\u30fc\u540d : a\uff1a\r\n' \u300cTAB\u533a\u5207\u308a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u5438\u3044\u8fbc\u3080\u3002\r\n\r\n' Macro2tab01() \u3092\u5c11\u3057\u4f5c\u308a\u5909\u3048\u305f\u3082\u306e\r\n'\r\n \r\n'\r\n    Dim s_ODBCsrcName As String\r\n    Dim s_ODBCsrcPath As String\r\n    \r\n    s_ODBCsrcName = \"c_text-tbl\"    'OS\u306e\u300cODBC\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u300d\u306e\u753b\u9762\u3067\u8a2d\u5b9a\u3057\u305f\u300c\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u540d\u300d\r\n    s_ODBCsrcPath = \"C:\\text-tbl\"   '\u305d\u306e\u300c\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u540d\u300d\u306e\u30c7\u30fc\u30bf\u30bd\u30fc\u30b9\u306e\u30d5\u30a9\u30eb\u30c0\u306e\u30d1\u30b9\r\n    \r\n    With ActiveSheet.QueryTables.Add(Connection:= _\r\n        \"ODBC;DSN=\" & s_ODBCsrcName & \";\" & _\r\n        \"DefaultDir=\" & s_ODBCsrcPath & \";\" & _\r\n        \"DriverId=27;FIL=text;MaxBufferSize=2048;PageTimeout=5;\" _\r\n        , Destination:=Range(\"A1\"))\r\n        .CommandText = Array( _\r\n        \"SELECT txt01_comma.a, txt01_comma.b\" & Chr(13) & \"\" & Chr(10) & \"FROM txt01_comma.txt txt01_comma\" _\r\n        )\r\n        .Name = \"D_txtdb_tab \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    End With\r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u2605UTF-8\u3001UTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u21d2Shift-JIS\u306b\u5909\u63db\u3059\u308b\u95a2\u6570\u3002
\n\u300cCall Utf8ToSjis01(\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9)\u300d\u307f\u305f\u3044\u306a\u8a18\u8ff0\u3067\u4f7f\u3044\u307e\u3059\u3002
\n\u4ee5\u4e0b\u306e\u53c2\u8003\u30da\u30fc\u30b8\u3092\u3082\u3068\u306b\u3001\u3061\u3083\u3093\u3068\u5909\u6570\u5ba3\u8a00\u3092\u3057\u305f\u304b\u305f\u3061\u306b\u4f5c\u308a\u66ff\u3048\u307e\u3057\u305f\u3002
\n\u305f\u3060\u3001
\n\u300cv_SplitRow = Split(s_AllText, vbCrLf)\u300d
\n\u306e\u884c\u3067\u3001\u6539\u884c\u30b3\u30fc\u30c9\u3092vblf\u304b\u3001vbcr\u304b\u3001\u306a\u3069\u304c\u6d41\u52d5\u7684\u306a\u306e\u3067\u3001
\n\u3061\u3083\u3093\u3068\u3057\u305f\u4fee\u6b63\u304c\u5fc5\u8981\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n
\u53c2\u8003Web\u30da\u30fc\u30b8
\nhttps:\/\/daitaideit.com\/vba-utf-8-transform\/#mokuzi2<\/a><\/p>\n
\r\n'\r\n'\r\n\r\n'##########################################################\r\n'UTF-8\u3001UTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u21d2Shift-JIS\u306b\r\n'\u5909\u63db\u3059\u308b\u95a2\u6570\u3002\r\n'Call Utf8ToSjis01(\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9)\r\n'https:\/\/daitaideit.com\/vba-utf-8-transform\/#mokuzi2\r\n'##########################################################\r\n\r\nFunction Utf8ToSjis01(FilePath As String)\r\n   \r\n    Dim s_AllText As String\r\n    Dim v_SplitRow As Variant\r\n    Dim l_Cnt01 As Long\r\n    Dim l_Cnt02 As Long\r\n    \r\n    '\u5909\u63db\u3057\u305f\u3044\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u3092\u4f5c\u6210\r\n'    Dim FilePath\r\n'    FilePath = ThisWorkbook.Path & \"\\TEST.txt\"\r\n'    FilePath = \"d:\\1\\bbb_utf8.csv\"\r\n    \r\n    'UTF-8\u3082\u3057\u304f\u306fUTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f\r\n    With CreateObject(\"ADODB.Stream\")\r\n        .Charset = \"UTF-8\"\r\n        .Open\r\n        .LoadFromFile FilePath\r\n        s_AllText = .ReadText\r\n        .Close\r\n    End With\r\n    \r\n    \r\n    'UTF-8\u3082\u3057\u304f\u306fUTF-8\uff08BOM\u4ed8\u304d\uff09\u4ee5\u5916\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3057\u307e\u3063\u305f\u5834\u5408\u306f\u7d42\u4e86\r\n    For l_Cnt01 = 1 To Len(s_AllText)\r\n        If Mid(s_AllText, l_Cnt01, 1) <> Chr(63) Then\r\n            If Asc(Mid(s_AllText, l_Cnt01, 1)) = 63 Then\r\n                Debug.Print \"\u4e2d\u6b62--\u203b\u30bd\u30fc\u30b9\u304c\u300e UTF-8\u3082\u3057\u304f\u306fUTF-8\uff08BOM\u4ed8\u304d\uff09\u300f\u4ee5\u5916\u3060\u3063\u305f\u305f\u3081\u3002\"\r\n'                MsgBox \"\u4e2d\u6b62\"\r\n                Exit Function\r\n            End If\r\n        End If\r\n    Next\r\n    \r\n    '\u6539\u884c\u6bce\u306b\u30c7\u30fc\u30bf\u3092\u5206\u3051\u308b\u3002\r\n    v_SplitRow = Split(s_AllText, vbCrLf)\r\n    \r\n    '\u2191\uff08\u203b\u3069\u306e\u6539\u884c\u30b3\u30fc\u30c9\u304b\u308f\u304b\u3089\u306a\u3044\u306e\u3067\u3001\r\n    '\u3000\u3000\u3000\u4e8b\u524d\u306b\uff11\u3064\u306e\u30d5\u30a1\u30a4\u30eb\u3068\u304b\u3067\u8a66\u3059\u3002\uff09\r\n    '\u3000\u3000\u3000\u3042\u308b\u3044\u306f\u3001\u81ea\u52d5\u30c1\u30a7\u30c3\u30af\u306e\u30b3\u30fc\u30c9\u3092\u8ffd\u8a18\u3059\u308b\uff09\r\n'    v_SplitRow = Split(s_AllText, vbCr)\r\n'    v_SplitRow = Split(s_AllText, vbLf)\r\n\r\n    \r\n    \r\n    'Shift-JIS\u5f62\u5f0f\u3067\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3078\u51fa\u529b\r\n    Open FilePath For Output As #1\r\n        For l_Cnt02 = 0 To UBound(v_SplitRow)\r\n            Print #1, v_SplitRow(l_Cnt02)\r\n        Next\r\n    Close #1\r\n\r\n    Debug.Print \"\u5b8c\u4e86\"\r\n    \r\nEnd Function\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605\u2605\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eExcel\u306b\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u3001\u300cSQL\u3092\u4f7f\u3044\u306a\u304c\u3089\u300d\u30fb\u304b\u3064\u30fb\u300c\u7d5e\u308a\u8fbc\u307f\u306a\u304c\u3089\u8aad\u307f\u8fbc\u3080\u300d\u65b9\u6cd5\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u3066ODBC\u63a5\u7d9a\u5229\u7528 ...","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\/1562"}],"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=1562"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1562\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1562"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1562"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}