{"id":950,"date":"2017-05-12T20:15:27","date_gmt":"2017-05-12T11:15:27","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=950"},"modified":"2020-10-26T13:03:30","modified_gmt":"2020-10-26T04:03:30","slug":"readbydao","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/readbydao","title":{"rendered":"Excel2010\u3067\u3001\u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\uff09\u30c7\u30fc\u30bf\u3092\u3067\u304d\u308b\u3060\u3051\u901f\u304f\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\uff08DAO\u306b\u3066\uff09"},"content":{"rendered":"<p>\u25cf Excel2010\u3067\u3001\u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\uff09\u30c7\u30fc\u30bf\u3092\u3067\u304d\u308b\u3060\u3051\u901f\u304f\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\uff08DAO\u306b\u3066\uff09<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #ff0000;\"><b>\u672c\u8a18\u4e8b\u306f\u300c32bit\u306e\u300dExcel\u3060\u3051\u3067\u306e\u304a\u8a71\u3067\u3059\u3002\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<br \/>\n\u305f\u3060\u3001OS\u304c64bit\u3067\u3042\u3063\u3066\u3082\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u3066\u3044\u308bExcel\u304c32bit\u306a\u3089\u5927\u4e08\u592b\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u73fe\u5728\u306eExcel\u304c\u3069\u306ebit\u304b\u306f\u3001\u300cExcel bit \u78ba\u8a8d\u300d\u306a\u3069\u306e\u8a9e\u53e5\u3067Web\u691c\u7d22\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<BR><BR><br \/>\n\u307e\u305f\u3001\u300c\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u304b\u3089\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u51fa\u3059\u65b9\u6cd5\u300d\u306f\u3001\u4e00\u822c\u7684\u306b\u306f\u4ee5\u4e0b\u306e5\u3064\u304c\u3042\u308a\u307e\u3059\u3002\uff08\u30d0\u30fc\u30b8\u30e7\u30f3\u6307\u5b9a\u304c\u306a\u3044\u3082\u306e\u306f\u5168\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u4f7f\u3048\u308b\u3068\u601d\u3063\u3066\u304f\u3060\u3055\u3044\u3002\uff09<br \/>\n(01)\u300cExecuteExcel4Macro\u300d\u3068\u3044\u3046\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\uff08VBA\u306a\u3089Application\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eExecuteExcel4Macro\u30e1\u30bd\u30c3\u30c9\u306b\u76f8\u5f53\uff09\u3092\u4f7f\u3046<br \/>\n(02)\u300cMicrosoft Query\u300d\u3068\u3044\u3046GUI\u306e\u6a5f\u80fd\u3092\u4f7f\u3046<br \/>\n(03)\u300cMicrosoft Query\u300d\u3092VBA\u5316\u3057\u305f\u3082\u306e\uff08\u3064\u307e\u308a\u30d7\u30ed\u30b0\u30e9\u30e0\uff09\u3092\u4f7f\u3046<br \/>\n\u30fb\u3059\u3079\u3066\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff0bODBC\u63a5\u7d9a\uff0bVBA\u300d\u304c\u4f7f\u3048\u308b<br \/>\n\u30fb2007\u4ee5\u964d\u306a\u3089\u300cQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff0bListObject\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff0bODBC\u63a5\u7d9a\uff0bVBA\u300d\u3082\u4f7f\u3048\u308b<br \/>\n\uff08\u300cListObject\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u300d\uff1d\u300c\u30c6\u30fc\u30d6\u30eb\u6a5f\u80fd\uff09\u306e\u3053\u3068\uff09<br \/>\n(04)\u300cDAO\uff0bOLEDB\u63a5\u7d9a\uff0bVBA\uff0bCopyFromRecordset\u30e1\u30bd\u30c3\u30c9\u300d\u3092\u4f7f\u3046\u3002\uff08\u4e3b\u306bxls\u5411\u3051\u3002xlsx\u3068xlsm\u306f\u3067\u304d\u308c\u3070\u4e0d\u53ef\u3002\uff09<br \/>\n(05)\u300cADO\uff0bOLEDB\u63a5\u7d9a\uff0bVBA\uff0bCopyFromRecordset\u30e1\u30bd\u30c3\u30c9\u300d\u3092\u4f7f\u3046\u3002\uff08xls\u3001xlsx\u3001xlsm\u5168\u90e8\u884c\u3051\u308b\uff09<br \/>\n<\/b><\/span><\/p>\n<p><span style=\"color: #0000ff;\"><b>\u203b\u53c2\u8003\u8a18\u4e8b<br \/>\nDAO\u3001ADO\u3001Microsoft Query\uff08ExcelVBA\u306eQueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u3001\u3067\u306f\u300c\u8aad\u307f\u8fbc\u307f\u300d\u3060\u3051\u3067\u306a\u304f\u3001<span style=\"color: #ff0000;\"><b>\u300c\u9589\u3058\u305f\u307e\u307e\u300d\u306e\u300c\u8907\u96d1\u6761\u4ef6\u96c6\u8a08\u300d\u3084\u300c\u66f8\u304d\u8fbc\u307f\u300d<\/b><\/span>\u3082\u3067\u304d\u307e\u3059\u3002<br \/>\n\u305f\u3060\u3057\u3001Excel\u306e\u5834\u5408\u306f\u306a\u3093\u3068\u300c\u524a\u9664\u300d\u304c\u3067\u304d\u306a\u3044\u306e\u3067\u5bfe\u5fdc\u7b56\u304c\u5fc5\u8981\u3067\u3059\u3002<br \/>\n\u5bfe\u5fdc\u7b56\u306f<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/dao-ado-msqry-qtobj-sql-can01#lbl_24\" target=\"_blank\" rel=\"noopener noreferrer\">\u3053\u3061\u3089\u3002\u300e\u3067\u304d\u306a\u3044\u3053\u3068\u300f<\/a>\u3002\uff08\u2190\u305d\u306e\u4ed6\u306e\u300c\u3067\u304d\u306a\u3044\u3053\u3068\u300d\u3082\u66f8\u3044\u3066\u3042\u308a\u307e\u3059\u3002\u306a\u304a\u3001\u300c\u3042\u3048\u3066\u524a\u9664\u3057\u306a\u3044\u300d\u3053\u3068\u3082\u7d50\u69cb\u3042\u308a\u307e\u3059\u3002\u4e0d\u6b63\u5bfe\u7b56\u3084\u6574\u5408\u6027\u7dad\u6301\u306e\u305f\u3081\u3067\u3059\u3002\u57fa\u672c\u3001\u524a\u9664\u30d5\u30e9\u30b0\u3092\u7acb\u3066\u308b\u3060\u3051\u3067\u3082\u5bfe\u5fdc\u3067\u304d\u307e\u3059\u3002\u3082\u3061\u308d\u3093\u3001\u8aad\u307f\u8fbc\u307f\u3060\u3051\u306b\u4f7f\u3063\u3066\u3082\u69cb\u3044\u307e\u305b\u3093\u3002\uff09<\/b><\/span><br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/read_n_write_by_dao-ado-01\" target=\"_blank\" rel=\"noopener noreferrer\">Excel2010\u3067\u3001\u300e \u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\u3084xlsx\u30fbxlsm\uff09\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf \u300f\u3092\u8aad\u307f\u8fbc\u3080\u3060\u3051\u3067\u306a\u304f\u3001\u66f8\u304d\u8fbc\u3080\u65b9\u6cd5\u306e\u4e00\u89a7\u8868\uff08DAO\u3084ADO\u306b\u3066\uff09<\/a><br \/>\n\u300e<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/sql-write-on-msqry01\" target=\"_blank\" rel=\"noopener noreferrer\">\uff5eSQL\u306b\u3066\u300c\u9589\u3058\u305fExcel\u30d5\u30a1\u30a4\u30eb\u3092 \u201d\u9589\u3058\u305f\u307e\u307e\u201d \u66f8\u304d\u8fbc\u3080\u65b9\u6cd501\u300d\uff5eMicrosoft Query\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u3092\u5229\u7528\u3059\u308b\u5834\u5408\uff5e<\/a>\u300f<br \/>\n\u300e<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/readby-ado-01\" target=\"_blank\" rel=\"noopener noreferrer\">ADO\uff1aExcel2010\u3067\u3001\u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\uff09\u30c7\u30fc\u30bf\u3092\u3067\u304d\u308b\u3060\u3051\u901f\u304f\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u30fc\u305d\u306e\uff12\uff08ADO\u306b\u3066\uff09<\/a>\u300f<br \/>\n\u300e<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/close-excel-file_write_5way01\" target=\"_blank\" rel=\"noopener noreferrer\">Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5e\u5225\u306e\u9589\u3058\u305fExcel\u30d5\u30a1\u30a4\u30eb\u3092 \u201d\u9589\u3058\u305f\u307e\u307e\u201d \u8aad\u307f\u8fbc\u307f\u3084\u66f8\u304d\u8fbc\u3092\u3059\u308b\u65b9\u6cd5\uff5e\uff15\u3064<\/a>\u300f<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u76ee\u6b21<br \/>\n<span style=\"font-size: 9pt;\"> \u3000<a href=\"#lbl_3\">\u2605 \u306f\u3058\u3081\u306b<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000<a href=\"#lbl_48\">\u2605 \u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u3092DAO\u3067\u8aad\u307f\u8fbc\u3093\u3067\u3001VBEditor\u306e\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u4e00\u89a7\u8868\u793a\u3059\u308b<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000<a href=\"#lbl_157\">\u2605 \u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u3092DAO\u3067\u8aad\u307f\u8fbc\u3093\u3067\u3001\u5225\u306e\u30b7\u30fc\u30c8\u306b\u8ee2\u8a18\u3059\u308b<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000<a href=\"#lbl_320\">\u2605 Excel2010\uff1a\u52d5\u7684\u306a\u8868\u3067\u306f\u306a\u3044\u3001\u591a\u6bb5\u7684\u306a\u30af\u30ed\u30b9\u96c6\u8a08\u8868\u3092\u8aad\u307f\u8fbc\u3081\u308b\u304b\u3069\u3046\u304b\uff1f<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000<a href=\"#lbl_320\">1\u30b7\u30fc\u30c8\u306b\u8907\u6570\u306e\u8868\u304c\u3042\u308b\u5834\u5408\u306b\u8aad\u307f\u8fbc\u3081\u308b\u304b\u3069\u3046\u304b\uff1f<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_324\">(00)\u7d50\u8ad6<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_326\">(01)\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3068\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_341\">(02)\u8aad\u307f\u8fbc\u307f\u6642\u306e\u5217\u540d\u306b\u3064\u3044\u3066<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_392\">(03)\u8aad\u307f\u8fbc\u307f\u6642\u306e\u884c\u306e\u4f4d\u7f6e\u306b\u3064\u3044\u3066<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_408\">(04)\u8aad\u307f\u8fbc\u307f\u6642\u306e\u5217\u3068\u884c\u306b\u3064\u3044\u3066\u306e\u5c11\u3057\u306e\u307e\u3068\u3081<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_430\">(05)\u203b\u88dc\u8db3\uff1a\u300cF1\u300d\u300cF2\u300d\u300cF3\u300d\u300cF4\u300d\u30fb\u30fb\u30fb\u3068\u3044\u3046\u5217\u540d\u306f\u672c\u5f53\u306f\u8ab0\u304c\u6c7a\u3081\u308b\u306e\u304b\uff1f<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_440\">(06)\u5217\u3068\u884c\u3067\u30af\u30ed\u30b9\u3059\u308b\uff11\u3064\u306e\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u305f\u3044\u3068\u304d\u306e\u304a\u304a\u307e\u304b\u306a\u6d41\u308c<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_445\">(07)\u5217\u3068\u884c\u304c\u30af\u30ed\u30b9\u3059\u308b\uff11\u3064\u306e\u30bb\u30eb\u306e\u5024\u306e\u8aad\u307f\u8fbc\u307f\u2192\u300cExecuteExcel4Macro\u300d\u3082\u8996\u91ce\u306b\u3002<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000 \u3000\u3000<a href=\"#lbl_470\">(08)\u540c\u3058\u30b3\u30fc\u30c9\u3067\u4eee\u60f3\u30de\u30b7\u30f3\u306e\u300cWin2000\uff0bExcel2000\u300d\u3067\u3082\u8a66\u3057\u3066\u307f\u305f\u7d50\u679c<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000<a href=\"#lbl_474\">\u2605 LAN\u3067\u3064\u306a\u304c\u3063\u305f\u30d5\u30a1\u30a4\u30eb\u30b5\u30fc\u30d0\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u306b\u884c\u304f\u30c6\u30b9\u30c8<\/a><\/SPAN><br \/>\n<span style=\"font-size: 9pt;\"> \u3000<a href=\"#lbl_480\">\u2605 \u300c\u5916\u90e8\u30c6\u30fc\u30d6\u30eb\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u304c\u6b63\u3057\u304f\u3042\u308a\u307e\u305b\u3093\u300d\u30a8\u30e9\u30fc\u304c\u51fa\u305f\u308a\u3057\u305f\u5834\u5408\u306e\u5bfe\u51e6<\/a><\/SPAN><\/p>\n<p>\u203bShift\uff0bTAB\u30ad\u30fc\u3001\u3082\u3057\u304f\u306f\u3001Home\u30ad\u30fc\u3001Home\u30ad\u30fc\uff0bTAB\u6570\u56de\u3001\u3092\u62bc\u3059\u3068\u3001\u76ee\u6b21\u4ed8\u8fd1\u306b\u623b\u308c\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><a name=\"lbl_3\">\u2605 \u306f\u3058\u3081\u306b<\/a><\/p>\n<p>\u300c32bit\u306e\u300dExcel\u30d5\u30a1\u30a4\u30eb\u306e\u5024\u3092\u3001\u305d\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304b\u305a\u306b\u8aad\u307f\u306b\u884c\u304f\u65b9\u6cd5\u3067\u3059\u3002<\/p>\n<p>\uff08\u300c64bit\u306e\u300dExcel\u3067\u306fDAO\u306f\u4f7f\u3048\u306a\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\uff08\u672a\u78ba\u8a8d\u3067\u3059\u3002\uff09\u305d\u306e\u5834\u5408\u306fADO\u3067\u3084\u308b\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u3002\u2192<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/readby-ado-01\" target=\"_blank\" rel=\"noopener noreferrer\">\u3053\u3061\u3089<\/a>\u3001\u3067\u30c6\u30b9\u30c8\u3057\u307e\u3057\u305f\u304c\u3001\u3053\u308c\u306f32bitExcel\u3067\u3084\u3063\u305f\u30c6\u30b9\u30c8\u3067\u3059\u306e\u3067\u300164bit\u3060\u3068\u307e\u305f\u5fae\u5999\u306b\u3061\u304c\u3046\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u3054\u53c2\u8003\u306b\u3068\u3069\u3081\u308b\u3060\u3051\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\uff09<\/p>\n<p>\u9589\u3058\u305f\u307e\u307e\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\u3001\u300cExecuteExcel4Macro\u300d\u3092\u4f7f\u3063\u305f\u308a\u3001\u300cExcel.Application\u300d\u306a\u3069\u3067\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u304c\u3042\u308b\u3088\u3046\u306a\u306e\u3067\u3059\u304c\u3001\u4ee5\u4e0b\u306e\u30b5\u30a4\u30c8\u306b\u3088\u308a\u307e\u3059\u3068\u3001\u30c7\u30fc\u30bf\u306e\u91cf\u304c\u591a\u3044\u3068\u901f\u5ea6\u304c\u9045\u304f\u306a\u308b\uff1f\u307f\u305f\u3044\u3067\u3059\u3002<br \/>\n<a href=\"http:\/\/excel-ubara.com\/excelvba5\/EXCELVBA242.html\" target=\"_blank\" rel=\"noopener noreferrer\">http:\/\/excel-ubara.com\/excelvba5\/EXCELVBA242.html<\/a><\/p>\n<p>\u3068\u3044\u3046\u308f\u3051\u3067\u3001DAO\u3068\u304bADO\u306a\u3069\u306e\u30df\u30c9\u30eb\u30a6\u30a7\u30a2\u3092\u4f7f\u3046\u65b9\u6cd5\u3067\u8a66\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<p>\u30df\u30c9\u30eb\u30a6\u30a7\u30a2\u3068\u306f\u3001\u79c1\u3082\u3088\u304f\u308f\u304b\u3063\u3066\u3044\u306a\u3044\u306e\u3067\u3059\u307f\u307e\u305b\u3093\u304c\u3001\u4f8b\u3048\u3070Excel\u3084Acess\u306a\u3069\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u30bd\u30d5\u30c8\u3068\u3001SQL Server\u3084JET\u30a8\u30f3\u30b8\u30f3\u3001\u30aa\u30e9\u30af\u30eb\u3001MySQL\u3068\u3044\u3063\u305f\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30b7\u30b9\u30c6\u30e0\u306a\u3069\u3068\u306e\u9593\u306b\u7acb\u3063\u3066\u3001\u304a\u4e92\u3044\u306e\u4ed5\u69d8\u306e\u9055\u3044\u3092\u300c\u306a\u304b\u3063\u305f\u3082\u306e\u300d\u3068\u3057\u3066\u30c7\u30fc\u30bf\u3092\u3084\u308a\u53d6\u308a\u3055\u305b\u3066\u304f\u308c\u308b\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u306e\u3053\u3068\u30fb\u30fb\u30fb\u3068\u5927\u96d1\u628a\u306b\u306f\u7406\u89e3\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u307f\u306a\u3089\u305a\u3001\u4e2d\u9593\u306b\u4f4d\u7f6e\u3057\u3066\u306a\u3093\u3089\u304b\u306e\u4fbf\u5b9c\u3092\u53d6\u308a\u8a08\u3089\u3063\u3066\u304f\u308c\u308b\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u5168\u822c\u3068\u304b\u30fb\u30fb\u30fb\u3002<\/p>\n<p>ODBC\u3082\u30df\u30c9\u30eb\u30a6\u30a7\u30a2\u306e\u4e00\u7a2e\u3089\u3057\u3044\u3067\u3059\u3002<\/p>\n<p>\u305d\u3093\u306a\u611f\u3058\u3067\u3059\u3002<\/p>\n<p>\u4ee5\u4e0b\u306e\u30b5\u30a4\u30c8\u304c\u56f3\u89e3\u3067\u308f\u304b\u308a\u3084\u3059\u304b\u3063\u305f\u306e\u3067\u3054\u53c2\u8003\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u30fb\u300c\u9593\u9055\u3044\u3060\u3089\u3051\u306e\u30c7\u30fc\u30bf\u30a2\u30af\u30bb\u30b9\u300d\u304b\u3089\u8131\u5374\u3059\u308b\u305f\u3081\u306b   \u30df\u30c9\u30eb\u30a6\u30a7\u30a2<br \/>\n<a href=\"http:\/\/www.int21.co.jp\/directmw\/DirectMw.html\" target=\"_blank\" rel=\"noopener noreferrer\">http:\/\/www.int21.co.jp\/directmw\/DirectMw.html\" target=\"_blank<\/a><\/p>\n<p>\u3061\u306a\u307f\u306b\u3067\u3059\u304c\u3001DAO\u3084ADO\u3092\u4f7f\u3046\u3068\u3001\u5177\u4f53\u7684\u306b\u306f\u3001\u305d\u308c\u7d4c\u7531\u3067 Access\/SQL Server\/\u30aa\u30e9\u30af\u30eb\/MySQL\u3001\u306a\u3069\u306e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306b\u30a2\u30af\u30bb\u30b9\u3057\u3001\u305d\u306e\u30c7\u30fc\u30bf\u3092Excel\u30b7\u30fc\u30c8\u306b\u5438\u3044\u8fbc\u3080\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\u3082\u3061\u308d\u3093\u3001\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u884c\u304f\u5bfe\u8c61\u306f\u540c\u3058\u304fExcel\u30d5\u30a1\u30a4\u30eb\u3067\u3082OK\u3067\u3059\u3057\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306a\u3069\u3067\u3082\u5927\u4e08\u592b\u3067\u3059\u3002<\/p>\n<p>\u305d\u3046\u3044\u3063\u305f\u3053\u3068\u304c\u3067\u304d\u308b\u3053\u3068\u306f\u4ee5\u524d\u304b\u3089\u77e5\u3063\u3066\u306f\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u5b9f\u969b\u306b\u4f7f\u3063\u3066\u3044\u305f\u306e\u306fAccess\u4e0a\u3067\u3070\u304b\u308a\u3067\u3001Excel\u306e\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u306b\u3044\u3063\u305f\u3053\u3068\u304c\u7121\u304b\u3063\u305f\u306e\u3067\u3001\u4eca\u56de\u8a66\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p>\u3061\u3087\u3063\u3068\u30c6\u30b9\u30c8\u3057\u3066\u307f\u305f\u3089\u3001\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u8d8a\u3057\uff08UNC\u30d1\u30b9\uff09\u306e\u3069\u3053\u304b\u5411\u3053\u3046\u5074\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u4e2d\u8eab\u3092\u8aad\u307f\u306b\u884c\u304f\u306b\u3082\u305d\u3053\u305d\u3053\u901f\u3044\u307f\u305f\u3044\u306a\u306e\u3067\u3001\u3054\u7d39\u4ecb\u3057\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002\uff08\u901f\u304f\u306a\u304b\u3063\u305f\u3089\u3054\u3081\u3093\u306a\u3055\u3044\uff09<\/p>\n<p>\u5b9f\u969b\u3001\u50d5\u81ea\u8eab\u306e\u8077\u5834\u3067\u3082\u3001ExecuteExcel4Macro\u3067\u306e\u51e6\u7406\u3068\u6bd4\u3079\u308b\u306810\u500d\u4ee5\u4e0a\u306f\u901f\u304f\u306a\u3063\u305f\u6c17\u304c\u3057\u307e\u3059\u3002<br \/>\n\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u8d8a\u3057\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e100\u500b\u304f\u3089\u3044\u306e\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u8fbc\u3080\u306e\u306b\u3001\u4f53\u611f\u30670.5\uff5e1\u79d2\u304f\u3089\u3044\u3067\u3057\u305f\u3002<\/p>\n<p>\u4eca\u306fDAO\u3088\u308a\u3082ADO\u3092\u4f7f\u3046\u307b\u3046\u304c\u666e\u901a\u3060\u3068\u601d\u3044\u307e\u3059\u304c\uff08\u306a\u306e\u304b\u306a\uff1f\uff1f\uff09\u3001\u3042\u3048\u3066\u3001\u53e4\u3044\u307b\u3046\u306eDAO\u304c\u4f7f\u3048\u306a\u3044\u304b\u30c6\u30b9\u30c8\u3057\u3066\u307f\u307e\u3057\u305f\u3002Excel2000\u3001Access2000\u3068\u3082\u306b\u3001\u3069\u3061\u3089\u3067\u3082DAO\u306f\u4f7f\u3048\u308b\u306e\u3067\u3059\u304c\u30012010\u306a\u3069\u306e\u65b0\u3057\u3044Excel\u3067\u3082\u53e4\u3044\u6280\u8853\u306eDAO\u304c\u4f7f\u3048\u308b\u306e\u304b\u304c\u7591\u554f\u3060\u3063\u305f\u306e\u3067\u30fb\u30fb\u30fb\u3002<br \/>\n\u3042\u3068\u3001\u50d5\u81ea\u8eab\u3001Access\u3067\u3082DAO\u3057\u304b\u4f7f\u3063\u305f\u3053\u3068\u304c\u306a\u3044\u3068\u3044\u3046\u60c5\u3051\u306a\u3044\u72b6\u6cc1\u3060\u3063\u305f\u306e\u3067\u305d\u308c\u3082\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u7d50\u679c\u3001\u4e00\u5fdc\u3001DAO\u3082\u52d5\u304f\u307f\u305f\u3044\u3067\u3059\u3002\uff08\u305f\u3060\u3057\u65b0\u3057\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u306eExcel\u306f 32bit\u7248\u306eExcel\u3060\u3051\u304b\u3082\uff1f\uff1f64bitOS\u3067\u3082\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u305fExcel\u304c32bit\u7248\u306a\u3089DAO\u3082\u52d5\u304f\u307f\u305f\u3044\u3067\u3059\u300264bit\u7248\u306e\u30aa\u30d5\u30a3\u30b9\u306a\u3089ADO\u3057\u304b\u52d5\u304b\u306a\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u3054\u81ea\u8eab\u3067\u3082\u8abf\u3079\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\uff09<\/p>\n<p>\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u4ee5\u964d\u3001\u30c6\u30b9\u30c8\u5185\u5bb9\u3067\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_48\">\u2605 \u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u3092DAO\u3067\u8aad\u307f\u8fbc\u3093\u3067\u3001VBEditor\u306e\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u4e00\u89a7\u8868\u793a\u3059\u308b<\/a><\/p>\n<p>\u307e\u305a\u3001D:\\DAO\u30c6\u30b9\u30c8.xls \u3092\u4f5c\u6210\u3057\u307e\u3059\u3002<\/p>\n<p>Sheet1\u306eA1\u304b\u3089C11\u306b\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u5024\u3092\u5165\u529b\u3057\u307e\u3059\u3002<br \/>\n\u300c\u6c0f\u540d\u300d\u300c\u5e74\u9f62\u300d\u300c\u6027\u5225\u300d\u306fA1\u3001B1\u3001C1\u3001\u306b\u5165\u529b\u3057\u307e\u3059\u3002<br \/>\n\u305d\u308c\u4ee5\u964d\u306b\u5404\u5024\u3092\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u306a\u3069\u3067\u5165\u529b\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n\u6c0f\u540d\t\u5e74\u9f62\t\u6027\u5225\r\n1\t20\t\u7537\r\n2\t21\t\u7537\r\n3\t22\t\u7537\r\n4\t23\t\u7537\r\n5\t24\t\u7537\r\n6\t25\t\u7537\r\n7\t26\t\u5973\r\n8\t27\t\u5973\r\n9\t28\t\u5973\r\n10\t29\t\u5973\r\n\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<br \/>\n\u6b21\u306b\u3001\u5225\u306e xls\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u6210\u3057\u3066Visual Basic Editor \u3092\u958b\u304d\u307e\u3059\u3002<br \/>\n\u30c4\u30fc\u30eb\u2192\u53c2\u7167\u8a2d\u5b9a\u3001\u306b\u3066\u3001\u300cMicrosoft DAO 3.6 Object Library\u300d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066OK\u3057\u307e\u3059\u3002<br \/>\n\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\uff11\u3064\u3001\u633f\u5165\u3057\u307e\u3059\u3002<br \/>\n\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30da\u3057\u3066\u3001\u5b9f\u884c\u3057\u307e\u3059\u3002<\/p>\n<p>\u203b\u300cxlFName = \"D:\\DAO\u30c6\u30b9\u30c8.xls\"\u300d\u306e \"D:\\DAO\u30c6\u30b9\u30c8.xls\" \u306e\u90e8\u5206\u306f\u3001UNC\u30d1\u30b9\u3067\u3082OK\u3067\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n\r\nOption Explicit\r\nPrivate Sub ReadByDao01()\r\n'\u53c2\u7167\u8a2d\u5b9a\u3067Microsoft DAO 3.6 Object Library \u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304f\u3002\r\n'\u3053\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u300cD:\\DAO\u30c6\u30b9\u30c8.xls\u300d\u3068\u3057\u3066\u914d\u7f6e\r\n\r\n    Dim DB           As DAO.Database\r\n    Dim RS           As DAO.Recordset\r\n    Dim xlFName      As String\r\n    Dim SheetName    As String\r\n    Dim StrData01    As String\r\n\r\n\r\n    '\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb\u540d\u5b9a\u7fa9\u3001\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u5b9a\u7fa9\r\n    xlFName = \"D:\\DAO\u30c6\u30b9\u30c8.xls\"\r\n    SheetName = \"Sheet1$\"  '\u300cSheet1\u300d\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u3002\r\n                           '\u300c$\u300d\u3092\u4ed8\u3051\u308b\u3068\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306b\u306a\u308b\u3002\r\n   \r\n   \r\n    '\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9(xlFName)\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\uff08\u3053\u3053\u3067\u306fxls\u30d5\u30a1\u30a4\u30eb\uff09\r\n    'HDR=NO \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3057\u305f\u3068\u304d\u306f\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u3080\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u3082\u30c6\u30ad\u30b9\u30c8\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\r\n    'HDR=YES \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3057\u305f\u3068\u304d\u306f\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u307e\u306a\u3044\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u306f\u6570\u5024\u3001\u6587\u5b57\u5217\u306f\u6587\u5b57\u5217\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\r\n    'IMEX=1\u2192\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u30bb\u30eb\u66f8\u5f0f\u306e\u5024\u3067\u30c7\u30fc\u30bf\u3092\u5438\u3044\u8fbc\u3080\u3002\uff08\u4eca\u56de\u306e\u30c6\u30b9\u30c8\u3067\u306f\u5b8c\u5168\u306b\u306f\u305d\u3046\u306f\u306a\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002\u3088\u304f\u308f\u304b\u308a\u307e\u305b\u3093\u3002\uff09\r\n    '        \u305f\u3060\u3057\u3001https:\/\/support.microsoft.com\/ja-jp\/help\/194124\/prb-excel-values-returned-as-null-using-dao-openrecordset\r\n    '        \u3084 http:\/\/blog.sorceryforce.net\/?p=154 \u3092\u53c2\u7167\r\n    'Excel 8.0\u2192\u300cVBA Excel \u30d0\u30fc\u30b8\u30e7\u30f3\u756a\u53f7\u300d\u3067Google\u691c\u7d22\u3002\r\n    '            8.0\u30672000\u3067\u30822010\u3067\u3082\u52d5\u3044\u305f\u3002\r\n    \r\n    '   Set DB = OpenDatabase(xlFName, False, False, \"Excel 8.0;HDR=NO;IMEX=1\")\r\n    Set DB = OpenDatabase(xlFName, False, False, \"Excel 8.0;HDR=YES;IMEX=1\")\r\n\r\n\r\n\r\n    '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u5b9a\u7fa9\r\n    Set RS = DB.OpenRecordset(SheetName)\r\n   \r\n   \r\n   \r\n    '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u306e\u6700\u7d42\u30ec\u30b3\u30fc\u30c9\u307e\u3067\u3092\u8aad\u8fbc\u3080\r\n    'EOF\u306f\u30b7\u30fc\u30c8\u306e\u6700\u5f8c\u3058\u3083\u306a\u304f\u3066\u3001\u30ec\u30b3\u30fc\u30c9\u3068\u3057\u3066\u5165\u529b\u3055\u308c\u305f\u6700\u7d42\u884c\r\n    Do Until RS.EOF\r\n   \r\n        With RS 'A\u5217\u30fbB\u5217\u30fbC\u5217\u306e\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\r\n      \r\n        '\u300cHDR=NO\u300d\uff1d1\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u306a\u3044\u5834\u5408\u305d\u306e1\u2192\u5217\u540d\u3092\u300cIndex\u756a\u53f7\u300d\u3067\u8868\u73fe\u3057\u3066\u5909\u6570\u306b\u5438\u3044\u8fbc\u3080\r\n'        StrData01 = StrData01 & .Fields(0) & vbTab & .Fields(1) & vbTab & .Fields(2) & vbCrLf\r\n\r\n        '\u300cHDR=NO\u300d\uff1d1\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u306a\u3044\u5834\u5408\u305d\u306e2\u2192\u5217\u540d\u3092\u300c\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u306e\u5217\u540d\u300d\u3067\u8868\u73fe\u3057\u3066\u5909\u6570\u306b\u5438\u3044\u8fbc\u3080\r\n'        StrData01 = StrData01 & .Fields(\"F1\") & vbTab & .Fields(\"F2\") & vbTab & .Fields(\"F3\") & vbCrLf\r\n         \r\n        '\u300cHDR=YES\u300d\uff1d1\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u5834\u5408\u2192\u5217\u540d\u30921\u884c\u76ee\u306e\u300c\u30bb\u30eb\u306e\u5217\u540d\u300d\u3067\u8868\u73fe\u3057\u3066\u5909\u6570\u306b\u5438\u3044\u8fbc\u3080\r\n        StrData01 = StrData01 & .Fields(\"\u6c0f\u540d\") & vbTab & .Fields(\"\u5e74\u9f62\") & vbTab & .Fields(\"\u6027\u5225\") & vbCrLf\r\n         \r\n        .MoveNext  '\u6b21\u306e\u30ec\u30b3\u30fc\u30c9\uff08\u884c\uff09\u306b\u79fb\u52d5\r\n         \r\n        End With\r\n      \r\n    Loop\r\n   \r\n   \r\n   \r\n    Debug.Print StrData01\r\n    \r\n   \r\n    RS.Close\r\n    DB.Close\r\n    Set RS = Nothing\r\n    Set DB = Nothing\r\n   \r\nEnd Sub\r\n\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_157\">\u2605 \u30c6\u30b9\u30c8\u30c7\u30fc\u30bf\u3092DAO\u3067\u8aad\u307f\u8fbc\u3093\u3067\u3001\u5225\u306e\u30b7\u30fc\u30c8\u306b\u8ee2\u8a18\u3059\u308b<\/a><\/p>\n<p>\u3067\u306f\u6b21\u306b\u3001\"D:\\DAO\u30c6\u30b9\u30c8.xls\" \u306eSheet2\u306b\u3082\u4f55\u3089\u304b\u306e\u30c7\u30fc\u30bf\u3092\u66f8\u304d\u3001\u305d\u308c\u3092\u307e\u305f\u5225\u306eExcel\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u8aad\u307f\u3053\u3093\u3067\u3001\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u306eSheet1\u306b\u8ee2\u8a18\u3059\u308b\u30c6\u30b9\u30c8\u3082\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<p>\u3067\u306f\u3001\u307e\u305a\u3001\"D:\\DAO\u30c6\u30b9\u30c8.xls\" \u306eSheet2\u306b\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u30c7\u30fc\u30bf\u3092\u5165\u529b\u3057\u307e\u3059\u3002<br \/>\n\u3053\u308c\u3082\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u3067\u30c6\u30ad\u30c8\u30fc\u3067\u3044\u3044\u3067\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n\r\n\u6c0f\u540d\t\u5e74\u9f62\t\u6027\u5225\r\n100\t10\t\u5973\r\n101\t21\t\u5973\r\n102\t32\t\u5973\r\n103\t43\t\u5973\r\n104\t54\t\u7537\r\n105\t65\t\u7537\r\n106\t76\t\u5973\r\n107\t87\t\u5973\r\n108\t98\t\u7537\r\n109\t109\t\u5973\r\n\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u3067\u304d\u305f\u3089\u3001\u305d\u306e\u30b7\u30fc\u30c8\u306e\u540d\u524d\u3092\u3001\u300c\u8aad\u307f\u8fbc\u307f\u30c6\u30b9\u30c8\u300d\u3068\u3044\u3046\u540d\u524d\u306b\u5909\u3048\u307e\u3059\u3002<br \/>\n\u305d\u308c\u3082\u3067\u304d\u305f\u3089\u3001\u307e\u3063\u305f\u304f\u5225\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306eVisual Basic Editor \u3092\u958b\u304d\u307e\u3059\u3002<br \/>\n\u30c4\u30fc\u30eb\u2192\u53c2\u7167\u8a2d\u5b9a\u3001\u306b\u3066\u3001\u300cMicrosoft DAO 3.6 Object Library\u300d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\u3002<br \/>\n\u305d\u306e\u5f8c\u3001\u633f\u5165\u2192\u3072\u3087\u3058\u3085\u3093\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u3066\u3001\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u30921\u500b\u633f\u5165\u3057\u3066\u3001\u305d\u3053\u306b\u4ee5\u4e0b\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30da\u3057\u3066\u5b9f\u884c\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<p>\u203b\u300cxlFName = \"D:\\DAO\u30c6\u30b9\u30c8.xls\"\u300d\u306e \"D:\\DAO\u30c6\u30b9\u30c8.xls\" \u306e\u90e8\u5206\u306f\u3001UNC\u30d1\u30b9\u3067\u3082OK\u3067\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n\r\nOption Explicit\r\n\r\nPrivate Sub ReadByDao02()\r\n'VBE\u753b\u9762\u306e\u30c4\u30fc\u30eb\u2192\u53c2\u7167\u8a2d\u5b9a\u3001\u306b\u3066\u3001\u300cMicrosoft DAO 3.6 Object Library\u300d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\u3002\r\n'\u300cAS Object\uff08\u30ec\u30a4\u30c8\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\uff1d\u5b9f\u884c\u6642\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\uff09\u300d\u3092\u4f7f\u3048\u3070\u3001\u53c2\u7167\u8a2d\u5b9a\u3057\u306a\u304f\u3066\u3082\u5927\u4e08\u592b\u306a\u65b9\u6cd5\u3082\u4f7f\u3048\u307e\u3059\u3002\r\n'\u305f\u3060\u3001\u521d\u5fc3\u8005\u306e\u65b9\u306f\u3001\u30a4\u30f3\u30c6\u30ea\u30bb\u30f3\u30b9\u6a5f\u80fd\u3092\u4f7f\u3048\u308b\u3088\u3046\u306b\u3001\u53c2\u7167\u8a2d\u5b9a\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u308b\u65b9\u6cd5\u3092\u304a\u3059\u3059\u3081\u3057\u307e\u3059\u3002\r\n\r\n    Dim DB          As DAO.Database      '\u8aad\u8fbc\u5bfe\u8c61\u306eXLS\u30d5\u30a1\u30a4\u30eb\u306eDAO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\u306e\u5909\u6570\r\n    Dim RS          As DAO.Recordset     '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u306eDAO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\u306e\u5909\u6570\r\n    Dim SrcXLFName  As String            '\u8aad\u8fbc\u5bfe\u8c61\u306eXLS\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u683c\u7d0d\u7528\u306e\u5909\u6570\r\n    Dim SrcSHTName  As String            '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u540d\u306e\u683c\u7d0d\u7528\u306e\u5909\u6570\r\n    \r\n    Dim WS01        As Worksheet         '\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf\u8ee2\u8a18\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u3092\u683c\u7d0d\uff08\uff1d\u6307\u5b9a\uff09\u3059\u308b\u305f\u3081\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\r\n    Dim i           As Integer           '\u305d\u306e\u30b7\u30fc\u30c8\u306e\u884c\u6570\u3092\u8868\u3059\u305f\u3081\u306e\u5909\u6570\r\n    \r\n    \r\n\r\n    '\u8aad\u8fbc\u5bfe\u8c61\u3068\u3057\u305f\u3044XLS\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3059\u308b\r\n    SrcXLFName = \"D:\\DAO\u30c6\u30b9\u30c8.xls\"\r\n\r\n    '\u8aad\u8fbc\u5bfe\u8c61\u3068\u3057\u305f\u3044\u30b7\u30fc\u30c8\u3092\u6307\u5b9a\u3059\u308b\r\n    SrcSHTName = \"\u8aad\u307f\u8fbc\u307f\u30c6\u30b9\u30c8$\"       '\u300c\u8aad\u307f\u8fbc\u307f\u30c6\u30b9\u30c8\u300d\u30b7\u30fc\u30c8\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u3002\r\n                                         '\u300c$\u300d\u3092\u4ed8\u3051\u308b\u3068\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306b\u306a\u308b\u3002\r\n   \r\n    \r\n       \r\n    '\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb(SrcXLFName)\u3092\u958b\u304f\u3002\u3053\u3053\u3067\u306fxls\u30d5\u30a1\u30a4\u30eb\u3002\uff08\uff1dDAO\u3068\u3057\u3066\u306e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u5b9a\u7fa9\u3065\u3051\uff09\r\n    'HDR=NO \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3057\u305f\u3068\u304d\u306f\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u3080\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u3082\u30c6\u30ad\u30b9\u30c8\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\r\n    'HDR=YES \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3057\u305f\u3068\u304d\u306f\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u307e\u306a\u3044\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u306f\u6570\u5024\u3001\u6587\u5b57\u5217\u306f\u6587\u5b57\u5217\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\uff08\u5217\u540d\u3092\u8aad\u307f\u305f\u304f\u306a\u3044\u5834\u5408\u306a\u3069\uff09\r\n    'IMEX=1\u2192\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u30bb\u30eb\u66f8\u5f0f\u306e\u5024\u3067\u30c7\u30fc\u30bf\u3092\u5438\u3044\u8fbc\u3080\u3002\uff08\u4eca\u56de\u306e\u30c6\u30b9\u30c8\u3067\u306f\u5b8c\u5168\u306b\u306f\u305d\u3046\u306f\u306a\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002\u3088\u304f\u308f\u304b\u308a\u307e\u305b\u3093\u3002\uff09\r\n    'Excel 8.0\u2192\u300cVBA Excel \u30d0\u30fc\u30b8\u30e7\u30f3\u756a\u53f7\u300d\u3067Google\u691c\u7d22\u3002\u300c8.0\u300d\u30672000\u3067\u30822010\u3067\u3082\u52d5\u3044\u305f\u3002\r\n    \r\n    Set DB = OpenDatabase(SrcXLFName, False, False, \"Excel 8.0;HDR=YES;IMEX=1\")\r\n\r\n\r\n\r\n    '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u3092\u958b\u304f\u3002\uff08DAO\u3068\u3057\u3066\u306e\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u5b9a\u7fa9\u3065\u3051\uff09\r\n    Set RS = DB.OpenRecordset(SrcSHTName)\r\n   \r\n    \r\n    \r\n    Set WS01 = Worksheets(\"Sheet1\")            '\u30c7\u30fc\u30bf\u3092\u5438\u3044\u8fbc\u3080\u30b7\u30fc\u30c8\u306e\u5b9a\u7fa9\uff08\u30c7\u30fc\u30bf\u3092\u8ee2\u8a18\u3059\u308b\u30b7\u30fc\u30c8\u306e\u5b9a\u7fa9\u3065\u3051\uff09\r\n    i = 2                                      '\u5217\u540d\u306e\u3053\u3068\u3092\u8003\u3048\u3066\u3001\r\n                                               '\u8aad\u307f\u8fbc\u307f\u30c7\u30fc\u30bf\u3092 2\u884c\u76ee\u304b\u3089\u5165\u529b\u3057\u305f\u3044\u5834\u5408\u306f 2\u3068\u3059\u308b\u3002\r\n                                               '\u300cHDR=NO\u300d\u306b\u3057\u305f\u3068\u304d\u3001\u5217\u540d\u3082\u8aad\u307f\u8fbc\u3093\u3067\r\n                                               '1\u884c\u76ee\u304b\u3089\u5165\u529b\u3057\u305f\u3044\u306a\u3089 1\u3068\u3059\u308b\r\n                                               '\u3053\u3053\u3067\u306f\u524d\u8005\u3067\u30c6\u30b9\u30c8\u3057\u3066\u307e\u3059\u3002\r\n   \r\n    WS01.Range(\"A2:C30\").ClearContents         '\u8aad\u307f\u8fbc\u307f\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u884c\u6570\u304c\u5897\u6e1b\u3059\u308b\u3068\u3044\u3051\u306a\u3044\u306e\u3067\u3001\r\n                                               '\u4e00\u5fdc\u3001\u8ee2\u8a18\u3059\u308b\u30b7\u30fc\u30c8\u3092\u304d\u308c\u3044\u306b\u7a7a\u767d\u3057\u3066\u304a\u304f\u3002\r\n                                               '\u524d\u56de\u3088\u308a\u30c7\u30fc\u30bf\u884c\u6570\u304c\u5c11\u306a\u3044\u3068\u3001\u524d\u56de\u306e\u30c7\u30fc\u30bf\u304c\u6b8b\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u3002\r\n   \r\n    '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\uff08\u30b7\u30fc\u30c8\uff09\u306e\u6700\u7d42\u30ec\u30b3\u30fc\u30c9\u307e\u3067\u3092\u8aad\u8fbc\u3080\r\n    'EOF\u306f\u30b7\u30fc\u30c8\u306e\u6700\u5f8c\u3058\u3083\u306a\u304f\u3066\u3001\u30ec\u30b3\u30fc\u30c9\u3068\u3057\u3066\u5165\u529b\u3055\u308c\u305f\u6700\u7d42\u884c\r\n    Do Until RS.EOF\r\n   \r\n        With RS \r\n\r\n        'Sheet1\u306e A\u5217\u30fbB\u5217\u30fbC\u5217\u306b\u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092\u8ee2\u8a18\r\n        WS01.Range(\"A\" & i) = .Fields(\"\u6c0f\u540d\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300c\u6c0f\u540d\u300d\u5217\u306e\u5024\u3092\u300cA\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n        WS01.Range(\"B\" & i) = .Fields(\"\u5e74\u9f62\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300c\u5e74\u9f62\u300d\u5217\u306e\u5024\u3092\u300cB\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n        WS01.Range(\"C\" & i) = .Fields(\"\u6027\u5225\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300c\u6027\u5225\u300d\u5217\u306e\u5024\u3092\u300cC\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n         \r\n        .MoveNext  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\uff08\u8aad\u8fbc\u30c7\u30fc\u30bf\u5074)\u3092\u6b21\u306e\u30ec\u30b3\u30fc\u30c9\uff08\u884c\uff09\u306b\u79fb\u52d5\r\n         \r\n        End With\r\n        \r\n        i = i + 1  '\u81ea\u30d5\u30a1\u30a4\u30eb\u5074\uff08Excel\u30d5\u30a1\u30a4\u30eb\u5074\uff09\u3082\u6b21\u306e\u884c\u306b\u79fb\u52d5\r\n        \r\n    Loop\r\n      \r\n   \r\n    RS.Close\r\n    DB.Close\r\n    Set RS = Nothing\r\n    Set DB = Nothing\r\n   \r\nEnd Sub\r\n\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>Sheet1\u306b\u3046\u307e\u304f\u8aad\u307f\u8fbc\u3081\u305f\u3067\u3057\u3087\u3046\u304b\uff1f<br \/>\n\u3053\u306e\u30b3\u30fc\u30c9\u3067\u306f\u5217\u540d\u306f\u8aad\u307f\u8fbc\u307e\u306a\u3044\u8a2d\u5b9a\u306b\u306a\u3063\u3066\u3044\u308b\u306e\u3067\u30011\u884c\u76ee\u306f\u7a7a\u767d\u3067\u3059\u304c\u30012\u884c\u76ee\u304b\u3089\u3061\u3083\u3093\u3068\u8ee2\u8a18\u3055\u308c\u3066\u3044\u308c\u3070\u6210\u529f\u3067\u3059\u3002<\/p>\n<p>\u5148\u306b\u3082\u66f8\u304d\u307e\u3057\u305f\u304c\u3001\u3053\u308c\u306f\u8aad\u307f\u8fbc\u307f\u5bfe\u8c61\u306eExcel\u30d5\u30a1\u30a4\u30eb\u304c\u3001\u30d5\u30a1\u30a4\u30eb\u30b5\u30fc\u30d0\u306b\u3042\u3063\u305f\u308a\u3001\u5225\u306ePC\u306b\u3042\u308b\u5834\u5408\u3082\u3001\u30d1\u30b9\u3092UNC\u30d1\u30b9\u3092\u4f7f\u3048\u3070\u5927\u4e08\u592b\u3067\u3059\u3002<\/p>\n<p>\u3082\u3068\u3082\u3068DAO\u3084ADO\u3092\u4f7f\u3046\u3068\u3001\u8aad\u307f\u8fbc\u307f\u5148\u306e\u30c7\u30fc\u30bf\u306e\u6307\u5b9a\uff08\u53d6\u5f97\uff09\u304c\u76f4\u611f\u7684\u3067\u30e9\u30af\u306a\u306e\u3067\u3001\u307e\u305f\u3001\u300cExecuteExcel4Macro\u300d\u306a\u3069\u3068\u6bd4\u3079\u308b\u3068\u304b\u306a\u308a\u67d4\u8edf\u306a\u51e6\u7406\u304c\u3067\u304d\u308b\u306e\u3067\u3001\u901f\u304f\u3066\u51e6\u7406\u3082\u3057\u3084\u3059\u3044\u306a\u3089\u3001\u3053\u308c\u304b\u3089\u3053\u3061\u3089\u3092\u30e1\u30a4\u30f3\u3067\u4f7f\u3046\u307b\u3046\u304c\u3044\u3044\u304b\u3082\u3057\u308c\u306a\u3044\u306a\u3042\u3001\u3068\u601d\u3044\u307e\u3057\u305f\u3002<br \/>\n\u50d5\u81ea\u8eab\u306fExcel\u3092\u307b\u3068\u3093\u3069\u77e5\u3089\u306a\u3044\u306b\u7b49\u3057\u3044\u306e\u3067\u3001DAO\u3084ADO\u304c\u3042\u3063\u3066\u304f\u308c\u3066\u307b\u3093\u3068\u3046\u306b\u52a9\u304b\u308a\u307e\u3059\u3002<\/p>\n<p>\u3082\u3061\u308d\u3093\u3001\u300c\u5c11\u306a\u3044\u30bb\u30eb\u306e\u6570\u30fb\u30fb\u30fb\uff12\u3001\uff13\u500b\u306e\u30bb\u30eb\u306e\u5024\u3092\u53d6\u5f97\u3059\u308b\u3060\u3051\u300d\u3001\u3068\u3044\u3063\u305f\u5834\u5408\u306a\u3089\u3001\u300cExecuteExcel4Macro\u300d\u306e\u307b\u3046\u304c\u77ed\u304f\u66f8\u3051\u308b\u3057\u4fbf\u5229\u306a\u306e\u3067\u3001\u9069\u6750\u9069\u6240\u3067\u4f7f\u3044\u5206\u3051\u308c\u3070\u826f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u5217\u306e\u5024\u3092Excel\u306e\u30bb\u30eb\u306b\u8ee2\u8a18\u3059\u308b\u5834\u5408\u3001<\/p>\n<p>WS01.Range(\"A\" & i) = .Fields(\"\u6c0f\u540d\")<br \/>\nWS01.Range(\"B\" & i) = .Fields(\"\u5e74\u9f62\")<br \/>\nWS01.Range(\"C\" & i) = .Fields(\"\u6027\u5225\") <\/p>\n<p>\u3068\u3044\u3063\u305f\u8a18\u8ff0\u65b9\u6cd5\u3067\u3082\u3001<\/p>\n<p>WS01.Range(\"A\" & i) = .Fields!\u6c0f\u540d<br \/>\nWS01.Range(\"B\" & i) = .Fields!\u5e74\u9f62<br \/>\nWS01.Range(\"C\" & i) = .Fields!\u6027\u5225  <\/p>\n<p>\u3068\u3044\u3046\u8a18\u8ff0\u65b9\u6cd5\u3067\u3082\u3001\u3069\u3061\u3089\u3067\u3082\u5927\u4e08\u592b\u3067\u3059\u3002<\/p>\n<p>\u305f\u3060\u3001\u524d\u8005\u306e\u307b\u3046\u304c\u3001\uff08\u3000\uff09\u306e\u4e2d\u8eab\u3092\u30fb\u30fb\u30fb\u3001\u30ea\u30c6\u30e9\u30eb\u5024\u3063\u3066\u5909\u3067\u3059\u3051\u3069\u300c\u5b9f\u969b\u306e\u5024\u3068\u3044\u3046\u304b\u540d\u524d\u300d\u3067\u3082\u3001\u307e\u305f\u9006\u306b\u3001\u5b9f\u969b\u306e\u540d\u524d\u3058\u3083\u306a\u304f\u3066\u300c\u6587\u5b57\u5217\u578b\u5909\u6570\u300d\u3067\u3082\u3001\u3069\u3061\u3089\u3067\u3082\u683c\u7d0d\uff08\u8a18\u8ff0\uff09\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u306e\u3067\u3001\u4fbf\u5229\u3067\u3059\u3002<\/p>\n<p>\u6c4e\u7528\u7684\u306a\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u3084\u3059\u304f\u306a\u308b\uff1d\u5171\u7528\u90e8\u54c1\u3092\u4f5c\u308a\u3084\u3059\u304f\u306a\u308b\uff1d\u9762\u5012\u304f\u3055\u3044\u306e\u304c\u6e1b\u308b\u3001\u306e\u3067\u3001\u3053\u3061\u3089\u306e\u8a18\u8ff0\u65b9\u6cd5\u3092\u304a\u3059\u3059\u3081\u3057\u307e\u3059\u3002<\/p>\n<p>Access\u3067\u30d5\u30a9\u30fc\u30e0\u306eMe\u30ad\u30fc\u30ef\u30fc\u30c9\u3092\u4f7f\u3046\u3068\u304d\u3082\u540c\u3058\u3067\u3059\u3002<\/p>\n<p>\u4f8b\u3048\u3070\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306a\u3069\u3092\u6307\u5b9a\u3059\u308b\u3068\u304d\u306b\u3001<br \/>\n\u300cMe!\u6c0f\u540d\u300d\u3068\u66f8\u304f\u3088\u308a\u3082\u3001<br \/>\n\u300cMe(\"\u6c0f\u540d\") \u300d\u3068\u66f8\u304f\u307b\u3046\u304c\u9762\u5012\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u306e\u3061\u306e\u3061\u8272\u3005\u3068\u4fbf\u5229\u3067\u3059\u3002<\/p>\n<p>\u898b\u305f\u76ee\u7684\u306b\u3082\u300c\u3042\u3001\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u540d\u3060\u306a\u300d\u3068\u308f\u304b\u3063\u305f\u308a\u3001\u30b5\u30d6\u30d5\u30a9\u30fc\u30e0\u5185\u306e\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u6307\u5b9a\u3067\u3082\u30ab\u30c3\u30b3\u306e\u6570\u3067\u8a18\u8ff0\u30df\u30b9\u304c\u7121\u3044\u304b\u308f\u304b\u3063\u305f\u308a\u30fb\u30fb\u30fb\u3002\uff08\u3000\uff09\u306e\u4e2d\u306bIndex\u756a\u53f7\u3092\u4f7f\u3046\u3053\u3068\u3082\u3042\u308a\u3001\u300c\u3042\u3042\u3042\u3001\u3053\u308c\u306f\u672c\u5f53\u306b\"\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\"\u306a\u3093\u3060\u306a\u300d\u3068\u6539\u3081\u3066\u300c\u306a\u308b\u307b\u3069\u300d\u3068\u611f\u3058\u305f\u308a\u3001\u300c\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u300d\u306e\u610f\u5473\u304c\u5c11\u3057\u76f4\u611f\u7684\u306b\u308f\u304b\u308a\u3084\u3059\u304f\u306a\u3063\u305f\u308a\u6c17\u4ed8\u304d\u3084\u3059\u304f\u306a\u3063\u305f\u308a\u30fb\u30fb\u30fb\u3002\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u95a2\u4fc2\u304c\u300c!\u300d\u3092\u4f7f\u3046\u5834\u5408\u3088\u308a\u3082\u660e\u78ba\u306b\u611f\u3058\u3089\u308c\u305f\u308a\u30fb\u30fb\u30fb\u3002<\/p>\n<p>\u3068\u306b\u304b\u304f\u3001\uff08\"\u3000\"\uff09\u3067\u66f8\u304f\u307b\u3046\u304c\u3001\u30d8\u30eb\u30d7\u3084Web\u306e\u89e3\u8aac\u3068\u3042\u3044\u307e\u3063\u3066\u3001\u4f55\u304b\u3068\u300c\u6c17\u3065\u304d\u300d\u304c\u5897\u3048\u3084\u3059\u3044\u3068\u601d\u3046\u306e\u3067\u3059\u3002<\/p>\n<p>\u300c!\u300d\u3070\u3063\u304b\u308a\u3067\u66f8\u3044\u3066\u3044\u305f\u3068\u304d\u306f\u3001\u305d\u3046\u3044\u3046\u3053\u3068\u306f\u5168\u304f\u8d77\u304d\u307e\u305b\u3093\u3067\u3057\u305f\u3002<\/p>\n<p>\u300c\u30ab\u30c3\u30b3\u3070\u3063\u304b\u308a\u591a\u304f\u3066\u30a6\u30b6\u30a4\u3002\u8aad\u307f\u306b\u304f\u3044\u3002\u300d\u3068\u611f\u3058\u308b\u65b9\u3082\u591a\u3044\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u30fb\u30fb\u30fb\u307c\u304f\u500b\u4eba\u3068\u3057\u3066\u306f\u8996\u899a\u7684\u306b\u3082\u3084\u308a\u3084\u3059\u3044\u3067\u3059\u3002<\/p>\n<p><span style=\"color: #0000ff;\">\u307e\u305f\u3001VBEditor\u3067\u306f\u3001\u304b\u306a\u308a\u9577\u3044\u5358\u8a9e\u3067\u3082\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3067\u4e00\u767a\u6587\u5b57\u5217\u9078\u629e\uff08\u4e00\u767a\u5358\u8a9e\u9078\u629e\u3001\u4e00\u767a\u5909\u6570\u9078\u629e\u3001\u306a\u3069\uff09\u304c\u3067\u304d\u308b\u30b1\u30fc\u30b9\u304c\u307b\u3068\u3093\u3069\u306a\u306e\u3067\u3001\u5217\u540d\u306b\u95a2\u3057\u3066\u306f\u30b3\u30d4\u30da\u306a\u3069\u3082\u4f7f\u3044\u3084\u3059\u304f\u3001(\"\")\u306e\u4e2d\u306b\u5217\u540d\u3092\u5165\u529b\u3059\u308b\u5834\u5408\u3082\u624b\u9593\u304c\u304b\u304b\u3089\u306a\u3044\u305f\u3081\u3001\u3055\u307b\u3069\u82e6\u306b\u306a\u308a\u307e\u305b\u3093\u3002<br \/>\n<\/span><\/p>\n<p>\u3088\u304fAccess\u306e\u53c2\u8003\u66f8\u3084Web\u30b5\u30a4\u30c8\u306b\u3066\u3001\u30d5\u30a9\u30fc\u30e0\u3067\u3082ADO\u3067\u3082DAO\u3067\u3082\u3001\u5f8c\u8005\u306e\u300c!\u300d\u3092\u4f7f\u3063\u305f\u8a18\u8ff0\u65b9\u6cd5\u304c\u3088\u304f\u8aac\u660e\u3055\u308c\u308b\u306e\u3067\u3059\u304c\u3001\u5171\u7528\u90e8\u54c1\u304c\u4f5c\u308a\u306b\u304f\u304f\u306a\u3063\u3061\u3083\u3063\u3066\u3001\u610f\u5916\u3068\u3001\u3051\u3063\u3053\u3046\u9762\u5012\u304f\u3055\u3044\u3067\u3059\u3002<\/p>\n<p>\u300c\u6700\u521d\u304b\u3089\u3001\u3000.Fields(\"\u6027\u5225\") \u3000\u307f\u305f\u3044\u306a\u3001\u66f8\u304d\u304b\u305f\u3092\u6559\u3048\u3066\u304f\u308c\u308c\u3070\u3088\u304b\u3063\u305f\u306e\u306b\u30fb\u30fb\u30fb\u300d\u3001\u3068\u601d\u3046\u3053\u3068\u304c\u591a\u3044\u3067\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #0000ff;\"><b>\u2605 \u5217\u540d\u3082\u8ee2\u8a18\u3057\u3066\u3001\u30c7\u30fc\u30bf\u306f\u30eb\u30fc\u30d7\u3067\u306f\u306a\u304f\u300cRange.CopyFromRecordset\u300d\u30e1\u30bd\u30c3\u30c9\u3067\u8ee2\u8a18\u3059\u308b\u4f8b<\/b><\/span><\/p>\n<p>\u4ee5\u4e0b\u306e\u4f8b\u306f\u3001\u300cD:\\DAO\u30c6\u30b9\u30c8.xls\u300d\u3068\u3044\u3046Excel\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u300cSheet1\u300d\u306e\u5185\u5bb9\u3092\u73fe\u5728\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b7\u30fc\u30c8\u306b\u5438\u3044\u8fbc\u307f\u307e\u3059\u3002<br \/>\n\u30d5\u30a1\u30a4\u30eb\u306e\u7f6e\u304d\u5834\u6240\u306f\u30b5\u30fc\u30d0\u3067\u3082\u3044\u3044\u306e\u3067\u3001\u300cD:\\DAO\u30c6\u30b9\u30c8.xls\u300d\u306e\u90e8\u5206\u306f\u300c\\\\\u30b5\u30fc\u30d0\u540d\\1\\DAO\u30c6\u30b9\u30c8.xls\u300d\u3068\u3044\u3063\u305fUNC\u30d1\u30b9\u3067\u3082\u5927\u4e08\u592b\u3067\u3059\u3002<\/p>\n<p><span style=\"color: #ff0000;\"><b>\u3053\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u3067\u3084\u308c\u3070\u3001\u5f8c\u534a\u306b\u66f8\u3044\u305f\u300c\u30b0\u30ea\u30fc\u30f3\u306e\u4e09\u89d2\u306e\u30a8\u30e9\u30fc\u300d\u304c\u51fa\u307e\u305b\u3093\u306e\u3067\u3001\u5217\u540d\u3082\u8ee2\u8a18\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u3053\u306e\u3084\u308a\u65b9\u304c\u3072\u3068\u3064\u306e\u57fa\u672c\u3001\u3068\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/b><\/span><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Explicit\r\n\r\nPrivate Sub ReadByDao03()\r\n\r\n'VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u3067Microsoft DAO 3.6 Object Library \u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304f\u3002\r\n'\u4e8b\u524d\u306b\u300cSheet1\u300d\u306b\u4f55\u3089\u304b\u306e\u8868\u3092\u6301\u3064\u300cD:\\DAO\u30c6\u30b9\u30c8.xls\u300d\u304c\u914d\u7f6e\u3057\u3066\u3042\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\r\n'\u300cAS Object\uff08\u30ec\u30a4\u30c8\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\uff1d\u5b9f\u884c\u6642\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\uff09\u300d\u3092\u4f7f\u3048\u3070\u3001\u53c2\u7167\u8a2d\u5b9a\u3057\u306a\u304f\u3066\u3082\u5927\u4e08\u592b\u306a\u65b9\u6cd5\u3082\u4f7f\u3048\u307e\u3059\u3002\r\n'\u305f\u3060\u3001\u521d\u5fc3\u8005\u306e\u65b9\u306f\u3001\u30a4\u30f3\u30c6\u30ea\u30bb\u30f3\u30b9\u6a5f\u80fd\u3092\u4f7f\u3048\u308b\u3088\u3046\u306b\u3001\u53c2\u7167\u8a2d\u5b9a\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u308b\u65b9\u6cd5\u3092\u304a\u3059\u3059\u3081\u3057\u307e\u3059\u3002\r\n\r\n'\u3053\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u3067\u3084\u308c\u3070\u3001\u5f8c\u534a\u306b\u66f8\u3044\u305f\u300c\u30b0\u30ea\u30fc\u30f3\u306e\u4e09\u89d2\u306e\u30a8\u30e9\u30fc\u300d\u304c\u51fa\u307e\u305b\u3093\u306e\u3067\u3001\r\n'\u5217\u540d\u3082\u8ee2\u8a18\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u3053\u306e\u3084\u308a\u65b9\u304c\u3072\u3068\u3064\u306e\u57fa\u672c\u3001\u3068\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002\r\n\r\n    Dim DB           As DAO.Database\r\n    Dim RS           As DAO.Recordset\r\n    Dim xlFName      As String\r\n    Dim SheetName    As String\r\n    Dim StrData01    As String\r\n    Dim i            As Integer\r\n\r\n    xlFName = \"D:\\DAO\u30c6\u30b9\u30c8.xls\"\r\n    SheetName = \"Sheet1$\"  '\u300cSheet1\u300d\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u3002\r\n                           '\u300c$\u300d\u3092\u4ed8\u3051\u308b\u3068\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306b\u306a\u308b\u3002\r\n    '\u2191\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb\u540d\u5b9a\u7fa9\u3001\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u5b9a\u7fa9\r\n\r\n   \r\n    Set DB = OpenDatabase(xlFName, False, False, \"Excel 8.0;HDR=YES;IMEX=1\")\r\n    '\u2191\r\n    '\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9(xlFName)\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\uff08\u3053\u3053\u3067\u306fxls\u30d5\u30a1\u30a4\u30eb\uff09\r\n    'HDR=NO \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3059\u308b\u3068\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u3080\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u3082\u30c6\u30ad\u30b9\u30c8\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\r\n    'HDR=YES \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3059\u308b\u3068\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u307e\u306a\u3044\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u306f\u6570\u5024\u3001\u6587\u5b57\u5217\u306f\u6587\u5b57\u5217\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\r\n    'IMEX=1\u2192\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u30bb\u30eb\u66f8\u5f0f\u306e\u5024\u3067\u30c7\u30fc\u30bf\u3092\u5438\u3044\u8fbc\u3080\u3002\uff08\u4eca\u56de\u306e\u30c6\u30b9\u30c8\u3067\u306f\u5b8c\u5168\u306b\u306f\u305d\u3046\u306f\u306a\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002\u3088\u304f\u308f\u304b\u308a\u307e\u305b\u3093\u3002\uff09\r\n    '        \u305f\u3060\u3057\u3001https:\/\/support.microsoft.com\/ja-jp\/help\/194124\/prb-excel-values-returned-as-null-using-dao-openrecordset\r\n    '        \u3084 http:\/\/blog.sorceryforce.net\/?p=154 \u3092\u53c2\u7167\r\n    'Excel 8.0\u2192\u300cVBA Excel \u30d0\u30fc\u30b8\u30e7\u30f3\u756a\u53f7\u300d\u3067Google\u691c\u7d22\u3002\r\n    '            8.0\u30672000\u3067\u30822010\u3067\u3082\u52d5\u3044\u305f\u3002\r\n\r\n \r\n\r\n    Set RS = DB.OpenRecordset(SheetName)\r\n    '\u2191\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u5b9a\u7fa9\r\n        \r\n\r\n    For i = 0 To (RS.Fields.Count - 1)\r\n        Debug.Print RS.Fields(i).Name\r\n        ActiveSheet.Cells(1, i + 1).Value = RS.Fields(i).Name\r\n    Next i\r\n    '\u2191\u5217\u540d\u3060\u3051\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b7\u30fc\u30c8\u306b\u8ee2\u8a18\u3002\r\n    '  \u5217\u756a\u53f7\u306f\u300c0\uff08\u30bc\u30ed\uff09\u300d\u304b\u3089\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '  \u6700\u5f8c\u306e\u5217\u306e\u5217\u756a\u53f7\u306f(RS.Fields.Count - 1)\u3067\u8868\u3057\u307e\u3059\u3002\r\n\r\n\r\n    ActiveSheet.Range(\"A2\").CopyFromRecordset RS\r\n    '\u2191\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u306e\u5b9f\u30c7\u30fc\u30bf\u5185\u5bb9\u300c\u306e\u307f\u300d\u3092\u3001\u3064\u307e\u308a\u3001\u5217\u540d\u4ee5\u5916\u306e\u3059\u3079\u3066\u306e\u30c7\u30fc\u30bf\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b7\u30fc\u30c8\u306b\u8ee2\u8a18\u3002\r\n\r\n\r\n\r\n\r\n    '\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\u3053\u3053\u304b\u3089\u672c\u6765\u306f\u4e0d\u8981\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\r\n   \r\n    '\u4ee5\u4e0b\u3001\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u306e\u6700\u7d42\u30ec\u30b3\u30fc\u30c9\u307e\u3067\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u306b\u8868\u793a\u3002\r\n    '\u672c\u6765\u306f\u8981\u3089\u306a\u3044\u51e6\u7406\u3060\u3051\u3069\u3001\u524d\u9805\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u306e\u6bd4\u8f03\u306e\u305f\u3081\u306b\u4e00\u5fdc\u66f8\u304d\u307e\u3057\u305f\u3002\r\n    '\uff08EOF\u306f\u30b7\u30fc\u30c8\u306e\u6700\u5f8c\u3058\u3083\u306a\u304f\u3066\uff64\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3068\u3057\u3066\u306e\u6700\u7d42\u884c\u3002\uff09\r\n\r\n    RS.MoveFirst 'CopyFromRecordset\u3057\u305f\u3042\u3068\u306f\u3001RS.EOF\u307e\u3067\u884c\u3063\u3066\u3057\u307e\u3046\u3088\u3046\u306a\u306e\u3067\u3001\r\n                 '\u3044\u3063\u305f\u3093\u5148\u982d\u306e\u30ec\u30b3\u30fc\u30c9\u306b\u623b\u3089\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3002\r\n                 '\u30eb\u30fc\u30d7\u3092EOF\u307e\u3067\u3084\u3063\u3066\u3001\u305d\u306e\u3042\u3068CopyFromRecordset\u3057\u305f\u3068\u304d\u3082\u540c\u3058\u3002\r\n    \r\n    Do Until RS.EOF\r\n\r\n        With RS 'A\u5217\u30fbB\u5217\u30fbC\u5217\u306e\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\r\n\r\n\r\n        StrData01 = StrData01 & .Fields(\"\u6c0f\u540d\") & vbTab & .Fields(\"\u5e74\u9f62\") & vbTab & .Fields(\"\u6027\u5225\") & vbCrLf\r\n\r\n        .MoveNext  '\u6b21\u306e\u30ec\u30b3\u30fc\u30c9\uff08\u884c\uff09\u306b\u79fb\u52d5\r\n\r\n        End With\r\n\r\n    Loop\r\n\r\n    Debug.Print StrData01\r\n\r\n    '\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\u3053\u3053\u307e\u3067\u672c\u6765\u306f\u4e0d\u8981\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\r\n\r\n\r\n\r\n   \r\n    RS.Close\r\n    DB.Close\r\n    Set RS = Nothing\r\n    Set DB = Nothing\r\n   \r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #0000ff;\"><b>\u2605 Access\u306emdb\u30d5\u30a1\u30a4\u30eb\u306e\u30c6\u30fc\u30d6\u30eb\u5185\u5bb9\u3092\u3001DAO\u306b\u3066\u3001\u5217\u540d\u3082\u8ee2\u8a18\u3057\u3066\u3001\u30c7\u30fc\u30bf\u306f\u30eb\u30fc\u30d7\u3067\u306f\u306a\u304f\u300cRange.CopyFromRecordset\u300d\u30e1\u30bd\u30c3\u30c9\u3067\u8ee2\u8a18\u3059\u308b\u4f8b<\/b><\/span><\/p>\n<p>\u4ee5\u4e0b\u306e\u4f8b\u306f\u3001\u300cD:\\1\\tes001.mdb\u300d\u3068\u3044\u3046mdb\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u300cT99_\u793e\u54e1\u30de\u30b9\u30bf\u300d\u3068\u3044\u3046\u30c6\u30fc\u30d6\u30eb\u306e\u30c7\u30fc\u30bf\u3092\u30b7\u30fc\u30c8\u306b\u5438\u3044\u8fbc\u307f\u307e\u3059\u3002<\/p>\n<p>\u30d5\u30a1\u30a4\u30eb\u306e\u7f6e\u304d\u5834\u6240\u306f\u30b5\u30fc\u30d0\u3067\u3082\u3044\u3044\u306e\u3067\u3001\u300cD:\\1\\tes001.mdb\u300d\u306e\u90e8\u5206\u306f\u300c\\\\\u30b5\u30fc\u30d0\u540d\\1\\tes001.mdb\u300d\u3068\u3044\u3063\u305fUNC\u30d1\u30b9\u3067\u3082\u5927\u4e08\u592b\u3067\u3059\u3002<\/p>\n<p><span style=\"color: #ff0000;\"><b>\u3053\u3061\u3089\u3082\u3001\u3053\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u3067\u3084\u308c\u3070\u3001\u5f8c\u534a\u306b\u66f8\u3044\u305f\u300c\u30b0\u30ea\u30fc\u30f3\u306e\u4e09\u89d2\u306e\u30a8\u30e9\u30fc\u300d\u304c\u51fa\u307e\u305b\u3093\u306e\u3067\u3001\u5217\u540d\u3082\u8ee2\u8a18\u3057\u305f\u3044\u5834\u5408\u306f\u3001\u3053\u306e\u3084\u308a\u65b9\u304c\u3072\u3068\u3064\u306e\u57fa\u672c\u3001\u3068\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/b><\/span><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub ReadByDao04()\r\n\r\n'VBE\u306e\u53c2\u7167\u8a2d\u5b9a\u3067Microsoft DAO 3.6 Object Library \u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\u3002\r\n'\u4e8b\u524d\u306b\u300cD:\\1\\tes001.mdb\u300d\u3068\u3044\u3046mdb\u30d5\u30a1\u30a4\u30eb\u306b\u3001\u300cT99_\u793e\u54e1\u30de\u30b9\u30bf\u300d\u3068\u3044\u3046\u30c6\u30fc\u30d6\u30eb\u304c\u4f5c\u6210\u3055\u308c\u3066\u3044\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\r\n'\u300cAS Object\uff08\u30ec\u30a4\u30c8\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\uff1d\u5b9f\u884c\u6642\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\uff09\u300d\u3092\u4f7f\u3048\u3070\u3001\u53c2\u7167\u8a2d\u5b9a\u3057\u306a\u304f\u3066\u3082\u5927\u4e08\u592b\u306a\u65b9\u6cd5\u3082\u4f7f\u3048\u307e\u3059\u3002\r\n'\u305f\u3060\u3001\u521d\u5fc3\u8005\u306e\u65b9\u306f\u3001\u30a4\u30f3\u30c6\u30ea\u30bb\u30f3\u30b9\u6a5f\u80fd\u3092\u4f7f\u3048\u308b\u3088\u3046\u306b\u3001\u53c2\u7167\u8a2d\u5b9a\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u308b\u65b9\u6cd5\u3092\u304a\u3059\u3059\u3081\u3057\u307e\u3059\u3002\r\n\r\n    Dim DB As DAO.Database\r\n    Dim RS As DAO.Recordset\r\n    Dim i As Integer\r\n\r\n\r\n    Set DB = OpenDatabase(\"D:\\1\\tes001.mdb\")\r\n    Set RS = DB.OpenRecordset(\"T99_\u793e\u54e1\u30de\u30b9\u30bf\")\r\n\r\n\r\n    For i = 0 To (RS.Fields.Count - 1)\r\n        ActiveSheet.Cells(1, i + 1).Value = RS.Fields(i).Name\r\n    Next i\r\n    '\u2191\u5217\u540d\u3060\u3051\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b7\u30fc\u30c8\u306b\u8ee2\u8a18\u3002\r\n    '  \u5217\u756a\u53f7\u306f\u300c0\uff08\u30bc\u30ed\uff09\u300d\u304b\u3089\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '  \u6700\u5f8c\u306e\u5217\u306e\u5217\u756a\u53f7\u306f(RS.Fields.Count - 1)\u3067\u8868\u3057\u307e\u3059\u3002\r\n\r\n\r\n    ActiveSheet.Range(\"A2\").CopyFromRecordset RS\r\n    '\u2191\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u306e\u5185\u5bb9\u3092\u3001\u5217\u540d\u4ee5\u5916\u3092\u30a2\u30af\u30c6\u30a3\u30d6\u306a\u30b7\u30fc\u30c8\u306b\u8ee2\u8a18\u3002\r\n\r\n    \r\n    RS.Close\r\n    Set RS = Nothing\r\n\r\n    DB.Close\r\n    Set DB = Nothing\r\n\r\n\r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_320\">\u2605 Excel2010\uff1a\u52d5\u7684\u306a\u8868\u3067\u306f\u306a\u3044\u3001\u591a\u6bb5\u7684\u306a\u30af\u30ed\u30b9\u96c6\u8a08\u8868\u3092\u8aad\u307f\u8fbc\u3081\u308b\u304b\u3069\u3046\u304b\uff1f1\u30b7\u30fc\u30c8\u306b\u8907\u6570\u306e\u8868\u304c\u3042\u308b\u5834\u5408\u306b\u8aad\u307f\u8fbc\u3081\u308b\u304b\u3069\u3046\u304b\uff1f<\/a><\/p>\n<p><a name=\"lbl_324\">(00)\u7d50\u8ad6<\/a><\/p>\n<p>Excel2010\u3067\u30c6\u30b9\u30c8\u3057\u305f\u5834\u5408\u306a\u306e\u3067\u3001\u53e4\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u3067\u306f\u3069\u3046\u306a\u306e\u304b\u308f\u304b\u308a\u307e\u305b\u3093\u304c\u3001\u307e\u305f\u3001\u8868\u306e\u5f62\u306b\u3082\u3088\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u4e00\u5fdc\u3001<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct08_exceltruebasic\/ct080301_dynamictable_n_statictable\/dynamic_table\" target=\"_blank\" rel=\"noopener noreferrer\">\u52d5\u7684\u306a\u8868<\/a>\u3067\u306f\u306a\u304f\u3001\u591a\u6bb5\u7684\u306a\u30af\u30ed\u30b9\u96c6\u8a08\u8868\uff08<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct08_exceltruebasic\/ct080301_dynamictable_n_statictable\/static_table\" target=\"_blank\" rel=\"noopener noreferrer\">\u9759\u7684\u306a\u8868<\/a>\uff09\u3067\u3042\u3063\u3066\u3082\u8aad\u307f\u8fbc\u3081\u308b\u3063\u307d\u3044\u3067\u3059\u3002\uff08\u50d5\u306e\u307b\u3046\u3060\u3051\u3068\u304b2010\u3060\u3051\u3068\u304b\u3060\u3063\u305f\u3089\u3059\u307f\u307e\u305b\u3093\uff01\u307e\u305f\u3001\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u8d8a\u3057\u3067UNC\u30d1\u30b9\u3067\u306f\u307e\u3060\u8a66\u3057\u3066\u307e\u305b\u3093\uff01\uff09<\/p>\n<p>\u305d\u3057\u3066\u3053\u306e\u5834\u5408\u30011\u30b7\u30fc\u30c8\u306b\u8907\u6570\u306e\u8868\u304c\u3042\u3063\u3066\u3082\u3001\u307e\u305f\u3001\u7d50\u5408\u3055\u308c\u305f\u30bb\u30eb\u304c\u3042\u3063\u3066\u3082\u8aad\u307f\u8fbc\u3081\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u7d50\u5408\u3055\u308c\u305f\u30bb\u30eb\u306e\u5024\u306f\u3001\u300c\u52dd\u624b\u306b\u300d\u300c\u5206\u89e3\u3055\u308c\u305f\u3082\u306e\u3068\u307f\u306a\u3055\u308c\u3066\u300d\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\u3002<br \/>\n\uff08\u5024\u81ea\u4f53\u306f\u30fb\u30fb\u30fb\u3001\u30bb\u30eb\u304c\u5206\u89e3\u3055\u308c\u305f\u306e\u3061\u306b\u3001\u305d\u306e\u3046\u3061\u306e\u4e00\u756a\u5de6\u306e\u30bb\u30eb\u306b\u5024\u304c\u6765\u308b\u307f\u305f\u3044\u3067\u3059\u3002\uff09<\/p>\n<p>\u307e\u305f\u3001\u300c\u30b7\u30fc\u30c8\u4e0a\u306e\u300d\u3001\u300c\u4f55\u3089\u304b\u306e\u5024\u304c\u5165\u529b\u3055\u308c\u305f\u3082\u3063\u3068\u3082\u5de6\u5074\u306b\u4f4d\u7f6e\u3059\u308b\u30bb\u30eb\u300d\u304c\u3001\u300c\u201d\u3053\u306e\u30b7\u30fc\u30c8\uff1d\u3053\u306e\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u201d\u306e\u4e00\u756a\u5de6\u5074\u306e\u5217\u300d\u3068\u81ea\u52d5\u8a8d\u8b58\u3055\u308c\u3001\u300cF1\u300d\u3068\u3044\u3046\u5217\u540d\u3068\u3057\u3066\u8a8d\u8b58\u3055\u308c\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u7d50\u5408\u3055\u308c\u305f\u30bb\u30eb\u306b\u3064\u3044\u3066\u306f\u3001\u4f8b\u3048\u3070\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306e\u3069\u3053\u304b\u306e\u884c\u306e\u3001\u300cF1\u300d\u3001\u300cF2\u300d\u3001\u300cF3\u300d\u3001\u3067\u7d50\u5408\u3055\u308c\u3066\u3044\u305f\u5834\u5408\u306a\u3089\u3001\u81ea\u52d5\u7684\u306b\u300cF1\u3060\u3051\u306b\u5024\u304c\u5165\u529b\u3055\u308c\u305f\u300d\u3082\u306e\u3068\u307f\u306a\u3055\u308c\u3001\u3001\u300cF2\u3001F3\u3001\u306f\u7a7a\u767d\u300d\u3068\u307f\u306a\u3055\u308c\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u53c2\u8003<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-22---22-56-41.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-22---22-56-41.jpg\" alt=\"\" width=\"100%\" height=\"100%\" ><\/a><\/p>\n<p>\u3067\u306f\u3001\u5217\u306e\u6307\u5b9a\u306e\u65b9\u6cd5\u3092\u3054\u8aac\u660e\u3057\u307e\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_326\">(01)\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3068\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9<\/a><\/p>\n<p>xlsm\u62e1\u5f35\u5b50\u306e\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPZIP\/tes1xlsm.zip\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/euc-access-excel-db.com\/00000WPZIP\/tes1xlsm.zip<\/a><\/p>\n<p>xls\u62e1\u5f35\u5b50\u306e\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPZIP\/tes1xls.zip\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/euc-access-excel-db.com\/00000WPZIP\/tes1xls.zip<\/a><\/p>\n<p>\u203b\u30a6\u30a3\u30eb\u30b9\u30c1\u30a7\u30c3\u30af\u306fESET\u3067\u884c\u3044\u307e\u3057\u305f\u3002<\/p>\n<p>\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u540d\u524d\u306f\u30012010\u7528\u306e\u3082\u306e\u306f\u300ctes1.xlsm\u300d\u3067\u30012003\u4ee5\u524d\u7528\u306e\u3082\u306e\u306f\u300ctes1.xls\u300d\u3067\u3059\u3002<\/p>\n<p>\u89e3\u51cd\u3057\u3066\u304b\u3089\u300cD\u30c9\u30e9\u30a4\u30d6\u306e\u30eb\u30fc\u30c8\u3068\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u306e2\u304b\u6240\u300d\u306b\u30b3\u30d4\u30da\u3057\u3066\u3001\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u5074\u306e\u300ctes1.xlsm\u300d\u3084\u300ctes1.xls\u300d\u304b\u3089\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\nVBE\u3092\u958b\u3044\u3066\u3001\u300cModule1\u300d\u306e\u300cReadByDAO03\u300d\u3092\u5b9f\u884c\u3057\u307e\u3059\u3002<\/p>\n<p>\u3053\u306e\u30b5\u30f3\u30d7\u30eb\u306f\u30d5\u30a1\u30a4\u30eb\u306e\u4e2d\u8eab\u306e\u30b7\u30fc\u30c8\u3067\u3001\u300c\u9759\u7684\u306a\u8868\uff0d\u610f\u5916\u3068\u308f\u304b\u308a\u306b\u304f\u3044\u300d\u3068\u3044\u3046\u30b7\u30fc\u30c8\uff08\u30af\u30ed\u30b9\u96c6\u8a08\u8868\uff09\u306e\u5185\u5bb9\u306e\u4e00\u90e8\u3092\u3001Sheet2\u306b\u8ee2\u8a18\u3059\u308b\u3082\u306e\u3067\u3059\u3002\uff08\u300c\u9759\u7684\u306a\u8868\uff0d\u610f\u5916\u3068\u308f\u304b\u308a\u306b\u304f\u3044\u300d\u3068\u3044\u3046\u30b7\u30fc\u30c8\u306fDAO\u306b\u3066\u300c\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u300d\u3068\u3057\u3066\u6271\u3063\u3066\u3044\u307e\u3059\u3002\u3042\u3068\u3001Sheet2\u306f\u3060\u3044\u3076\u5f8c\u308d\u306e\u307b\u3046\u306e\u30b7\u30fc\u30c8\u3067\u3059\u3002\uff09<\/p>\n<p>\u57fa\u672c\u7684\u306b\u306f\u3001\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u306e\u300ctes1.xlsm\u300d\u304b\u3089\u3082\u300ctes1.xls\u300d\u304b\u3089\u3082\u3001D\u30c9\u30e9\u30a4\u30d6\u306e\u300ctes1.xls\u300d\uff08xls\u62e1\u5f35\u5b50\u306e\u307b\u3046\uff09\u306f\u8aad\u3081\u308b\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u300ctes1.xlsm\u300d\u3067\u306f\u300c\u5916\u90e8\u30c6\u30fc\u30d6\u30eb\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u304c\u6b63\u3057\u304f\u3042\u308a\u307e\u305b\u3093\u300d\u3068\u3044\u3063\u305f\u611f\u3058\u306e\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002\u3053\u308c\u306fxlsx\u62e1\u5f35\u5b50\u306e\u30d5\u30a1\u30a4\u30eb\u306b\u4f5c\u308a\u76f4\u3057\u3066\u3082\u540c\u3058\u3067\u3059\u3002<br \/>\nxlsm\u3084xlsx\u306f\u3069\u3046\u3084\u3089DAO\u3067\u306f\u300c\u9589\u3058\u305f\u72b6\u614b\u300d\u3067\u306f\u958b\u3051\u306a\u3044\u3063\u307d\u3044\u3067\u3059\u3002<br \/>\n\u305d\u306e\u5834\u5408\u306f\u3001D\u30c9\u30e9\u30a4\u30d6\u306e\u30eb\u30fc\u30c8\u306exlsm\u3092\u76f4\u63a5\u958b\u3044\u3066\u3001\u30c6\u30b9\u30c8\u3057\u3066\u307f\u308b\u3053\u3068\u3082\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002\u4e00\u5fdc\u3001\u958b\u3044\u3066\u3042\u308c\u3070Sheet2\u306b\u30c7\u30fc\u30bf\u304c\u5438\u3044\u8fbc\u307e\u308c\u308b\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u305f\u3060\u3057\u3001\u305d\u306e\u5834\u5408\u306f\u3001\u300c\u9589\u3058\u305f\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u8aad\u307f\u305f\u3044\u300d\u3068\u3044\u3046\u3053\u3068\u306f\u3067\u304d\u306a\u304d\u306a\u304f\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u304c\u30fb\u30fb\u30fb\u3002<\/p>\n<p>\u3069\u3046\u3057\u3066\u3082\u9589\u3058\u305f\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092DAO\u304bADO\u3067\u8aad\u307f\u305f\u3044\u5834\u5408\u306f\u3001xlsm\u3084xlsx\u62e1\u5f35\u5b50\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u5408\u306f\u3001ADO\u3067\u8aad\u307f\u306b\u884c\u304f\u306e\u304c\u826f\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\uff08<a href=\"#lbl_480\">\u4e00\u756a\u6700\u5f8c\u306bADO\u3067\u306e\u30c6\u30b9\u30c8\u306e\u8a18\u4e8b\u306eURL\u3092\u8f09\u305b\u3066\u3042\u308a\u307e\u3059<\/a>\uff09<\/p>\n<p>\u306a\u304a\u30012010\u3067\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u305f\u5834\u5408\u306f\u3001xlsm\u3067\u3082xls\u3067\u3082\u3001\u300c\u30b3\u30f3\u30c6\u30f3\u30c4\u306e\u6709\u52b9\u5316\u300d\u3092\u62bc\u3057\u3066\u304b\u3089\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>VBE\u306e\u300c\u53c2\u7167\u8a2d\u5b9a\u300d\u306b\u3001\u300cMicrosft DAO 3.6 Object Liblary\u300d\u306b\u30c1\u30a7\u30c3\u30af\u304c\u5165\u3063\u3066\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u306e\u3067\u305d\u3053\u3092\u4e8b\u524d\u306b\u78ba\u8a8d\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u3042\u3068\u3001Sheet2\u306b\u8aad\u307f\u8fbc\u3093\u3060\u5024\u304c\u6570\u5024\u306e\u30bb\u30eb\u3060\u3051\u4e0b\u56f3\u306e\u3088\u3046\u306b\u306a\u3063\u3066\u3057\u307e\u3063\u305f\u3089\u3001\u305d\u306e\u4e0b\u306eURL\u306eWeb\u8a18\u4e8b\u306b\u89e3\u6c7a\u65b9\u6cd5\u304c\u66f8\u3044\u3066\u3042\u308a\u307e\u3059\u306e\u3067\u305d\u308c\u3092\u305d\u306e\u307e\u307e\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n<p><a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-26---02-46-29.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-26---02-46-29.jpg\" alt=\"\" width=\"30%\" height=\"30%\" ><\/a><\/p>\n<p>\u300e\u6587\u5b57\u5217\u6271\u3044\u306b\u306a\u3063\u3066\u3044\u308b\u6570\u5b57\u3092\u6570\u5024\u3078\u4e00\u62ec\u3067\u5909\u63db\u3059\u308b\u65b9\u6cd5\u300f<br \/>\n<a href=\"https:\/\/excel-master.net\/cells-worksheets-control\/text-numerical-conversion\/\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/excel-master.net\/cells-worksheets-control\/text-numerical-conversion\/<\/a><\/p>\n<p>\u4e00\u5fdc\u3001\u300c\u30d5\u30a1\u30a4\u30eb\u2192\u30aa\u30d7\u30b7\u30e7\u30f3\u2192\u6570\u5f0f\u300d\u3001\u306b\u3066\u3001\u300c\u30a8\u30e9\u30fc\u30c1\u30a7\u30c3\u30af\u300d\u306e\u3068\u3053\u308d\u3067\u300c\u30d0\u30c3\u30af\u30b0\u30e9\u30a6\u30f3\u30c9\u3067\u30a8\u30e9\u30fc\u30c1\u30a7\u30c3\u30af\u3092\u884c\u3046\u300d\u306e\u30c1\u30a7\u30c3\u30af\u3092\u306f\u305a\u3059\u3068\u7dd1\u306e\u30de\u30fc\u30af\u3084\u30df\u30cb\u30e1\u30cb\u30e5\u30fc\u306f\u8868\u793a\u3055\u308c\u306a\u304f\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-26---02-54-21.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-26---02-54-21.jpg\" alt=\"\" width=\"70%\" height=\"70%\" ><\/a><\/p>\n<p>\u3067\u3082\u3061\u3087\u3063\u3068\u5fc3\u914d\u306a\u306e\u3067\u3001\u4e0a\u8a18URL\u306e\u3088\u3046\u306b\u300c1\u3092\u304b\u3051\u3066\u3057\u307e\u3046\u300d\u307b\u3046\u304c\u78ba\u5b9f\u304b\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\n\u7279\u306b\u6570\u5024\u306f\u3001\u6587\u5b57\u5217\u3068\u8aa4\u8a8d\u3055\u308c\u3066\u3057\u307e\u3046\u3068\u96c6\u8a08\u9593\u9055\u3044\u3092\u8d77\u3053\u3057\u3066\u3057\u307e\u3044\u307e\u3059\u306e\u3067\u305d\u308c\u304c\u8d77\u3053\u308b\u53ef\u80fd\u6027\u304c\u3042\u3063\u3066\u3001\u3057\u304b\u3082\u3001\u6c17\u3065\u304d\u3082\u3057\u306a\u3044\u78ba\u7387\u304c\u9ad8\u307e\u308b\u30fb\u30fb\u30fb\u3001\u3068\u3044\u3046\u3053\u3068\u3067\u3059\u3068\u554f\u984c\u3067\u3059\u306e\u3067\u30fb\u30fb\u30fb\u3002\u4e00\u6642\u7684\u306b\u306a\u3089\u3088\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3051\u3069\u30fb\u30fb\u30fb\u3002<\/p>\n<p><span style=\"color: #0000ff;\"><b>\u203b2018\/07\/29\u8ffd\u8a18\uff1aVBA\u306b\u3066\u30ef\u30f3\u30af\u30ea\u30c3\u30af\u3067\u30b0\u30ea\u30fc\u30f3\u4e09\u89d2\u30de\u30fc\u30af\u3092\u6d88\u3057\u3066\u6570\u5024\u5316\u3059\u308b\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u4f5c\u308a\u307e\u3057\u305f\u306e\u3067\u3054\u89a7\u306b\u306a\u3063\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/b><\/span><\/p>\n<p>\u300e<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/greentriangleerrerase01\" target=\"_blank\" rel=\"noopener noreferrer\">Excel2010\uff1a\u300c\u3053\u306e\u30bb\u30eb\u306b\u3042\u308b\u6570\u5024\u304c\u3001\u30c6\u30ad\u30b9\u30c8\u5f62\u5f0f\u304b\u3001\u307e\u305f\u306f\u30a2\u30dd\u30b9\u30c8\u30ed\u30d5\u30a3\u3067\u59cb\u307e\u3063\u3066\u3044\u307e\u3059\u300d\u3068\u3044\u3046\u30b0\u30ea\u30fc\u30f3\u306e\u9685\u3063\u3053\u4e09\u89d2\u30a8\u30e9\u30fc\u30de\u30fc\u30af\u3092\u6d88\u3057\u3066\u3001\u30bb\u30eb\u306e\u5024\u3092\u660e\u793a\u7684\u306b\u6570\u5024\u5316\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0<\/a>\u300f<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u3067\u306f\u3001\u4ee5\u4e0b\u3001DAO\u3067\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Explicit\r\n\r\n\r\nPrivate Sub ReadByDao3()\r\n'VBE\u753b\u9762\u306e\u30c4\u30fc\u30eb\u2192\u53c2\u7167\u8a2d\u5b9a\u3001\u306b\u3066\u3001\u300cMicrosoft DAO 3.6 Object Library\u300d\u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\u3002\r\n \r\n    Dim DB          As DAO.Database      '\u8aad\u8fbc\u5bfe\u8c61\u306eXLS\u30d5\u30a1\u30a4\u30eb\u306eDAO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\u306e\u5909\u6570\r\n    Dim RS          As DAO.Recordset     '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u306eDAO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\u306e\u5909\u6570\r\n    Dim SrcXLFName  As String            '\u8aad\u8fbc\u5bfe\u8c61\u306eXLS\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u683c\u7d0d\u7528\u306e\u5909\u6570\r\n    Dim SrcSHTName  As String            '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u540d\u306e\u683c\u7d0d\u7528\u306e\u5909\u6570\r\n    \r\n    Dim WS01        As Worksheet         '\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf\u8ee2\u8a18\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u3092\u683c\u7d0d\uff08\uff1d\u6307\u5b9a\uff09\u3059\u308b\u305f\u3081\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\r\n    Dim i           As Integer           '\u305d\u306e\u30b7\u30fc\u30c8\u306e\u884c\u6570\u3092\u8868\u3059\u305f\u3081\u306e\u5909\u6570\r\n    \r\n    \r\n'\r\n'    '\u8aad\u8fbc\u5bfe\u8c61\u3068\u3057\u305f\u3044XLS\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3059\u308b\r\n'    SrcXLFName = \"D:\\DAO\u30c6\u30b9\u30c8.xls\"\r\n'\r\n'    '\u8aad\u8fbc\u5bfe\u8c61\u3068\u3057\u305f\u3044\u30b7\u30fc\u30c8\u3092\u6307\u5b9a\u3059\u308b\r\n'    SrcSHTName = \"\u8aad\u307f\u8fbc\u307f\u30c6\u30b9\u30c8$\"       '\u300c\u8aad\u307f\u8fbc\u307f\u30c6\u30b9\u30c8\u300d\u30b7\u30fc\u30c8\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u3002\r\n'                                         '\u300c$\u300d\u3092\u4ed8\u3051\u308b\u3068\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306b\u306a\u308b\u3002\r\n   \r\n    SrcXLFName = \"d:\\tes1.xlsm\"\r\n    SrcSHTName = \"\u9759\u7684\u306a\u8868\uff0d\u610f\u5916\u3068\u308f\u304b\u308a\u306b\u304f\u3044$\"  '\u300cSheet1\u300d\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u3002\r\n                           '\u300c$\u300d\u3092\u4ed8\u3051\u308b\u3068\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306b\u306a\u308b\u3002\r\n       \r\n       \r\n    '\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb(SrcXLFName)\u3092\u958b\u304f\u3002\u3053\u3053\u3067\u306fxls\u30d5\u30a1\u30a4\u30eb\u3002\uff08\uff1dDAO\u3068\u3057\u3066\u306e\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u5b9a\u7fa9\u3065\u3051\uff09\r\n    'HDR=NO \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3057\u305f\u3068\u304d\u306f\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u3080\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u3082\u30c6\u30ad\u30b9\u30c8\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\r\n    'HDR=YES \u2192\u300cIMEX\u300d\u306e\u5024\u3092\u300c=1\u300d\u306b\u3057\u305f\u3068\u304d\u306f\u30011\u884c\u76ee\u3092\u5217\u540d\u3068\u3057\u3066\u8aad\u8fbc\u307e\u306a\u3044\u3002\uff08\u3069\u3046\u3084\u3089\u6570\u5024\u306f\u6570\u5024\u3001\u6587\u5b57\u5217\u306f\u6587\u5b57\u5217\u3068\u3057\u3066\u8aad\u307f\u8fbc\u307e\u308c\u308b\u3088\u3046\u3067\u3059\uff09\uff08\u5217\u540d\u3092\u8aad\u307f\u305f\u304f\u306a\u3044\u5834\u5408\u306a\u3069\uff09\r\n    'IMEX=1\u2192\u8868\u793a\u3055\u308c\u3066\u3044\u308b\u30bb\u30eb\u66f8\u5f0f\u306e\u5024\u3067\u30c7\u30fc\u30bf\u3092\u5438\u3044\u8fbc\u3080\u3002\uff08\u4eca\u56de\u306e\u30c6\u30b9\u30c8\u3067\u306f\u5b8c\u5168\u306b\u306f\u305d\u3046\u306f\u306a\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002\u3088\u304f\u308f\u304b\u308a\u307e\u305b\u3093\u3002\uff09\r\n    'Excel 8.0\u2192\u300cVBA Excel \u30d0\u30fc\u30b8\u30e7\u30f3\u756a\u53f7\u300d\u3067Google\u691c\u7d22\u3002\u300c8.0\u300d\u30672000\u3067\u30822010\u3067\u3082\u52d5\u3044\u305f\u3002\r\n    \r\n    Set DB = OpenDatabase(SrcXLFName, False, False, \"Excel 8.0;HDR=YES;IMEX=1\")\r\n \r\n \r\n \r\n    '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u3092\u958b\u304f\u3002\uff08DAO\u3068\u3057\u3066\u306e\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u3092\u5b9a\u7fa9\u3065\u3051\uff09\r\n    Set RS = DB.OpenRecordset(SrcSHTName)\r\n   \r\n    \r\n    \r\n    Set WS01 = Worksheets(\"Sheet2\")            '\u30c7\u30fc\u30bf\u3092\u5438\u3044\u8fbc\u3080\u30b7\u30fc\u30c8\u306e\u5b9a\u7fa9\uff08\u30c7\u30fc\u30bf\u3092\u8ee2\u8a18\u3059\u308b\u30b7\u30fc\u30c8\u306e\u5b9a\u7fa9\u3065\u3051\uff09\r\n    i = 2                                      '\u5217\u540d\u306e\u3053\u3068\u3092\u8003\u3048\u3066\u3001\r\n                                               '\u8aad\u307f\u8fbc\u307f\u30c7\u30fc\u30bf\u3092 2\u884c\u76ee\u304b\u3089\u5165\u529b\u3057\u305f\u3044\u5834\u5408\u306f 2\u3068\u3059\u308b\u3002\r\n                                               '\u300cHDR=NO\u300d\u306b\u3057\u305f\u3068\u304d\u3001\u5217\u540d\u3082\u8aad\u307f\u8fbc\u3093\u3067\r\n                                               '1\u884c\u76ee\u304b\u3089\u5165\u529b\u3057\u305f\u3044\u306a\u3089 1\u3068\u3059\u308b\r\n                                               '\u3053\u3053\u3067\u306f\u524d\u8005\u3067\u30c6\u30b9\u30c8\u3057\u3066\u307e\u3059\u3002\r\n   \r\n    WS01.Range(\"A2:C30\").ClearContents         '\u8aad\u307f\u8fbc\u307f\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u884c\u6570\u304c\u5897\u6e1b\u3059\u308b\u3068\u3044\u3051\u306a\u3044\u306e\u3067\u3001\r\n                                               '\u4e00\u5fdc\u3001\u8ee2\u8a18\u3059\u308b\u30b7\u30fc\u30c8\u3092\u304d\u308c\u3044\u306b\u7a7a\u767d\u3057\u3066\u304a\u304f\u3002\r\n                                               '\u524d\u56de\u3088\u308a\u30c7\u30fc\u30bf\u884c\u6570\u304c\u5c11\u306a\u3044\u3068\u3001\u524d\u56de\u306e\u30c7\u30fc\u30bf\u304c\u6b8b\u3063\u3066\u3057\u307e\u3046\u306e\u3067\u3002\r\n   \r\n    '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\uff08\u30b7\u30fc\u30c8\uff09\u306e\u6700\u7d42\u30ec\u30b3\u30fc\u30c9\u307e\u3067\u3092\u8aad\u8fbc\u3080\r\n    'EOF\u306f\u30b7\u30fc\u30c8\u306e\u6700\u5f8c\u3058\u3083\u306a\u304f\u3066\u3001\u30ec\u30b3\u30fc\u30c9\u3068\u3057\u3066\u5165\u529b\u3055\u308c\u305f\u6700\u7d42\u884c\r\n    Do Until RS.EOF\r\n   \r\n        With RS\r\n \r\n'        'Sheet1\u306e A\u5217\u30fbB\u5217\u30fbC\u5217\u30fb\u30fb\u30fb\u30fb\u306b\u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092\u8ee2\u8a18\uff08\u5217\u3092\u5217\u540d\u3067\u6307\u5b9a\u3059\u308b\u5834\u5408\u306e\u3084\u308a\u65b9\uff09\r\n'        WS01.Range(\"A\" & i) = .Fields(\"F1\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF1\u300d\u5217\u306e\u5024\u3092\u300cA\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n'        WS01.Range(\"B\" & i) = .Fields(\"F2\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF2\u300d\u5217\u306e\u5024\u3092\u300cB\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n'        WS01.Range(\"C\" & i) = .Fields(\"F3\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF3\u300d\u5217\u306e\u5024\u3092\u300cC\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n'        WS01.Range(\"D\" & i) = .Fields(\"F4\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF4\u300d\u5217\u306e\u5024\u3092\u300cD\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n'\r\n'        WS01.Range(\"G\" & i) = .Fields(\"F18\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF18\u300d\u5217\u306e\u5024\u3092\u300cG\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n'        WS01.Range(\"H\" & i) = .Fields(\"F19\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF18\u300d\u5217\u306e\u5024\u3092\u300cH\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n'        WS01.Range(\"i\" & i) = .Fields(\"F20\")  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF20\u300d\u5217\u306e\u5024\u3092\u300ci\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n'\r\n'\r\n'        'Sheet1\u306e A\u5217\u30fbB\u5217\u30fbC\u5217\u30fb\u30fb\u30fb\u30fb\u306b\u8aad\u307f\u8fbc\u3093\u3060\u30c7\u30fc\u30bf\u3092\u8ee2\u8a18\uff08\u5217\u3092DAO\u306e\u5217\u756a\u53f7\u3067\u6307\u5b9a\u3059\u308b\u5834\u5408\u306e\u3084\u308a\u65b9\uff09\r\n        WS01.Range(\"A\" & i) = .Fields(0)  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF1\u300d\u5217\u306e\u5024\u3092\u300cA\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n        WS01.Range(\"B\" & i) = .Fields(1)  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF2\u300d\u5217\u306e\u5024\u3092\u300cB\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n        WS01.Range(\"C\" & i) = .Fields(2)  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF3\u300d\u5217\u306e\u5024\u3092\u300cC\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n        WS01.Range(\"D\" & i) = .Fields(3)  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF4\u300d\u5217\u306e\u5024\u3092\u300cD\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n\r\n        WS01.Range(\"G\" & i) = .Fields(17)  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF18\u300d\u5217\u306e\u5024\u3092\u300cG\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n        WS01.Range(\"H\" & i) = .Fields(18)  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF18\u300d\u5217\u306e\u5024\u3092\u300cH\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n        WS01.Range(\"i\" & i) = .Fields(19)  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\u306e\u30ab\u30ec\u30f3\u30c8\u884c\u306e\u300cF20\u300d\u5217\u306e\u5024\u3092\u300ci\u306ei\u300d\u30bb\u30eb\u306b\u8ee2\u8a18\r\n\r\n        .MoveNext  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5074\uff08\u8aad\u8fbc\u30c7\u30fc\u30bf\u5074)\u3092\u6b21\u306e\u30ec\u30b3\u30fc\u30c9\uff08\u884c\uff09\u306b\u79fb\u52d5\r\n         \r\n        End With\r\n        \r\n        i = i + 1  '\u81ea\u30d5\u30a1\u30a4\u30eb\u5074\uff08Excel\u30d5\u30a1\u30a4\u30eb\u5074\uff09\u3082\u6b21\u306e\u884c\u306b\u79fb\u52d5\r\n        \r\n    Loop\r\n      \r\n   \r\n    RS.Close\r\n    DB.Close\r\n    Set RS = Nothing\r\n    Set DB = Nothing\r\n   \r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_341\">(02)\u8aad\u307f\u8fbc\u307f\u6642\u306e\u5217\u540d\u306b\u3064\u3044\u3066<\/a><\/p>\n<p>\u5217\u540d\u306f\u3001\u8aad\u307f\u8fbc\u307f\u5143\u306e\u8868\uff08\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\uff09\u306e\u4f55\u3089\u304b\u306e\u5024\u304c\u5165\u3063\u305f\u5217\uff08\uff1d\u8d77\u70b9\u3068\u306a\u308b\u30bb\u30eb\uff1d\u5217\u540d\u3060\u3051\u3067\u3082\u53ef\u306e\u3088\u3046\u3067\u3059\uff09\u306e\u300c\u4e00\u756a\u5de6\u306e\u5217\u304b\u3089\u9806\u300d\u306b\u30fb\u30fb\u30fb\u3001<\/p>\n<p>\u300cF1\u300d<br \/>\n\u300cF2\u300d<br \/>\n\u300cF3\u300d<br \/>\n\u300cF4\u300d\u30fb\u30fb\u30fb<\/p>\n<p>\u3068\u3044\u3046\u540d\u524d\u3067DAO\u5074\u3067\u306f\u81ea\u52d5\u8a8d\u8b58\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u3042\u308b\u3044\u306f<\/p>\n<p>\u300c0\u300d<br \/>\n\u300c1\u300d<br \/>\n\u300c2\u300d<br \/>\n\u300c3\u300d\u30fb\u30fb\u30fb<\/p>\n<p>\u3068DAO\u5074\u304b\u3089\u81ea\u52d5\u8a8d\u8b58\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001\u3053\u306e\u5834\u5408\u306f\u5217\u306e\u76f4\u63a5\u306e\u540d\u524d\u3067\u306f\u306a\u304f\u3001<\/p>\n<p>\u300c\u5de6\u304b\u3089\u306e\u5217\u756a\u53f7\u304c0\u756a\u306e\u5217\uff08\u3064\u307e\u308a1\u756a\u76ee\u306e\u5217\uff09\u300d<br \/>\n\u300c\u5de6\u304b\u3089\u306e\u5217\u756a\u53f7\u304c1\u756a\u306e\u5217\uff08\u3064\u307e\u308a2\u756a\u76ee\u306e\u5217\uff09\u300d<br \/>\n\u300c\u5de6\u304b\u3089\u306e\u5217\u756a\u53f7\u304c2\u756a\u306e\u5217\uff08\u3064\u307e\u308a3\u756a\u76ee\u306e\u5217\uff09\u300d<br \/>\n\u300c\u5de6\u304b\u3089\u306e\u5217\u756a\u53f7\u304c3\u756a\u306e\u5217\uff08\u3064\u307e\u308a4\u756a\u76ee\u306e\u5217\uff09\u300d\u30fb\u30fb\u30fb<\/p>\n<p>\u3068\u3044\u3046\u610f\u5473\u3067\u6271\u308f\u308c\u307e\u3059\u3002<\/p>\n<p>\u306a\u306e\u3067\u3001\u8aad\u307f\u8fbc\u307f\u305f\u3044\u5217\u306e\u6307\u5b9a\u65b9\u6cd5\u3068\u3057\u3066\u306f\u3001\u524d\u8ff0\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5834\u5408\u3092\u4f8b\u306b\u3068\u308b\u3068\u3001<\/p>\n<p>RS.Fields(\"F1\")<br \/>\nRS.Fields(\"F2\")<br \/>\nRS.Fields(\"F3\")<br \/>\nRS.Fields(\"F4\")\u30fb\u30fb\u30fb<\/p>\n<p>\u3068\u3044\u3063\u305f\u611f\u3058\u3067\u6307\u5b9a\u3059\u308b\u304b\u3001\u3042\u308b\u3044\u306f\u3001<\/p>\n<p>RS.Fields(0)<br \/>\nRS.Fields(1)<br \/>\nRS.Fields(2)<br \/>\nRS.Fields(3)\u30fb\u30fb\u30fb<\/p>\n<p>\u3068\u6307\u5b9a\u3057\u307e\u3059\u3002<br \/>\n\uff08\u203b\u300cWith\u300d\u3067\u307e\u3068\u3081\u3066\u3042\u308b\u5834\u5408\u306f\u3001\u300cRS\u300d\u306f\u7701\u7565\u3067\u304d\u307e\u3059\u3002\uff09<\/p>\n<p>\u3053\u3053\u3067\u306e\u6ce8\u610f\u70b9\u3068\u3057\u3066\u306f\u3001\u30b7\u30fc\u30c8\uff1d\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u4e0a\u306eA\u5217\u304c\u300cF1\u300d\u306e\u5217\u306b\u307f\u306a\u3055\u308c\u308b\u308f\u3051\u3067\u306f\u306a\u304f\u3001\u6700\u521d\u306b\u5024\u306e\u5165\u3063\u305f\u30bb\u30eb\uff08\u8d77\u70b9\u306e\u30bb\u30eb\uff09\u306e\u5217\u304c\u300cF1\u300d\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\uff08\u203b \u305f\u3060\u3001\u3053\u308c\u306fExcel\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u306b\u3088\u3063\u3066\u9055\u3046\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\u3067\u30822010\u3067\u306f\u3053\u3046\u3044\u3046\u52d5\u304d\u3067\u3057\u305f\u30022000\u3060\u3068\u300cA\u5217\uff1dF1\uff1d0\u300d\u306b\u306a\u308b\u3063\u307d\u3044\u3067\u3059\u3002\u50d5\u306ePC\u3060\u3051\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3082\u3057\u305d\u3046\u3060\u3063\u305f\u3089\u3054\u3081\u3093\u306a\u3055\u3044\u3002\u5f8c\u8ff0\u306e(08)\u306b\u5c11\u3057\u3053\u306e\u3053\u3068\u306b\u3064\u3044\u3066\u66f8\u304d\u307e\u3057\u305f\u3002\uff09<\/p>\n<p>\u4f8b\u3048\u3070\u3001A\u5217\u3082B\u5217\u3082C\u5217\u3082\u5168\u90e8\uff08\u7e26\u65b9\u5411\u306b\uff09\u7a7a\u767d\u3067\u5217\u540d\u3082\u7121\u304f\u3001D\u5217\u306b\u306a\u3063\u3066\u521d\u3081\u3066\u4f55\u3089\u304b\u306e\u5024\u304c\u5165\u3063\u3066\u3044\u305f\u3089\u3001\u305d\u308c\u304c\u5217\u540d\u3067\u3042\u3063\u3066\u3082\u5024\u3067\u3042\u3063\u3066\u3082D\u5217\u304c\u300cF1\u300d\u306b\u307f\u306a\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001\u30b7\u30fc\u30c8\uff1d\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u4e0a\u306b\u8907\u6570\u306e\u8868\u304c\u3042\u3063\u3066\u3001\u305d\u308c\u305e\u308c\u3001\u8907\u6570\u306e\u7a7a\u767d\u5217\u3067\u533a\u5207\u3089\u308c\u3066\u3044\u308b\u5834\u5408\u306f\u3001\u305d\u306e\u533a\u5207\u308a\u306e\u7a7a\u767d\u5217\u306f\u300cF\u00d7\u00d7\u00d7\u300d\u3068\u307f\u306a\u3055\u308c\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u300cF\u00d7\u00d7\u00d7\u300d\u3068\u3044\u3046\u5217\u540d\u3067\u300c\u307f\u306a\u3055\u308c\u306a\u3044\u300d\u306e\u306f\u3001\u30b7\u30fc\u30c8\uff1d\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u4e0a\u306e\u4e00\u756a\u6700\u521d\uff08\u4e00\u756a\u5de6\u5074\uff06\u4e00\u756a\u4e0a\u5074\uff09\u306b\u4f4d\u7f6e\u3059\u308b\u8868\u30fb\u3042\u308b\u3044\u306f\u30bb\u30eb\u306e\u5de6\u5074\u306b\u3001\u300c\u3082\u3057\u7a7a\u767d\u5217\u304c\u3042\u3063\u305f\u5834\u5408\u306f\u3001\u305d\u306e\u5217\u3060\u3051\u300d\u306e\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u53c2\u8003\uff1a\u5217\u3068\u884c\u306b\u3064\u3044\u3066<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-22---23-00-03.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-22---23-00-03.jpg\" alt=\"\" width=\"100%\" height=\"100%\" ><\/a><\/p>\n<p>\u3042\u3068\u3001\u3053\u3061\u3089\u306e\u2192\u300c<a href=\"https:\/\/qiita.com\/unarist\/items\/6cc35bb9fe502ced332f\" target=\"_blank\" rel=\"noopener noreferrer\">ADO.NET\u3067Excel\u30d5\u30a1\u30a4\u30eb\u306b\u63a5\u7d9a\u3059\u308b<\/a>\u300d\u306e\u30b5\u30a4\u30c8\u306b\u3001\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u306e\u30c7\u30fc\u30bf\u7bc4\u56f2\u306b\u3064\u3044\u3066\u5c11\u3057\u8a73\u3057\u3044\u8aac\u660e\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u3053\u3053\u304b\u3089\u5c11\u3057\u5f15\u7528\u3055\u305b\u3066\u3044\u305f\u3060\u304d\u307e\u3059\u3002<\/p>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\u5f15\u7528\u3053\u3053\u304b\u3089\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d <\/p>\n<p>\u3010\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u306e\u30c7\u30fc\u30bf\u7bc4\u56f2\u306b\u3064\u3044\u3066\u3011<\/p>\n<p>\u2022[\u540d\u524d]\uff08Excel\u3067\u5b9a\u7fa9\u3057\u305f\u9818\u57df\u540d\uff09<br \/>\n\u2022[\u30b7\u30fc\u30c8\u540d$]\uff08\u30c7\u30fc\u30bf\u304c\u5165\u529b\u3055\u308c\u3066\u3044\u308b\u5de6\u4e0a\u304b\u3089\u53f3\u4e0b\u307e\u3067\u306e\u7bc4\u56f2\uff09<br \/>\n\u2022[\u30b7\u30fc\u30c8\u540d$\u540d\u524d]<br \/>\n\u2022[\u30b7\u30fc\u30c8\u540d$\u30bb\u30eb\u7bc4\u56f2]\uff08[\u30b7\u30fc\u30c8\u540d$] \u306e\u7bc4\u56f2\u5185\u306e\u307f\uff09<\/p>\n<p>\u3092\u30c6\u30fc\u30d6\u30eb\u540d\u3068\u3057\u3066\u3001SELECT\/INSERT\/UPDATE\u304c\u666e\u901a\u306b\u4f7f\u3048\u307e\u3059\u3002\u305f\u3060\u3057DELETE\u306f\u3067\u304d\u306a\u3044\u3002<\/p>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\u5f15\u7528\u3053\u3053\u307e\u3067\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p>\u3053\u308c\u306fDAO\u3067\u306f\u306a\u304f\u3001ADO\u306b\u95a2\u3059\u308bWeb\u30da\u30fc\u30b8\u306e\u8a18\u8ff0\u3067\u3057\u305f\u3002<br \/>\n\u3067\u3082\u3001\u3082\u3057\u304b\u3057\u305f\u3089DAO\u3067\u3082\u540c\u3058\u3088\u3046\u306b\u6307\u5b9a\u3067\u304d\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<br \/>\n\u3054\u81ea\u8eab\u3067\u3082\u304a\u8a66\u3057\u306b\u306a\u3063\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u306a\u304a\u3001ADO\u3067\u306f\u30fb\u30fb\u30fb<\/p>\n<p>\u2022[\u30b7\u30fc\u30c8\u540d$\u30bb\u30eb\u7bc4\u56f2]\uff08[\u30b7\u30fc\u30c8\u540d$] \u306e\u7bc4\u56f2\u5185\u306e\u307f\uff09\u306f<br \/>\n\u300c\u30b7\u30fc\u30c8\u540d$A1:G200\u300d\u306e\u3088\u3046\u306b\u6307\u5b9a\u3057\u307e\u3059\u3002<\/p>\n<p>\u2022[\u30b7\u30fc\u30c8\u540d$\u540d\u524d]\u306f<br \/>\n\u540d\u524d\u306e\u5b9a\u7fa9\u3001\u306e\u6a5f\u80fd\u3067\u5b9a\u7fa9\u3057\u305f\u540d\u524d\u3092\u4f7f\u3046\u306e\u304b\u306a\u3042\uff1f<br \/>\n\u30c6\u30b9\u30c8\u3057\u3066\u306a\u3044\u306e\u3067\u3001\u3061\u3087\u3063\u3068\u3088\u304f\u308f\u304b\u308a\u307e\u305b\u3093\u3002<\/p>\n<p>\u4e00\u5fdc\u3001\u3053\u3061\u3089\u3082\u3054\u53c2\u8003\u306b\u2193\u3002\u300cExcel 8.0\u300d\u307f\u305f\u3044\u306a\u300cISAM\u5f62\u5f0f\u300d\u306b\u3064\u3044\u3066\u3082\u66f8\u3044\u3066\u3042\u308a\u307e\u3059\u3002<br \/>\n\u300e<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/readby-ado-01\" target=\"_blank\" rel=\"noopener noreferrer\">ADO\uff1aExcel2010\u3067\u3001\u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\uff09\u30c7\u30fc\u30bf\u3092\u3067\u304d\u308b\u3060\u3051\u901f\u304f\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u30fc\u305d\u306e\uff12\uff08ADO\u306b\u3066\uff09<\/a>\u300f<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u307e\u305f\u3001\u300cIMEX=1\u300d\u306a\u3069\u306e\u300cIMEX\u306e\u5024\u300d\u306b\u3064\u3044\u3066\u306f\u3001\u4ee5\u4e0b\u306e\u30b5\u30a4\u30c8\u304c\u3088\u304f\u308f\u304b\u308a\u307e\u3059\u306e\u3067\u3053\u3061\u3089\u3082\u3001\u662f\u975e\u3054\u53c2\u8003\u306b\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u300eDAO\u3067Excel\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u307f\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a\u300f<br \/>\n<a href=\"http:\/\/hanatyan.sakura.ne.jp\/vbhlp\/dao_002.htm\" target=\"_blank\" rel=\"noopener noreferrer\">http:\/\/hanatyan.sakura.ne.jp\/vbhlp\/dao_002.htm<\/a><\/p>\n<p>\u30dd\u30a4\u30f3\u30c8\u3060\u3051\u5f15\u7528\u3055\u305b\u3066\u3044\u305f\u3060\u304d\u307e\u3059\u3002<\/p>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\u5f15\u7528\u3053\u3053\u304b\u3089\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d <\/p>\n<p>\u63a5\u7d9a\u6587\u5b57\u5217\u306e\u30aa\u30d7\u30b7\u30e7\u30f3 IMEX\u3000\u306e\u610f\u5473\u3068\u7d50\u679c\u3000<br \/>\n\u30000 \u3000\u306f\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u30e2\u30fc\u30c9\u3067\u3059\uff61<br \/>\n\u30001\u3000 \u306f\u30a4\u30f3\u30dd\u30fc\u30c8\u30e2\u30fc\u30c9\u3067\u3059\uff61<br \/>\n\u30002\u3000 \u306f\u30ea\u30f3\u30af\u30e2\u30fc\u30c9 (\u5b8c\u5168\u306a\u66f4\u65b0\u304c\u53ef\u80fd) \u3067\u3059\u3002<br \/>\n\u3000\u7701\u7565\u3059\u308c\u3070 2 \u3068\u540c\u3058\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>HDR=NO\u3000 1\u884c\u76ee\u3092\u8aad\u307f\u8fbc\u3093\u3067\u8868\u793a\u3059\u308b\u3002<br \/>\nHDR=YES\u30001\u884c\u76ee\u3092\u8aad\u307f\u8fbc\u307e\u306a\u3044\u3002<br \/>\n \uff08\u8a73\u3057\u304f\u306f\u4e0b\u8a18\u3001\u203b\uff11\uff0e \u3092\u898b\u3066\u4e0b\u3055\u3044\u3002\uff09<\/p>\n<p>\u7d44\u5408\u305b\u306b\u3088\u308b\u8868\u793a\u72b6\u614b\uff08\u203b\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a\u3057\u305f\u5834\u5408\uff09<br \/>\n\u3000IMEX\u306e\u5024\u3000\u3000\u3000\u3000HDR=NO \u3000\u3000\u3000\u3000\u3000\u3000HDR=YES<br \/>\n\u3000\u7701\u7565\u3000\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u307e\u306a\u3044\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u3080<br \/>\n\u3000\u30000 \u3000\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u307e\u306a\u3044\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u307e\u306a\u3044<br \/>\n\u3000\u30001 \u3000\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u307e\u306a\u3044\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u3080<br \/>\n\u3000\u30002 \u3000\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u307e\u306a\u3044\u3000\u3000\u3000\uff11\u884c\u76ee\u3092\u8aad\u8fbc\u3080<\/p>\n<p>\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\u5f15\u7528\u3053\u3053\u307e\u3067\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n<p><span style=\"color: #ff0000;\"><b>\u203b\u5b9f\u969b\u306b\u3001\u4e0a\u8a18\u306eIMEX\u306e\u5024\u3092\u5909\u3048\u3066\u3001HDR=NO\u3084HDR=YES\u3084\u7701\u7565\u3092\u8a66\u3059\u3068\u3001\u30a8\u30e9\u30fc\u3067\u8aad\u307f\u8fbc\u3081\u306a\u3044\u30b1\u30fc\u30b9\u3082\u3042\u308a\u307e\u3057\u305f\u3002\u306a\u306e\u3067\u3053\u306e\u60c5\u5831\u3092\u30d9\u30fc\u30b9\u306b\u3001\u3054\u81ea\u5206\u3067\u3082\u72b6\u6cc1\u306b\u5fdc\u3058\u3066\u4e8b\u524d\u306b\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002\uff082018\/08\/11\u8ffd\u8a18\uff09<\/b><\/span><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_392\">(03)\u8aad\u307f\u8fbc\u307f\u6642\u306e\u884c\u306e\u4f4d\u7f6e\u306b\u3064\u3044\u3066<\/a><\/p>\n<p>\u307e\u305f\u3001\u5217\u306b\u95a2\u3057\u3066\u306f\u305d\u3046\u3044\u3046\u98a8\u3067\u3001\u884c\u306b\u95a2\u3057\u3066\u306f\u8d77\u70b9\u306e\u30bb\u30eb\u306b\u95a2\u4fc2\u306a\u304f\u3001\u7a7a\u767d\u884c\u304c\u3042\u3063\u3066\u3082\u7121\u304f\u3066\u3082\u3001\u305d\u308c\u3082\u542b\u3081\u3066\u300c\u00d7\u00d7\u884c\u76ee\u300d\u3068\u307f\u306a\u3055\u308c\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<p>\u305f\u3060\u3001\u300c\uff08\u30b7\u30fc\u30c8\u3068\u3057\u3066\u306e\uff091\u756a\u6700\u521d\u306e\u884c\u306f\u300c\u5217\u540d\u300d\u306e\u305f\u3081\u306e\u884c\u300d\u3001\u3068\u307f\u306a\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u3067\u3059\u306e\u3067\u3001\u30b7\u30fc\u30c8\uff1d\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u4e0a\u306e\u30fb\u30fb\u30fb<br \/>\n\u884c\u756a\u53f72\u306e\u884c\u304c\u5b9f\u30c7\u30fc\u30bf\u3068\u3057\u3066\u306e\u300c1\u884c\u76ee\u300d<br \/>\n\u884c\u756a\u53f73\u306e\u884c\u304c\u5b9f\u30c7\u30fc\u30bf\u3068\u3057\u3066\u306e\u300c2\u884c\u76ee\u300d<br \/>\n\u884c\u756a\u53f74\u306e\u884c\u304c\u5b9f\u30c7\u30fc\u30bf\u3068\u3057\u3066\u306e\u300c3\u884c\u76ee\u300d<br \/>\n\u884c\u756a\u53f75\u306e\u884c\u304c\u5b9f\u30c7\u30fc\u30bf\u3068\u3057\u3066\u306e\u300c4\u884c\u76ee\u300d\u30fb\u30fb\u30fb<br \/>\n\u3068\u307f\u306a\u3055\u308c\u308b\u3088\u3046\u3067\u3059\u3002<br \/>\n\u3064\u307e\u308a\u300c\u884c\u756a\u53f7\u306e\u5024\u30fb\u30de\u30a4\u30ca\u30b9\u30fb1\u300d\u304c\u3001DAO\u3084ADO\u306b\u304a\u3051\u308b\u300c\u30c7\u30fc\u30bf\u3068\u3057\u3066\u306e\u300d\u884c\u306e\u4f4d\u7f6e\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_408\">(04)\u8aad\u307f\u8fbc\u307f\u6642\u306e\u5217\u3068\u884c\u306b\u3064\u3044\u3066\u306e\u5c11\u3057\u306e\u307e\u3068\u3081<\/a><\/p>\n<p>\u5c11\u3057\u307e\u3068\u3081\u307e\u3059\u3068\u30fb\u30fb\u30fb\u3001\u6b21\u306e\u3088\u3046\u306a\u611f\u3058\u3067\u3059\u3002<\/p>\n<p>\u30b7\u30fc\u30c8\uff1d\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u4e0a\u306e\u3001\u4f55\u3089\u304b\u306e\u5024\u304c\u5165\u529b\u3055\u308c\u305f\u300c\u6700\u3082\u5de6\u30fb\u6700\u3082\u4e0a\u300d\u306e\u30bb\u30eb\u3092\u8d77\u70b9\u3068\u3057\u3066\u3001<\/p>\n<p>\u5217\u306b\u95a2\u3057\u3066\u306f\u3001\u30b7\u30fc\u30c8\u306e\u5217\u756a\u53f7A\u3001B\u3001C\u3001\u3001\u3001\u306b\u95a2\u308f\u3089\u305a\u3001<br \/>\n\u305d\u306e\u8d77\u70b9\u306e\u30bb\u30eb\u306e\u5217\u304c\u300cF1\u300d\u5217\u3001\u3042\u308b\u3044\u306f\u300c\u5217\u756a\u53f70\u300d\u3068\u306a\u308a\u3001<\/p>\n<p>\u884c\u306b\u95a2\u3057\u3066\u306f\u3001\u30b7\u30fc\u30c8\u306e\u884c\u756a\u53f71\u30012\u30013\u3001\u3001\u3001\u304b\u3089\u300c\u30de\u30a4\u30ca\u30b91\u300d\u3057\u305f\u6570\u304c\u3001<br \/>\nDAO\u3084ADO\u306b\u304a\u3051\u308b\u300c\u5b9f\u30c7\u30fc\u30bf\u3068\u3057\u3066\u300d\u306e\u300c1\u884c\u76ee\u300d\u300c2\u884c\u76ee\u300d\u30fb\u30fb\u30fb\u3001\u3064\u307e\u308a\u3001<br \/>\n\u884c\u756a\u53f72\u306e\u884c\u304c1\u884c\u76ee\u3001\u884c\u756a\u53f73\u306e\u884c\u304c2\u884c\u76ee\u3068\u306a\u3063\u3066\u3044\u304d\u3001<\/p>\n<p>\u3082\u3057\u8907\u6570\u306e\u8868\u304c\u3042\u3063\u3066\u3082\u3001\u6700\u521d\u306e\u30bb\u30eb\u304c\u8d77\u70b9\u3068\u306a\u3063\u3066\u3001\u305d\u3053\u304b\u3089\u6570\u3048\u3066\u3001\u3042\u3068\u306f\u540c\u4e0a\u3002<br \/>\n\u305d\u3057\u3066\u3001\u8868\u3068\u8868\u306e\u533a\u5207\u308a\u306b\u7a7a\u767d\u5217\u304c\u4f55\u5217\u3042\u3063\u305f\u3068\u3057\u3066\u3082\u3001\u8d77\u70b9\u30bb\u30eb\u304b\u3089\u6570\u3048\u3066\u300cF\u00d7\u00d7\u300d\u5217\u3001\u3042\u308b\u3044\u306f\u300c\u5217\u756a\u53f7\u00d7\u00d7\u300d\u3068\u306a\u308b\u3002<br \/>\n\u884c\u306b\u95a2\u3057\u3066\u306f\u8907\u6570\u8868\u3067\u3042\u3063\u3066\u3082\u30b7\u30fc\u30c8\u306e\u300c\u884c\u756a\u53f7\u30de\u30a4\u30ca\u30b91\u300d\u3068\u3044\u3046\u5f62\u3068\u540c\u3058\u3002<\/p>\n<p>\u30fb\u30fb\u30fb\u3068\u3044\u3046\u611f\u3058\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><a name=\"lbl_430\">(05)\u203b\u88dc\u8db3\uff1a\u300cF1\u300d\u300cF2\u300d\u300cF3\u300d\u300cF4\u300d\u30fb\u30fb\u30fb\u3068\u3044\u3046\u5217\u540d\u306f\u672c\u5f53\u306f\u8ab0\u304c\u6c7a\u3081\u308b\u306e\u304b\uff1f<\/a><\/p>\n<p>\u3053\u308c\u306f\u50d5\u306f\u3088\u304f\u306f\u5206\u304b\u3063\u3066\u3044\u306a\u3044\u306e\u3067\u3059\u307f\u307e\u305b\u3093\u304c\u3001\u52d5\u304d\u3092\u898b\u3066\u307e\u3059\u3068\u306a\u3093\u3068\u306a\u304f\u3067\u3059\u3051\u3069\u3001\u591a\u5206\u3001Excel\u304c\u52dd\u624b\u306b\u6c7a\u3081\u3066\u304f\u308c\u3066\u3066\u3001\u305d\u308c\u3092\u3001DAO\u3084ADO\u3001Microsft Query\u3084\u30d4\u30dc\u30c3\u30c8\u306a\u3069\u304c\u6d41\u7528\u3057\u3066\u3044\u308b\u30fb\u30fb\u30fb\u3068\u3044\u3046\u611f\u3058\u306b\u898b\u3048\u307e\u3059\u3002<br \/>\n\u3053\u308c\u306f\u300c\u3053\u306e\u30b7\u30fc\u30c8\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u4f7f\u3046\u300d\u3068\u306a\u3063\u305f\u6642\u70b9\u3067\u3001Excel\u304c\u305d\u3046\u3057\u3066\u304f\u308c\u3066\u3044\u308b\u306e\u3067\u306f\u306a\u3044\u304b\uff1f\u3068\u52dd\u624b\u306b\u63a8\u6e2c\u3057\u3066\u3044\u307e\u3059\u3002\uff08\u305d\u308c\u304b\u3001ODBC\u30c9\u30e9\u30a4\u30d0\u304c\u305d\u3046\u3057\u3066\u304f\u308c\u3066\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\uff09<\/p>\n<p>\u4f8b\u3048\u3070\u3001Microsft Query \u306e\u753b\u9762\u3067\u3082\u3001\u306a\u306b\u304b\u30a4\u30ec\u30ae\u30e5\u30e9\u30fc\u306a\u3053\u3068\u304c\u3042\u308b\u3068\u3001\u3088\u304f\u5217\u540d\u304c\u300cF14\u300d\u300cF15\u300d\u30fb\u30fb\u30fb\u307f\u305f\u3044\u306a\u611f\u3058\u306b\u52dd\u624b\u306b\u66f8\u304d\u63db\u308f\u3063\u3066\u308b\u30fb\u30fb\u30fb\u3001\u3068\u3044\u3046\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\uff08\u540c\u3058\u5217\u540d\u304c\u30c0\u30d6\u3063\u305f\u6642\u3068\u304b\u3060\u3063\u305f\u304b\u306a\uff1f\u5fd8\u308c\u307e\u3057\u305f\u3002\u30c1\u30a7\u30c3\u30af\u3059\u308b\u306e\u304c\u9762\u5012\u3044\u304b\u3063\u305f\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002\uff09<\/p>\n<p>\u305d\u3046\u3044\u3046\u3068\u3053\u308d\u304b\u3089\u307f\u308b\u3068\u3001\u4eca\u56de\u306e\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u3082\u3001\u884c\u756a\u53f71\u306b\u5217\u540d\u304c\u5165\u529b\u3055\u308c\u3066\u3044\u308b\u308f\u3051\u3067\u306f\u306a\u3044\u306e\u3067\u3001Excel\u304c\u52dd\u624b\u306b\u300c\u3042\u308c\u3047\uff5e\uff1f\uff1f\u3001\u3053\u308c\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306e\u304f\u305b\u306b\u5217\u540d\u304c\u7121\u3044\u306a\u3042\u3002\u305d\u3093\u3058\u3083\u30fc\u3001\u3053\u3063\u3061\u3067\u52dd\u624b\u306b\u300cF1\u300d\u300cF2\u300d\u300cF3\u300d\u300cF4\u300d\u30fb\u30fb\u30fb\u3063\u3066\u4ed8\u3051\u3068\u304f\u306d\uff01\u300d\u3068\u3044\u3046\u611f\u3058\u306b\u3064\u3051\u3066\u304f\u308c\u3066\u3044\u308b\u306e\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p><span style=\"color: #ff0000;\"><b>\u3042\u30fb\u30fb\u30fb\u3001\u3067\u3082\u3001\u305d\u3046\u3044\u3046\u610f\u5473\u304b\u3089\u3059\u308b\u3068\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u30011\u30b7\u30fc\u30c8\u306b\u8907\u6570\u306e\u30af\u30ed\u30b9\u96c6\u8a08\u8868\u304c\u3042\u3063\u3066\u3001\u305d\u308c\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066DAO\u3084ADO\u3067\u8aad\u307f\u306b\u884c\u304d\u305f\u3044\u3068\u304d\u306f\u3001<span style=\"color: #7401DF;\"><b>\u300c\u30b7\u30fc\u30c8\u306e\u884c\u756a\u53f7\uff11\u306e\u30bb\u30eb\u305f\u3061\u306e\u3068\u3053\u308d\u306f\u3001\u6a2a\u4e00\u884c\u30fb\u5168\u90e8\u3001\u3042\u3048\u3066\u7a7a\u767d\u306b\u3057\u3066\u304a\u3044\u305f\u307b\u3046\u304c\u3044\u3044\u300d<\/b><\/span>\u306e\u304b\u3082\u3057\u308c\u306a\u3044\u3067\u3059\u306d\u3002<br \/>\n<span style=\"color: #0000ff;\"><b>\u305d\u3046\u3058\u3083\u306a\u3044\u304b\u3082\u3057\u308c\u306a\u3044\u3057\u3001\u691c\u8a3c\u3057\u3066\u306a\u3044\u306e\u3067\u308f\u304b\u308a\u307e\u305b\u3093\u304c\u3001\u4e00\u5ea6\u3001\u3054\u81ea\u5206\u3067\u3082\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/b><\/span><\/b><\/span><\/p>\n<p>\u3044\u305a\u308c\u306b\u3057\u3066\u3082\u3001\u300cF1\u300d\u300cF2\u300d\u300cF3\u300d\u300cF4\u300d\u30fb\u30fb\u30fb\u3068\u304b\u300c0\u300d\u300c1\u300d\u300c2\u300d\u300c3\u300d\u30fb\u30fb\u30fb\u307f\u305f\u3044\u306a\u5f62\u3067\u5217\u304c\u6307\u5b9a\u30fb\u64cd\u4f5c\u3067\u304d\u308b\u306e\u3067\u4fbf\u5229\u3067\u3042\u308a\u304c\u305f\u3044\u3053\u3068\u3067\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_440\">(06)\u5217\u3068\u884c\u3067\u30af\u30ed\u30b9\u3059\u308b\uff11\u3064\u306e\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u305f\u3044\u3068\u304d\u306e\u304a\u304a\u307e\u304b\u306a\u6d41\u308c<\/a><\/p>\n<p>\u306a\u304a\u3001\u3042\u308b\u4e00\u3064\u306e\u30bb\u30eb\u3092\u5217\u3068\u884c\u306e\u30af\u30ed\u30b9\u3067\u30d4\u30f3\u30dd\u30a4\u30f3\u30c8\u306b\u8aad\u307f\u306b\u3044\u304d\u305f\u3044\u5834\u5408\u306f\u3001DAO\u3084ADO\u306e\u5834\u5408\u306f\u3061\u3087\u3063\u3068\u9762\u5012\u304f\u3055\u3044\u3067\u3059\u3002<\/p>\n<p>\u53c2\u8003\u56f3\uff1a\u4ee5\u4e0b\u3001\u672c\u6587\u3068\u8d77\u70b9\u306e\u30bb\u30eb\u3084\u6c42\u3081\u305f\u3044\u30bb\u30eb\u306e\u30a2\u30c9\u30ec\u30b9\u304c\u9055\u3044\u307e\u3059\u304c\u3001\u3054\u53c2\u8003\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-22---23-43-17.jpg\" target=\"_blank\" rel=\"noopener noreferrer\"><img decoding=\"async\" loading=\"lazy\" src=\"https:\/\/euc-access-excel-db.com\/00000WPIMG\/2018-07-22---23-43-17.jpg\" alt=\"\" width=\"100%\" height=\"100%\" ><\/a><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\nDAO\u3084ADO\u306e\u5834\u5408\u306f\u3001\u300c\u5217\u300d\u00d7\u300c\u884c\u300d\u3068\u3044\u3046\u6307\u5b9a\u3060\u3051\u3067\u3059\u3050\u306b\u8aad\u307f\u306b\u884c\u3051\u308b\u308f\u3051\u3067\u306f\u306a\u304f\u3066\u3001\u3044\u3063\u305f\u3093\u3001\u76ee\u7684\u306e\u884c\u306b\u79fb\u52d5\u3057\u3066\u304b\u3089\u5217\u3092\u6307\u5b9a\u3057\u3066\u30af\u30ed\u30b9\u3057\u305f\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u8fbc\u307f\u307e\u3059\u3002<\/p>\n<p>\u3053\u308c\u306f1\u30b7\u30fc\u30c8\u4e0a\u306b\u8907\u6570\u306e\u8868\u304c\u3042\u308b\u5834\u5408\u3082\u540c\u3058\u3067\u3059\u3002<\/p>\n<p>\u4f8b\u3048\u3070\u3001\u300cB1\u300d\u306e\u30bb\u30eb\u304c\u8d77\u70b9\u306e\u30bb\u30eb\u3067\u3001\u3059\u306a\u308f\u3061\u3001B\u5217\u304c\u300cF1\u300d\u306b\u306a\u3063\u3066\u3044\u305f\u72b6\u6cc1\u3092\u8003\u3048\u3066\u307f\u307e\u3059\u3002<\/p>\n<p>\u307e\u305a\u3001\u884c\u756a\u53f7\u300c1\u300d\u306e\u3059\u3079\u3066\u306e\u6a2a\u65b9\u5411\u306e\u30bb\u30eb\u9054\u306f\u3001\u5168\u90e8\u5217\u540d\u3068\u3057\u3066\u3068\u3089\u3048\u3089\u308c\u3066\u3044\u307e\u3059\u3002<br \/>\n\u3067\u3059\u306e\u3067\u3001\u884c\u756a\u53f7\u300c2\u300d\u306e\u884c\u304c\u5b9f\u30c7\u30fc\u30bf\u3068\u3057\u3066\u306e\u300c1\u884c\u76ee\u300d\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u306a\u306e\u3067\u3001\u3053\u306e\u72b6\u6cc1\u306e\u3068\u304d\u306b\u3082\u3057\u300cC10\u300d\u306e\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u306b\u884c\u304d\u305f\u3044\u3068\u3044\u3046\u5834\u5408\u306f\u3001\u307e\u305a\u300c10\u30de\u30a4\u30ca\u30b92\u300d\u3067\u3001\u5b9f\u30c7\u30fc\u30bf\u3068\u3057\u3066\u306e\u300c8\u884c\u5206\u300d\u3092\u79fb\u52d5\u3057\u307e\u3059\u3002<\/p>\n<p>\u3053\u306e\u3068\u304d\u3001\u306a\u305c\u300c10\u30de\u30a4\u30ca\u30b91\u300d\u3067\u306f\u306a\u304f\u3066\u300c10\u30de\u30a4\u30ca\u30b92\u300d\u306b\u306a\u308b\u306e\u304b\u3068\u3044\u3046\u3053\u3068\u304c\u7591\u554f\u306b\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u305d\u306e\u3053\u3068\u306b\u3064\u3044\u3066\uff08\u4e0b\u624b\u304f\u305d\u3067\u3059\u307f\u307e\u305b\u3093\u304c\uff09\u3054\u8aac\u660e\u3057\u307e\u3059\u3068\u3001\u307e\u305a\u3001DAO\u3084ADO\u3067\u306f\u3001\uff08Access\u3067\u306f\u306a\u304f\u3066\uff09Excel\u306e\u5834\u5408\u3001\u6700\u521d\u306b\u4f4d\u7f6e\u3057\u3066\u3044\u308b\u884c\u306e\u5834\u6240\u306f\u30b7\u30fc\u30c8\u3068\u3057\u3066\u306e\u884c\u756a\u53f7\u300c2\u300d\u306e\u884c\u3067\u3042\u308a\u3001\u305d\u3057\u3066\u305d\u3053\u306b\u65e2\u306b\u300c\u4eca\u5c45\u308b\u300d\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002\uff08\u4eca\u5c45\u308b\u884c\u306e\u3053\u3068\u3092\u300c\u30ab\u30ec\u30f3\u30c8\u884c\u300d\u3068\u547c\u3073\u307e\u3059\u3002\uff09<\/p>\n<p>DAO\u3084ADO\u306f\u3001\u300c\u305d\u306e\u8a8d\u8b58\u304c\u524d\u63d0\u300d\u300c\u304d\u307e\u308a\u30fb\u639f\u300d\u3068\u306a\u3063\u3066\u3044\u308b\u6a5f\u80fd\u306a\u306e\u3067\u3059\u3002<\/p>\n<p>\u3060\u304b\u3089\u3001\u305d\u3053\u304b\u30891\u884c\u5206\u79fb\u52d5\u3059\u308c\u3070B3\u306e\u884c\u30fb\u30fb\u30fb\u30012\u884c\u5206\u79fb\u52d5\u3059\u308c\u3070B4\u306e\u884c\u30fb\u30fb\u30fb\u30013\u884c\u5206\u79fb\u52d5\u3059\u308c\u3070B5\u306e\u884c\u30fb\u30fb\u30fb\u3068\u3044\u3046\u98a8\u306b\u306a\u3063\u3066\u3044\u304d\u307e\u3059\u3002<\/p>\n<p>\u3064\u307e\u308a\u3001\u300c\u884c\u6570\u3068\u3057\u3066\u306f\u30b7\u30fc\u30c8\u306e\u884c\u756a\u53f7\u30de\u30a4\u30ca\u30b9\uff11\u300d\u306a\u3093\u3060\u3051\u308c\u3069\u3082\u3001\u76ee\u7684\u306e\u30bb\u30eb\u306b\u79fb\u52d5\u3059\u308b\u305f\u3081\u306e\u300c\u79fb\u52d5\u3059\u308b\u884c\u306e\u6570\u300d\u3068\u3057\u3066\u306f\u300c\u884c\u756a\u53f7\u30de\u30a4\u30ca\u30b9\uff12\u300d\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u3001\u610f\u5473\u304c\u7570\u306a\u308b\u305f\u3081\u3001\u8a71\u3068\u3057\u3066\u306f\u3061\u3087\u3063\u3068\u3084\u3084\u3053\u3057\u304f\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u305f\u3060\u307e\u3042\u3001\u305d\u3046\u6df1\u304f\u8003\u3048\u305a\u306b\u3001<br \/>\n\u300c\u884c\u6570\u3068\u3057\u3066\u306f\u3001\u4eca\u5c45\u308b\u5834\u6240\u3068\u3057\u3066\u306f\u3001\u30b7\u30fc\u30c8\u306e\u884c\u756a\u53f7\u30de\u30a4\u30ca\u30b9\uff11\u300d\u306a\u3093\u3060\u3051\u308c\u3069\u3082<br \/>\n\u300c\u6700\u521d\u306e\u884c\u304b\u3089\u76ee\u7684\u306e\u30bb\u30eb\u306b\u79fb\u52d5\u3059\u308b\u6570\u3068\u3057\u3066\u306f\u30b7\u30fc\u30c8\u306e\u884c\u756a\u53f7\u30de\u30a4\u30ca\u30b9\uff12\u300d\uff08\u76ee\u7684\u306e\u30bb\u30eb\u306e\u884c\u756a\u53f7\u20152\uff09<br \/>\n\u30fb\u30fb\u30fb\u3068\u3044\u3046\u98a8\u306b\u6df1\u304f\u8003\u3048\u305a\u306b\u6c7a\u3081\u6253\u3061\u3057\u3066\u899a\u3048\u3066\u3057\u307e\u3048\u3070\u3088\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u305d\u306e\u5f8c\u3001\u300cC\u5217\u300d\u3092\u8aad\u307f\u305f\u3044\u308f\u3051\u306a\u306e\u3067\u3001\u300c\u8d77\u70b9\u306eB\u5217\uff1dF1\uff1d\u5217\u756a\u53f70\u300d\u3068\u3044\u3046\u3053\u3068\u304b\u3089\u3059\u308b\u3068\u30011\u5217\u53f3\u306b\u306a\u308b\u308f\u3051\u3067\u3059\u304b\u3089\u3001\u300cC\u5217\uff1dF2\uff1d\u5217\u756a\u53f71\u300d\u3068\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u3068\u3044\u3046\u3051\u3067\u3001\u300cB\u5217\u304c\u8d77\u70b9\u306e\u5834\u5408\u300d\u306b\u300cC10\u300d\u306e\u30bb\u30eb\u3092\u30d4\u30f3\u30dd\u30a4\u30f3\u30c8\u3067\u8aad\u307f\u306b\u884c\u304d\u305f\u3044\u5834\u5408\u306f\u3001\u307e\u305a\u3001\u300c8\u884c\u5206\u300d\u3092\u79fb\u52d5\u3057\u3066\u3001\u305d\u306e\u306e\u3061\u3001\u300cRS.Fields(\"F2\")\u300d\u3042\u308b\u3044\u306f\u300cRS.Fields(1)\u300d\u3092\u8aad\u307f\u306b\u884c\u3051\u3070\u3044\u3044\u3068\u3044\u3046\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u203b\u300cWith\u300d\u3067\u307e\u3068\u3081\u3066\u3042\u308b\u5834\u5408\u306f\u3001\u300cRS\u300d\u306f\u7701\u7565\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\u5b9f\u969b\u306b\u66f8\u304f\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u3057\u3066\u306f\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p><span style=\"color: #0000ff;\"><b>RS.Move (8)\u3000\u3000\u3000\u3000\u20198\u56de\uff088\u884c\u5206\uff09\u4e0b\u306b\u4e0b\u304c\u3063\u3066\u3001\u30b7\u30fc\u30c8\u3068\u3057\u3066\u306e\u884c\u756a\u53f710\u306e\u884c\u3078\u79fb\u52d5\u3002<br \/>\nDebug.Print RS.Fields(1)\u3000\u3000\u2019B\u306e\u5217\u304b\u30891\u3064\u53f3\u306e\u5217\u3001\u3064\u307e\u308aC\u5217\u306e\u305d\u306e\u884c\u306e\u5024\u3092\u8868\u793a<\/b><\/span><\/p>\n<p>\u300cDo Until RS.EOF \uff5e Loop\u300d\u306e\u884c\u3092\u5168\u90e8\u6d88\u3059\u304b\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u3066\u3001\u3053\u306e2\u884c\u306b\u66f8\u304d\u63db\u3048\u307e\u3059\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n\u3082\u3061\u308d\u3093\u300cRS.Fields(1)\u300d\u306f\u300cRS.Fields(\"F2\")\u300d\u3068\u66f8\u3044\u3066\u3082OK\u3067\u3059\u3002<\/p>\n<p>\u306a\u304a\u3001\u30af\u30ed\u30b9\u3067\u5024\u3092\u6c42\u3081\u305f\u3044\u3068\u304d\u306f\u3001\u3042\u3089\u304b\u3058\u3081\u300e\u30b7\u30fc\u30c8\u5185\u306e\u8907\u6570\u306e\u8868\u3092\u3059\u3079\u3066\u542b\u3093\u3067\u8003\u3048\u305f\u901a\u3057\u306e\u884c\u756a\u53f7\uff08\u9023\u756a\uff09\u300f\u3092\u3075\u3063\u3066\u304a\u3051\u3070\u3001SQL\u3067\u3082\u6c42\u3081\u3089\u308c\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002\uff08\u30a8\u30e9\u30fc\u3067\u3067\u304d\u306a\u3044\u53ef\u80fd\u6027\u3082\u3042\u308a\u307e\u3059\u304c\u30fb\u30fb\u30fb\uff09<br \/>\n\u305f\u3060\u3001\uff08Access\u3067\u306eDAO\u30fbADO\u3067\u306f\u306a\u304f\u3066\uff09Excel\u306e\u5834\u5408\u306f\u3001\u4e0a\u8a18\u306e\u3088\u3046\u306b\u30b7\u30fc\u30c8\uff1d\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u306e\u5217\u756a\u53f7\uff08A\u3001B\u3001C\u3001\u30fb\u30fb\u30fb\uff09\u3084\u884c\u756a\u53f7\uff081\u30012\u30013\u3001\u30fb\u30fb\u30fb\uff09\u3092\u53c2\u8003\u30fb\u6307\u6a19\u3068\u3057\u3066\u4f7f\u3048\u308b\u306e\u3067\u3001\u305d\u308c\u3092\u5229\u7528\u3059\u308b\u307b\u3046\u304c\u79c1\u305f\u3061\u521d\u5fc3\u8005\u306b\u306f\u308f\u304b\u308a\u3084\u3059\u3044\u3068\u306f\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u3061\u306a\u307f\u306b\u3067\u3059\u304c\u3001Access\u306b\u304a\u3051\u308bDAO\u30fbADO\u3067\u306f\u3001Excel\u306e\u3088\u3046\u306a\u300c\u5217\u756a\u53f7\uff08A\u3001B\u3001C\u3001\u30fb\u30fb\u30fb\uff09\u3084\u884c\u756a\u53f7\uff081\u30012\u30013\u3001\u30fb\u30fb\u30fb\uff09\u300d\u3068\u3044\u3046\u6982\u5ff5\u304c\u7121\u3044\u306e\u3067\u3069\u3061\u3089\u306e\u65b9\u6cd5\u3082\u3088\u304f\u4f7f\u3044\u307e\u3059\u3002<\/p>\n<p>\u307e\u305f\u3001\u9006\u306b\u3001Excel\u3067\u3082\u8907\u96d1\u306a\u6761\u4ef6\u3067\u30af\u30ed\u30b9\u306e\u5024\u3092\u898b\u305f\u3044\u5834\u5408\u306f\u3001SQL\u3067\u6c42\u3081\u305f\u307b\u3046\u304c\u4fbf\u5229\u306b\u306a\u308b\u30b7\u30fc\u30f3\u3082\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<br \/>\n\u30a8\u30e9\u30fc\u3067\u3067\u304d\u306a\u3044\u53ef\u80fd\u6027\u3082\u3042\u308a\u307e\u3059\u304c\u30fb\u30fb\u30fb\u3002<br \/>\n\u307e\u3060\u8a66\u3057\u3066\u306a\u3044\u306e\u3067\u3001\u3082\u3057SQL\u3067\u8a66\u3057\u305f\u3044\u65b9\u306f\u4ee5\u4e0b\u306e\u8a18\u4e8b\u3092\u3054\u53c2\u8003\u306b\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u300eExcel2000\u306b\u3066\u8868\u3068\u8868\u3092\u7d10\u4ed8\u3051\u3059\u308b\u3068\u304d\u306b\u3001VLOOKUP\u95a2\u6570\u4ee5\u5916\u306b\u3001\u300cDAO\u300d\u3068\u3044\u3046\u30df\u30c9\u30eb\u30a6\u30a7\u30a2\u3092\u4f7f\u3063\u3066\u3001\u7d10\u4ed8\u3044\u305f\u5024\u3092\u3001\uff11\u3064\u306e\u30bb\u30eb\u306b\u8868\u793a\u3059\u308b\u65b9\u6cd5\u300f<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct09_biz-pctec\/ct090201_biz_pc_basic\/relationship-dao01\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/euc-access-excel-db.com\/tips\/ct09_biz-pctec\/ct090201_biz_pc_basic\/relationship-dao01<\/a><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_445\">(07)\u5217\u3068\u884c\u304c\u30af\u30ed\u30b9\u3059\u308b\uff11\u3064\u306e\u30bb\u30eb\u306e\u5024\u306e\u8aad\u307f\u8fbc\u307f\u2192\u300cExecuteExcel4Macro\u300d\u3082\u8996\u91ce\u306b\u3002<\/a><br \/>\n\u4ed6\u306e\u9589\u3058\u305f\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u300c\u5217\u3068\u884c\u3067\u30af\u30ed\u30b9\u3059\u308b\u30bb\u30eb\u306e\u5024\u300d\u3092\u8aad\u307f\u8fbc\u307f\u305f\u3044\u3068\u304d\u3001\u3082\u3061\u308d\u3093\u3067\u3059\u304c\u3001\u305d\u306e\u30bb\u30eb\u306e\u6570\u304c\u5c11\u306a\u3044\u306a\u3089\u3001\u300cExecuteExcel4Macro\u300d\u3092\u4f7f\u3046\u3053\u3068\u3082\u8996\u91ce\u306b\u5165\u308c\u3066\u304f\u3060\u3055\u3044\u3002<br \/>\n\u5225\u306b\u3001\u7121\u7406\u306bDAO\u3067\u3084\u308b\u5fc5\u8981\u3082\u3042\u308a\u307e\u305b\u3093\u306e\u3067\u30fb\u30fb\u30fb\u3002<\/p>\n<p>DAO\u3084ADO\u306e\u307b\u3046\u304c\u4fbf\u5229\u306a\u30b1\u30fc\u30b9\u306e\u3068\u304d\u3060\u3051\u3001\u305d\u308c\u3089\u3092\u4f7f\u3063\u3066\u3001\u4ed6\u306e\u9589\u3058\u305f\u30d5\u30a1\u30a4\u30eb\u306e\u5024\u306e\u53d6\u5f97\u3092\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>\u300cExecuteExcel4Macro\u300d\u3092\u4f7f\u3046\u3069\u3093\u306a\u30b1\u30fc\u30b9\u304c\u3042\u308b\u304b\u3057\u3089\u3093\uff1f<\/p>\n<p>\u4f8b\u3048\u3070\u3001\u8aad\u307f\u8fbc\u307f\u305f\u3044\u30bb\u30eb\u304c\u6570\u767e\u500b\u3068\u3044\u3046\u300c\u8868\u300d\u306e\u3088\u3046\u306a\u5834\u5408\u3084\u3001\u5358\u4e00\u30bb\u30eb\u3092\u30d0\u30e9\u30d0\u30e9\u306b100\u500b\u8aad\u307f\u8fbc\u307f\u305f\u3044\u3001\u3068\u3044\u3046\u3088\u3046\u306a\u30b1\u30fc\u30b9\u306a\u3089\u3001DAO\u3084ADO\u306e\u307b\u3046\u304c\u4fbf\u5229\u306a\u6c17\u304c\u3057\u307e\u3059\u306d\u3002<br \/>\n\uff08\u3042\u304f\u307e\u3067\u3001\u8aad\u307f\u8fbc\u307f\u305f\u3044\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u306f\u300c\u9589\u3058\u305f\u307e\u307e\u300d\u306e\u5834\u5408\u3067\u3059\u3002\uff09<\/p>\n<p>\u9006\u306b\u3001\u300c\u5358\u4e00\u30bb\u30eb\u3092\uff14\u3001\uff15\u500b\uff08\uff1d\u6570\u500b\u3060\u3051\uff09\u3001\u8aad\u307f\u8fbc\u3081\u308c\u3070\u3044\u3044\u300d\u3001\u307f\u305f\u3044\u306a\u5834\u5408\u306fDAO\u3084ADO\u3058\u3083\u306a\u304f\u3066\u300cExecuteExcel4Macro\u300d\u306e\u307b\u3046\u304c\u3044\u3044\u304b\u3082\u3067\u3059\u306d\u3002<\/p>\n<p>\u307e\u305f\u3001\u8ab0\u304b\u304c\u3059\u3067\u306b\u958b\u3044\u3066\u3044\u308bExcel\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u3055\u3089\u306b\u8aad\u307f\u306b\u884c\u304f\u3001\u306a\u3093\u3066\u3053\u3068\u304c\u300cDAO\u3084ADO\u3067\u306f\u3067\u304d\u306a\u3044\u3001\u3068\u3044\u3046\u3053\u3068\u306a\u3089\u3001\u305d\u306e\u5834\u5408\u3082\u300cExecuteExcel4Macro\u300d\u3092\u4f7f\u3063\u305f\u307b\u3046\u304c\u3044\u3044\u3067\u3059\u3088\u306d\u3002<br \/>\n\u691c\u8a3c\u3057\u3066\u307e\u305b\u3093\u306e\u3067\u3054\u81ea\u5206\u3067\u3082\u3054\u78ba\u8a8d\u304f\u3060\u3055\u3044\u307e\u305b\u3002<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_470\">(08)\u540c\u3058\u30b3\u30fc\u30c9\u3067\u4eee\u60f3\u30de\u30b7\u30f3\u306e\u300cWin2000\uff0bExcel2000\u300d\u3067\u3082\u8a66\u3057\u3066\u307f\u305f\u7d50\u679c<\/a><\/p>\n<p>\u4e00\u5fdc\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306b\u3066\u3001Win2000\uff0bExcel2000\u3067\u3082\u30af\u30ed\u30b9\u96c6\u8a08\u8868\u3092\u30b7\u30b9\u30c6\u30e0\u30c6\u30fc\u30d6\u30eb\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n<p><span style=\"color: #ff0000;\"><b>\u3067\u3082\u3001F1\u306e\u5217\uff08\u756a\u53f70\u306e\u5217\uff09\u304c\u3001\u3069\u3046\u3084\u3089\u300c\u8d77\u70b9\u306e\u30bb\u30eb\u300d\u304c\u95a2\u4fc2\u306a\u304f\u3066\u3001A\u5217\uff1dF1\uff1d0\u756a\u3001\u3068\u3044\u3046\u611f\u3058\u306b\u306a\u3063\u3066\u52d5\u3044\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3002<\/b><\/span><\/p>\n<p>\u3053\u306e\u52d5\u304d\u306f\u3001\u300cxls\u62e1\u5f35\u5b50\u3060\u304b\u3089\u300d\u3067\u306f\u306a\u3044\u3088\u3046\u3067\u3059\u3002<br \/>\nWin10\uff0bExce2010\u3067\u3053\u306exls\u30d5\u30a1\u30a4\u30eb\u3092\u52d5\u304b\u3057\u305f\u3089\u3001xlsm\u3069\u540c\u69d8\u306b\u8d77\u70b9\u30bb\u30eb\u304b\u3089F1\u5217\u306b\u306a\u3063\u3066\u3044\u307e\u3057\u305f\u3002<br \/>\n\u306a\u306e\u3067\u3001OS\u304b\u3001Excel\u304b\u3001\u306f\u305f\u307e\u305f\u3001ODBC\u30c9\u30e9\u30a4\u30d0\u304b\u4f55\u304b\u306e\u305b\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n<p>\u306a\u305c\u3053\u3046\u306a\u308b\u306e\u304b\u306f\u308f\u304b\u308a\u307e\u305b\u3093\u3057\u3001\u50d5\u306ePC\u3060\u3051\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n<p>2010\u3067\u306f\u3001xlsm\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3082\u3001xls\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3082\u3001\u8d77\u70b9\u30bb\u30eb\u304b\u3089\u8aad\u307f\u8fbc\u307e\u308c\u3066\u3044\u3066\u3001\u8d77\u70b9\u30bb\u30eb\u306e\u5217\u306e\u5de6\u5074\u306e\u7a7a\u767d\u5217\u306f\u5168\u90e8\u7121\u8996\u3055\u308c\u3066\u3044\u308b\u611f\u3058\u3067\u3059\u30fb\u30fb\u30fb<\/p>\n<p>\u4eee\u60f3\u30de\u30b7\u30f32000\u306e\u5834\u5408\u306fxlsm\u30d5\u30a1\u30a4\u30eb\u306f\u8aad\u3081\u307e\u305b\u3093\u304c\u3001xls\u3092\u8aad\u307f\u884c\u304f\u3068\u3001\u3053\u306e\u9805\u306e\u30c6\u30b9\u30c8\u306e\u3088\u3046\u306a\u52d5\u304d\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\uff08\u3042\u304f\u307e\u3067\u50d5\u306ePC\u306f\u3001\u3067\u3059\u304c\u30fb\u30fb\u30fb\uff09<\/p>\n<p><span style=\"color: #008000;\"><b>\u3044\u305a\u308c\u306b\u3057\u3066\u3082\u3001\u300c\u30d0\u30fc\u30b8\u30e7\u30f3\u3054\u3068\u30fbOS\u3054\u3068\u30fb\u74b0\u5883\u3054\u3068\u306b \u52d5\u304d\u304c\u9055\u3046\u300d\u304b\u3082\u3057\u308c\u306a\u3044\u306e\u3067\u3001\u4e8b\u524d\u306b\u3001\u7570\u306a\u308b\u52d5\u304d\u306b\u306a\u3089\u306a\u3044\u304b\u3092\u78ba\u304b\u3081\u3066\u304a\u3044\u305f\u307b\u3046\u304c\u3088\u3055\u305d\u3046\u3067\u3059\u3002<\/b><\/span><\/p>\n<p>\u203b\u3053\u3061\u3089\u3082\u307e\u3060UNC\u30d1\u30b9\u3067\u306e\u30c6\u30b9\u30c8=\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u8d8a\u3057\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u30af\u30ed\u30b9\u96c6\u8a08\u8868\u3092\u8aad\u307f\u306b\u884c\u304f\u30c6\u30b9\u30c8\u306f\u3067\u304d\u3066\u3044\u307e\u305b\u3093\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<a name=\"lbl_474\">\u2605 LAN\u3067\u3064\u306a\u304c\u3063\u305f\u30d5\u30a1\u30a4\u30eb\u30b5\u30fc\u30d0\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092DAO\u3067\u8aad\u307f\u306b\u884c\u304f\u30c6\u30b9\u30c8<\/a><br \/>\n\u540c\u3058\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u3067Excel2013 \u306b\u3066\u3001xls\u62e1\u5f35\u5b50\u306e\u30d5\u30a1\u30a4\u30eb\u3092DAO\u306b\u3066\u8aad\u307f\u306b\u3044\u3063\u305f\u3089\u3001\u30a8\u30e9\u30fc\u7121\u304f\u8aad\u3081\u307e\u3057\u305f\u3002<br \/>\nxlsm\u306e\u5834\u5408\u306f\u3001DAO\u3067\u306f\u8aad\u3081\u307e\u305b\u3093\u3067\u3057\u305f\u3002\u958b\u3044\u3066\u3042\u308c\u3070\u8aad\u3081\u308b\u306e\u3067\u3059\u304c\u3001\u9589\u3058\u305f\u307e\u307e\u8aad\u307f\u305f\u304b\u3063\u305f\u306e\u3067\u30c0\u30e1\u3067\u3057\u305f\u3002<\/p>\n<p>\u305f\u3060\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u3092DAO\u3067\u306f\u306a\u304f\u3001ADO\u306b\u66f8\u304d\u63db\u3048\u3066\u8aad\u307f\u306b\u884c\u3063\u305f\u3089\u5927\u4e08\u592b\u3067\u3057\u305f\u3002<br \/>\n\u307e\u305f\u3001xls\u306b\u3064\u3044\u3066\u306fADO\u3067\u3082\u8aad\u3081\u307e\u3057\u305f\u3002<\/p>\n<p>\u305f\u305f\u3001\u30b1\u30fc\u30b9\u306b\u3088\u3063\u3066\u306f\u3001DAO\u306e\u307b\u3046\u304c\u6700\u521d\u306e\u30a2\u30af\u30bb\u30b9\u3060\u3051\u306f\u901f\u3044\u3088\u3046\u306a\u6c17\u304c\u3057\u307e\u3057\u305f\u3002<br \/>\nADO\u306f\u4e00\u756a\u6700\u521d\u306e\u30a2\u30af\u30bb\u30b9\u6642\u306b\u6570\u79d2\u306e\u6642\u9593\u304c\u304b\u304b\u308b\u3053\u3068\u304c\u591a\u304b\u3063\u305f\u3067\u3059\u3002<br \/>\n\u305f\u3060\u3001\u305d\u308c\u304c\u6c17\u306b\u306a\u3089\u306a\u306a\u3044\u30b7\u30fc\u30f3\u306a\u3089\u3001ADO\u306e\u307b\u3046\u304c\u826f\u3044\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<br \/>\nADO\u306a\u308964bit\u306eExcel\u3067\u3082\uff08\u3082\u3061\u308d\u3093OS\u304c64bit\u3067\u3082\uff09\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u63db\u3048\u305a\u306b\u4f7f\u3048\u308b\u307f\u305f\u3044\u3067\u3059\u306e\u3067\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><a name=\"lbl_480\">\u2605 \u300c\u5916\u90e8\u30c6\u30fc\u30d6\u30eb\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u304c\u6b63\u3057\u304f\u3042\u308a\u307e\u305b\u3093\u300d\u30a8\u30e9\u30fc\u304c\u51fa\u305f\u308a\u3057\u305f\u5834\u5408\u306e\u5bfe\u51e6<\/a><\/p>\n<p>\u307e\u305a\u3001\u3053\u3053\u3067\u66f8\u3044\u3066\u3044\u308b\u3053\u3068\u306f32\u30d3\u30c3\u30c8\u7248\u306eExcel\u306b\u3064\u3044\u3066\u306e\u8a71\u3067\u3059\u3002\uff08\u30d0\u30fc\u30b8\u30e7\u30f3\u306f2010\uff09<br \/>\n\uff0864bit\u7248\u306eExcel\u306fDAO\u304c\u4f7f\u3048\u306a\u304b\u3063\u305f\u6c17\u304c\u3059\u308b\u306e\u3067\u3001\u300cExcel.Application\u300d\u3092\u4f7f\u3046\u65b9\u6cd5\u304b\u3001ADO\u3092\u4f7f\u3046\u65b9\u6cd5\u306b\u306a\u308b\u3068\u601d\u3044\u307e\u3059\u3002\uff09<\/p>\n<p>\u307e\u305f\u3001\u8aad\u307f\u8fbc\u307f\u305f\u3044\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u3001\u4eca\u306e\u81ea\u30d1\u30bd\u30b3\u30f3\u5185\u306b\u3042\u3063\u3066\u3082\u3001\u30d5\u30a1\u30a4\u30eb\u30b5\u30fc\u30d0\u306b\u3042\u3063\u3066\u3082\u3001\u3069\u3061\u3089\u306e\u5834\u5408\u3082\u3067\u3059\u3002\uff08\u300c\u30d5\u30a1\u30a4\u30eb\u30b5\u30fc\u30d0\u306b\u3042\u308b\u300d\u3068\u3044\u3046\u3053\u3068\u306f\u3001\u300c\uffe5\uffe5\u30b5\u30fc\u30d0\u540d\uffe5\u5171\u6709\u30d5\u30a9\u30eb\u30c0\u540d\u300d\u3001\u3068\u3044\u3063\u305fUNC\u30d1\u30b9\u3092\u4f7f\u3046\u5834\u5408\u306e\u3053\u3068\u3092\u6307\u3057\u307e\u3059\u3002DAO\u3067\u306f\u3001xls\u62e1\u5f35\u5b50\u3060\u3051\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u3001xlsm\u62e1\u5f35\u5b50\u306f\u30c0\u30e1\u3067\u3059\u304c\u3001UNC\u30d1\u30b9\u306e\u30d5\u30a1\u30a4\u30eb\u3082\u8aad\u307f\u306b\u884c\u3051\u307e\u3059\u3002\uff09<\/p>\n<p>DAO\u3084ADO\u3067\u300c\u9589\u3058\u305fExcel\u30d5\u30a1\u30a4\u30eb\u300d\u306e\u4e2d\u8eab\u3092\u8aad\u307f\u306b\u884c\u304f\u3068\u3001\u300c\u5916\u90e8\u30c6\u30fc\u30d6\u30eb\u306e\u30d5\u30a9\u30fc\u30de\u30c3\u30c8\u304c\u6b63\u3057\u304f\u3042\u308a\u307e\u305b\u3093\u300d\u3068\u3044\u3046\u30a8\u30e9\u30fc\u306b\u51fa\u304f\u308f\u3059\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u3053\u308c\u306f\u7279\u306b\u3001\u300cDAO\u306b\u3066\u300d\u3001xlsm\u62e1\u5f35\u5b50\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u884c\u304f\u3068\u304d\u306b\u591a\u3044\u307f\u305f\u3044\u3067\u3059\u3002<\/p>\n<p>\u50d5\u306e\u74b0\u5883\u3067\u306f\u3001\u8aad\u307f\u8fbc\u307f\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u3069\u3053\u306b\u3042\u308d\u3046\u304c\u3001\u30ed\u30fc\u30ab\u30eb\u3060\u308d\u3046\u304c\u30b5\u30fc\u30d0\u4e0a\u3060\u308d\u3046\u304c\u3001\u305d\u306e\u62e1\u5f35\u5b50\u304cxlsx\u3084xlsm\u3060\u3068\u3001DAO\u3067\u8aad\u307f\u306b\u884c\u304f\u3068\u5fc5\u305a\u3053\u306e\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u300cSrcXLFName = \"d:\\tes1.xls\" \u300d\u306e\u5185\u5bb9\u3092\u3001\u4eca\u958b\u3044\u3066\u3044\u308b\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u306b\u66f8\u304d\u63db\u3048\u3066\u3001\u81ea\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u306b\u304d\u305f\u3068\u304d\u3060\u3051\u306f\u3082\u3061\u308d\u3093\u8aad\u3081\u308b\u306e\u3067\u3059\u304c\u30fb\u30fb\u30fb\u3002<\/p>\n<p>\u81ea\u30d5\u30a1\u30a4\u30eb\u3058\u3083\u306a\u304f\u3066\u3001\u5225\u30d5\u30a1\u30a4\u30eb\u3067\u30fb\u304b\u3064\u30fb\u9589\u3058\u3066\u3044\u308b\u3082\u306e\u3092\u8aad\u307f\u306b\u884c\u304f\u3068\u3001xlsx\u3084xlsm\u306e\u62e1\u5f35\u5b50\u3060\u3068\u5fc5\u305a\u3053\u306e\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u305d\u3093\u306a\u3068\u304d\u3001\u3053\u306e\u30a8\u30e9\u30fc\u3092\u51fa\u3055\u305b\u306a\u3044\u65b9\u6cd5\u306f\u4ee5\u4e0b\u306e\u901a\u308a\u3067\u3059\u3002<\/p>\n<p>(01)\u8aad\u307f\u306b\u884c\u304f\u30d5\u30a1\u30a4\u30eb\u3092xls\u62e1\u5f35\u5b50\u306b\u4f5c\u308a\u66ff\u3048\u308b<br \/>\n\u3082\u3057\u8aad\u307f\u306b\u884c\u304f\u30d5\u30a1\u30a4\u30eb\u3092\u300cxls\u62e1\u5f35\u5b50\u306b\u4f5c\u308a\u66ff\u3048\u3066\u3082\u554f\u984c\u304c\u7121\u3044\u300d\u306a\u3089\u3001xls\u62e1\u5f35\u5b50\u306e\u30d5\u30a1\u30a4\u30eb\u306b\u4f5c\u308a\u66ff\u3048\u3066\u8aad\u307f\u306b\u884c\u304d\u307e\u3059\u3002\u76f8\u624b\u304cxls\u62e1\u5f35\u5b50\u306a\u3089\u3001xlsm\u30d5\u30a1\u30a4\u30eb\u306a\u3069\u304b\u3089\u8aad\u307f\u306b\u3063\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u305b\u3093\u306e\u3067\u3002<\/p>\n<p>\u57fa\u672c\u7684\u306b\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306f\uff08\u8aad\u307f\u306b\u884c\u304f\u30d5\u30a1\u30a4\u30eb\u306e\u540d\u524d\uff08\u62e1\u5f35\u5b50\u90e8\u5206\u306e\u307f\uff09\u3092xlsm\u304b\u3089xls\u306b\u5909\u3048\u308b\u4ee5\u5916\u306f\u3001\u4ed6\u306f\u4e00\u5207\u5909\u3048\u308b\u5fc5\u8981\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u30a8\u30e9\u30fc\u306f\u51fa\u306a\u304f\u306a\u308a\u307e\u3059\u3002<br \/>\n\u4f8b\u3048\u3070\u4e8b\u60c5\u304c\u3042\u3063\u3066\u3001\u30d0\u30fc\u30b8\u30e7\u30f32003\u306e\u7248\u306a\u3069\u3068\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u3092\u4e00\u7dd2\u306b\u3057\u3066\u304a\u304d\u305f\u3044\u5834\u5408\u306a\u3069\u306f\u305d\u3046\u3057\u307e\u3059\u3002<\/p>\n<p>\u3042\u3068\u3001\u5f8c\u8ff0(03)\u306eADO\u3067\u901f\u5ea6\u304c\u51fa\u306a\u3044\u3068\u304d\u3001\u3082\u3057\u3001\u3053\u306e\u65b9\u6cd5\u3067\u3082\u3088\u3051\u308c\u3070\u3001\u3053\u306e\u65b9\u6cd5\u3067\u3084\u308a\u307e\u3059\u3002<br \/>\nDAO\u306e\u307b\u3046\u304c\u5c11\u3057\u3060\u3051\u901f\u3044\u3063\u307d\u3044\u611f\u3058\u304c\u3059\u308b\u306e\u3067\u30fb\u30fb\u30fb\u3002<br \/>\n\u62e1\u5f35\u5b50\u3092\u3069\u3046\u3057\u3082\u3066xlsm\u3084xlsx\u306a\u3069\u306b\u3057\u305f\u3044\u306a\u3089\u3001(02)\u3001(03)\u3092\u691c\u8a0e\u3057\u307e\u3059\u3002<\/p>\n<p>(02)\u8aad\u307f\u306b\u884c\u304f\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u3044\u3066\u304a\u304f<br \/>\n\u3082\u3057\u8aad\u307f\u306b\u884c\u304f\u30d5\u30a1\u30a4\u30eb\u3092\u3001\u5148\u306b\u958b\u3044\u3066\u3044\u3066\u3082\u3088\u3051\u308c\u3070\u3001\u8aad\u307f\u53d6\u308b\u5148\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u300c\u975e\u8868\u793a\u30e2\u30fc\u30c9\u300d\u306a\u3069\u3067\u3042\u3089\u304b\u3058\u3081\u958b\u3044\u3066\u304a\u304d\u307e\u3059\u3002\uff08\u30b5\u30fc\u30d0\u4e0a\u306b\u5728\u308b\u30d5\u30a1\u30a4\u30eb\u306a\u3089\u3001\u30b5\u30fc\u30d0\u5074\u3067\u958b\u304d\u3063\u3071\u306a\u3057\u306b\u3057\u3066\u3042\u308c\u3070OK\u3067\u3059\u3002\u305d\u306e\u5834\u5408\u306f\u3001\u305d\u306e\u76ee\u7684\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u305f\u3081\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u8ffd\u8a18\u3059\u308b\u5fc5\u8981\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u30af\u30e9\u30a4\u30a2\u30f3\u30c8\u5074\u304b\u3089\u305d\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304d\u305f\u3044\u5834\u5408\u306f\u958b\u304f\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n<p>\u305f\u3060\u307e\u3042\u3001\u305d\u308c\u3060\u3068\u300cExcel.Application\u300d\u3067\u51e6\u7406\u3059\u308b\u306e\u3068\u5909\u308f\u3089\u306a\u3044\u611f\u3058\u306b\u306a\u308b\u5834\u5408\u3082\u3042\u308b\u3068\u601d\u3044\u307e\u3059\u306e\u3067\u3001s\u306e\u5834\u5408\u306f\u3001\u300cExcel.Application\u300d\u3092\u4f7f\u3063\u3066\u3082\u3088\u3044\u3068\u601d\u3044\u307e\u3059\u3002<br \/>\nSQL\u3092\u3069\u3046\u3057\u3066\u3082\u4f7f\u3044\u305f\u3044\u3068\u304d\u306a\u3069\u306b\u9650\u3063\u3066\u306f\u3001DAO\u306b\u3066\u3001\u3053\u306e\u65b9\u6cd5\u3067\u3084\u308b\u3068\u3088\u3044\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n<p>\u306a\u304a\u3001\u300c\u4e2d\u8eab\u3092\u8aad\u307f\u306b\u884c\u304d\u305f\u3044\u30d5\u30a1\u30a4\u30eb\u306f\u3069\u3046\u3057\u3066\u3082\u9589\u3058\u3066\u304a\u304b\u306a\u3044\u3068\u307e\u305a\u3044\u300d\u3068\u3044\u3046\u3053\u3068\u306a\u3089\u3001(01)\u304b(03)\u306e\u3084\u308a\u65b9\u306b\u306a\u308b\u306e\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002\uff08\u4ed6\u306e\u826f\u3044\u65b9\u6cd5\u304c\u3042\u308c\u3070\u305d\u3061\u3089\u3067\u3002\uff09<\/p>\n<p>(03)DAO\u3092\u3084\u3081\u3066ADO\u3067\u3084\u308b<br \/>\nDAO\u3067\u3084\u308b\u3053\u3068\u306b\u56fa\u57f7\u3057\u306a\u304f\u3066\u3082\u3044\u3044\u306a\u3089\u3001ADO\u3067\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u306b\u66f8\u304d\u63db\u3048\u307e\u3059\u3002VBE\u753b\u9762\u3067\u306e\u53c2\u7167\u8a2d\u5b9a\u3082\u300cADO 2.8\u300d\u306a\u3069\u306e\u8a2d\u5b9a\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<br \/>\nADO\u306e\u52d5\u4f5c\u901f\u5ea6\u3067\u554f\u984c\u306a\u3044\u306a\u3089\u3001\u3053\u3061\u3089\u3092\u4f7f\u3046\u307b\u3046\u304c\u3059\u3063\u304d\u308a\u3059\u308b\u5834\u5408\u304c\u591a\u3044\u3067\u3059\u3002<br \/>\nDAO\u306e\u6642\u306b\u3082\u3057SQL\u6587\u3092\u4f7f\u3063\u3066\u3044\u305f\u306a\u3089\u3001\u305d\u308c\u3082\u307e\u3093\u307e\u3067\u79fb\u690d\u3068\u3044\u3046\u304b\u3001\u6d41\u7528\u3067\u304d\u305f\u304b\u3068\u601d\u3044\u307e\u3059\u3002\uff08\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\uff01\uff01\uff01\uff09<\/p>\n<p>\u8a73\u3057\u304f\u306f\u5225\u306e\u8a18\u4e8b\u3092\u66f8\u304d\u307e\u3059\u306d\u3002<\/p>\n<p>\u203b\u66f8\u304d\u307e\u3057\u305f\uff01<br \/>\n\u2193\u3053\u3061\u3089\u3067\u3059\u3002<\/p>\n<p>\u300eADO\uff1aExcel2010\u3067\u3001\u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\uff09\u30c7\u30fc\u30bf\u3092\u3067\u304d\u308b\u3060\u3051\u901f\u304f\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u30fc\u305d\u306e\uff12\uff08ADO\u306b\u3066\uff09\u300f<br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/readby-ado-01\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/readby-ado-01<\/a><\/p>\n<p><span style=\"color: #0000ff;\"><b>\u203b\u305d\u306e\u4ed6\u53c2\u8003\u8a18\u4e8b<br \/>\nDAO\u3001ADO\u3001Microsoft Query\u3001\u3067\u306f\u300c\u8aad\u307f\u8fbc\u307f\u300d\u3060\u3051\u3067\u306a\u304f\u3001<span style=\"color: #ff0000;\"><b>\u300c\u9589\u3058\u305f\u307e\u307e\u300d\u306e\u300c\u8907\u96d1\u6761\u4ef6\u96c6\u8a08\u300d\u3084\u300c\u66f8\u304d\u8fbc\u307f\u300d<\/b><\/span>\u3082\u3067\u304d\u307e\u3059\u3002<br \/>\n\u305f\u3060\u3057\u3001Excel\u306e\u5834\u5408\u306f\u306a\u3093\u3068\u300c\u524a\u9664\u300d\u304c\u3067\u304d\u306a\u3044\u306e\u3067\u5bfe\u5fdc\u7b56\u304c\u5fc5\u8981\u3067\u3059\u3002<br \/>\n\u5bfe\u5fdc\u7b56\u306f<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/dao-ado-msqry-qtobj-sql-can01#lbl_24\" target=\"_blank\" rel=\"noopener noreferrer\">\u3053\u3061\u3089\u3002\u300e\u3067\u304d\u306a\u3044\u3053\u3068\u300f<\/a>\u3002\uff08\u2190\u305d\u306e\u4ed6\u306e\u300c\u3067\u304d\u306a\u3044\u3053\u3068\u300d\u3082\u66f8\u3044\u3066\u3042\u308a\u307e\u3059\u3002\u306a\u304a\u3001\u300c\u3042\u3048\u3066\u524a\u9664\u3057\u306a\u3044\u300d\u3053\u3068\u3082\u7d50\u69cb\u3042\u308a\u307e\u3059\u3002\u4e0d\u6b63\u5bfe\u7b56\u3084\u6574\u5408\u6027\u7dad\u6301\u306e\u305f\u3081\u3067\u3059\u3002\u57fa\u672c\u3001\u524a\u9664\u30d5\u30e9\u30b0\u3092\u7acb\u3066\u308b\u3060\u3051\u3067\u3082\u5bfe\u5fdc\u3067\u304d\u307e\u3059\u3002\u3082\u3061\u308d\u3093\u3001\u8aad\u307f\u8fbc\u307f\u3060\u3051\u306b\u4f7f\u3063\u3066\u3082\u69cb\u3044\u307e\u305b\u3093\u3002\uff09<\/b><\/span><br \/>\n<a href=\"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/read_n_write_by_dao-ado-01\" target=\"_blank\" rel=\"noopener noreferrer\">Excel2010\u3067\u3001\u300e \u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\u3084xlsx\u30fbxlsm\uff09\u30d5\u30a1\u30a4\u30eb\u306e\u30c7\u30fc\u30bf \u300f\u3092\u8aad\u307f\u8fbc\u3080\u3060\u3051\u3067\u306a\u304f\u3001\u66f8\u304d\u8fbc\u3080\u65b9\u6cd5\u306e\u4e00\u89a7\u8868\uff08DAO\u3084ADO\u306b\u3066\uff09<\/a><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u25cf Excel2010\u3067\u3001\u958b\u304b\u308c\u3066\u3044\u306a\u3044\u9589\u3058\u305f\u307e\u307e\u306e\u30d6\u30c3\u30af\u30fbExcel\uff08xls\uff09\u30c7\u30fc\u30bf\u3092\u3067\u304d\u308b\u3060\u3051\u901f\u304f\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\uff08DAO\u306b\u3066\uff09 \u3000\u3000 \u3000\u3000 \u672c\u8a18\u4e8b\u306f\u300c32bit\u306e\u300dExcel\u3060\u3051\u3067\u306e\u304a\u8a71\u3067\u3059\u3002\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002 \u305f\u3060\u3001O ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[37],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/950"}],"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=950"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/950\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=950"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=950"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}