{"id":1989,"date":"2024-09-15T20:19:57","date_gmt":"2024-09-15T11:19:57","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1989"},"modified":"2025-01-20T23:22:42","modified_gmt":"2025-01-20T14:22:42","slug":"1cel-value-get01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/1cel-value-get01","title":{"rendered":"ExcelVBA \uff5e 64bit\u306eExcel\u306b\u3066\u3001\u300cDAO\u3067\u300d\u3001\u7279\u5b9a\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30011\u3064\u306e\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u3002"},"content":{"rendered":"<p>ExcelVBA \uff5e 64bit\u306eExcel\u306b\u3066\u3001\u300cDAO\u3067\u300d\u3001\u7279\u5b9a\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30011\u3064\u306e\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #ff0000;\">\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><a href=\"https:\/\/atsumitm.iobb.net\/its\/its-041.php\" target=\"_blank\" rel=\"noopener\">https:\/\/atsumitm.iobb.net\/its\/its-041.php<\/a>\u306e\u56f3\u304c\u3059\u3054\u304f\u53c2\u8003\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>Google Chrome\u3067\u3001mhtml\u5f62\u5f0f\u3067\u4fdd\u5b58\u3001\u5fc5\u9808\u3001\u3067\u3059\u3002(^^)<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u4f8b\u3048\u3070\u3001\u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u7167\u5408\u3001\u306a\u3069\u306e\u30b1\u30fc\u30b9\u3067\u3059\u3002<br \/>\nExcel\u30d5\u30a1\u30a4\u30eb\u5185\u306b\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u76f4\u66f8\u304d\u3059\u308b\u3061\u3087\u3063\u3068VBA\u306b\u8a73\u3057\u3044\u4eba\u306b\u306f\u30d0\u30ec\u308b\u78ba\u7387\u304c\u9ad8\u3044\u306e\u3067\u3001\u30b5\u30fc\u30d0\u306b\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u8a18\u9332\u3057\u3066\u7f6e\u304d\u3001\u305d\u306e\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u8aad\u307f\u53d6\u308b\u3088\u3046\u306a\u5834\u5408\u3068\u304b\u3002<br \/>\n\uff08\u304b\u3064\u3001VBE\u306b\u7de8\u96c6\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u304b\u3051\u308b\u306e\u304c\u9762\u5012\u3067\u3001\u30b5\u30fc\u30d0\u306f\u3061\u3083\u3093\u3068\u4e00\u822c\u793e\u54e1\u304c\u89e6\u308c\u306a\u3044\u90e8\u5c4b\u306b\u3042\u308b\u5834\u5408\u3001\u3068\u304b\uff09<\/p>\n<p>\u8aad\u3080\u306e\u306f\uff11\u3064\u306e\u30bb\u30eb\u3060\u3051\u306a\u306e\u3067\u3001\u300cExecuteExcel4Macro\u300d\u3092\u4f7f\u3046\u307b\u3046\u304c<br \/>\n\u3044\u3044\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u3053\u306e\u30b3\u30fc\u30c9\u3092\u3044\u308d\u3044\u308d\u306b\u4f5c\u308a\u66ff\u3048\u308c\u3070\u3001<br \/>\n3\u30bb\u30eb\u5206\u4e00\u62ec\u3067\u53d6\u5f97\u3057\u305f\u3044\u3001\u3068\u304b\u3001\u4f55\u3089\u304b\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u8fd4\u3059\u3001\u3068\u304b\u3001<br \/>\n\u8272\u3005\u306b\u52a0\u5de5\u3067\u304d\u308b\u3068\u3082\u601d\u3044\u307e\u3059\u306e\u3067\u3001\u305d\u306e\u300c\u3072\u306a\u304c\u305f\u300d\u3068\u3057\u3066\u3001\u30e1\u30e2\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n<p>ADO\u3067\u306f\u306a\u304f\u3066\u3001DAO\u3001\u3067\u3059\u3002<\/p>\n<p>\u30de\u30a4\u30af\u30ed\u30bd\u30d5\u30c8\u306f\u7d50\u5c40\u300164bit\u3067\u3082\u3001DAO\u3082\u4f7f\u3048\u308b\u3088\u3046\u306b\u3057\u305f\u3093\u3067\u3059\u306d\u3002<br \/>\n\u300e Microsoft Office \u00d7\u00d7.0 Access Database Engine Object Library \u300f\u306b<br \/>\n\u53c2\u7167\u8a2d\u5b9a\u3059\u308c\u3070\u3044\u3044\u3063\u307d\u3044\u3067\u3059\u3002<\/p>\n<p>\u3044\u3064\u306b\u306a\u308b\u304b\u308f\u304b\u308a\u307e\u305b\u3093\u304c\u3001ADO\u3067\u306e\u65b9\u6cd5\u3082\u3001\u8ffd\u52a0\u51fa\u6765\u305f\u3089\u8ffd\u52a0\u3057\u3066\u3044\u304d\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p><a href=\"https:\/\/atsumitm.iobb.net\/its\/its-041.php\" target=\"_blank\" rel=\"noopener\">https:\/\/atsumitm.iobb.net\/its\/its-041.php<\/a>\u306b\u3082\u3042\u308b\u3088\u3046\u306b\u3001Access\u3067\u3082\u4f7f\u3048\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n\u4ee5\u4e0b\u3001\u53c2\u7167\u8a2d\u5b9a\u304c\u5fc5\u8981\u306a\u5834\u5408\uff08\u524d\u534a\uff09\u3068\u3001\u4e0d\u8981\u306a\u5834\u5408\uff08\u5f8c\u534a\uff09\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Explicit\r\n\r\n'######################################################################################\r\n'\u7279\u5b9a\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30011\u3064\u306e\u30bb\u30eb\u306e\u5024\u3092\u3001DAO\u3067\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u3002\u305d\u306e\uff11\r\n'\r\n'\u203b64bit\u306eOffice\u306b\u3066DAO\u3092\u4f7f\u3046\u65b9\u6cd5\u3067\u3059\u304c\u3001\u53c2\u7167\u8a2d\u5b9a\u304c\u5fc5\u8981\u3067\u3001\r\n' \u300e Microsoft Office \u00d7\u00d7.0 Access Database Engine Object Library \u300f\u306b\r\n'  \u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\u3002\r\n\r\n'\u203b32bit\u306e\u5834\u5408\u3001\u53c2\u7167\u8a2d\u5b9a\u3067Microsoft DAO 3.6 Object Library \u306b\r\n'  \u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\uff61\r\n'\r\n'https:\/\/atsumitm.iobb.net\/its\/its-041.php \u306e\u3001\r\n'\u300c\u306a\u304a\u5bfe\u8c61\u304cAccess\u306e\u5834\u5408\u3001\u62e1\u5f35\u5b50\u304c\u300c.mbd\u300d\u306e\u53e4\u3044Access\uff082007\u672a\u6e80\uff09\u306e\u6642\u306f\u300d\u3092\r\n'Ctrl\uff0bF\u3067\u30da\u30fc\u30b8\u5185\u691c\u7d22\u3057\u3066\u53c2\u7167\u306e\u3053\u3068\u3002\u8868\u3082\u3042\u308a\u307e\u3059\u3002\r\n'\r\n'\u5f15\u6570\u306e\u300cs_SrcWbNm\u300d\u306f\u8aad\u307f\u8fbc\u307f\u305f\u3044\u5148\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'\u5f15\u6570\u306e\u300cs_SqlStr\u300d\u306f\u3001\u305d\u306e\u8aad\u307f\u8fbc\u307f\u306eSQL\u6587\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'SQL\u306e\u5185\u5bb9\u306f\u3001\u305f\u3068\u3048\u3070\u3001\u3001\r\n'\u300e SELECT \u5217\u540d FROM [\u30b7\u30fc\u30c8\u540d$] WHERE \u5217\u540d = '\u691c\u7d22\u5024' \u300f\u307f\u305f\u3044\u306a\u5f62\u3067\r\n'\u884c\u3051\u307e\u3059\u3002\r\n'\r\n'################################################################################\r\n\r\n\r\nFunction Read_ByDaoGetPasswd01(s_SrcWbNm As String, _\r\n                               s_SqlStr As String) As String\r\n   \r\n'\u203b64bit\u306eOffice\u306b\u3066DAO\u3092\u4f7f\u3046\u65b9\u6cd5\u3067\u3059\u304c\u3001\u53c2\u7167\u8a2d\u5b9a\u304c\u5fc5\u8981\u3067\u3001\r\n' \u300e Microsoft Office \u00d7\u00d7.0 Access Database Engine Object Library \u300f\u306b\r\n'  \u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\u3002\r\n\r\n'\u203b32bit\u306e\u5834\u5408\u3001\u53c2\u7167\u8a2d\u5b9a\u3067Microsoft DAO 3.6 Object Library \u306b\r\n'  \u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304d\u307e\u3059\uff61\r\n\r\n\r\n    Dim o_Db01          As DAO.Database      '\u8aad\u8fbc\u5bfe\u8c61\u306eXLS\u30d5\u30a1\u30a4\u30eb\u7528\u306eDAO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\u306e\u5909\u6570\r\n    Dim o_RsWsSettei01  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 s_SrcWbNm       As String            '\u4eca\u56de\u5f15\u6570\u306b\u3002\u8aad\u8fbc\u5bfe\u8c61\u306eXLS\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u683c\u7d0d\u7528\u306e\u5909\u6570\r\n'    Dim s_SrcWsNm       As String            '\u4eca\u56de\u3001\u4e0d\u8981\u3002 \u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u540d\u306e\u683c\u7d0d\u7528\u306e\u5909\u6570\r\n''    Dim StrData01   As String               '\u4eca\u56de\u3001\u4e0d\u8981\u3002 Debug.Print\u7528\r\n'    Dim s_SqlStr        As String            '\u4eca\u56de\u5f15\u6570\u306b\u3002\r\n  \r\n\r\n    '\u8aad\u8fbc\u5bfe\u8c61\u3068\u3057\u305f\u3044XLS\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u3092\u6307\u5b9a\u3059\u308b\r\n'    s_SrcWbNm = \"D:\\DAO\u30c6\u30b9\u30c8.xls\"\r\n'    s_SrcWbNm = \"\\\\Server01\\#OPEN\u3084\u63a5\u89e6\u3084\u64cd\u4f5c\u53b3\u7981\\\u5404\u7a2e\u8a2d\u5b9a01.xls\"\r\n\r\n    '\u8aad\u8fbc\u5bfe\u8c61\u3068\u3057\u305f\u3044\u30b7\u30fc\u30c8\u306e\u540d\u524d\u3092\u6307\u5b9a\u3059\u308b\r\n'    s_SrcWsNm = \"\u8a2d\u5b9a01$\"        '\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       \r\n    '\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb(s_SrcWbNm)\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\uff09\r\n    'HDR=NO \u21921\u884c\u76ee\u3092\u8aad\u8fbc\u3080\u3002\uff08\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u3067\uff09\r\n    'HDR=YES \u21921\u884c\u76ee\u3092\u8aad\u8fbc\u307e\u306a\u3044\u3002\uff08\u3059\u3079\u3066\u306e\u30b7\u30fc\u30c8\u3067\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\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 o_Db01 = OpenDatabase(s_SrcWbNm, False, False, \"Excel 8.0;HDR=NO;IMEX=1\")\r\n    Set o_Db01 = OpenDatabase(s_SrcWbNm, False, False, \"Excel 12.0;HDR=YES;IMEX=1\")\r\n\r\n\r\n'    '\u8aad\u307f\u8fbc\u307f\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u3092\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5316\u3059\u308b\u3002\r\n''    Set o_RsWsSettei01 = o_Db01.OpenRecordset(s_SrcWsNm)\r\n'    Set o_RsWsSettei01 = o_Db01.OpenRecordset(\"SELECT \u30d1\u30b9\u30ef\u30fc\u30c9 FROM [\u8a2d\u5b9a01$] WHERE \u6a5f\u80fd\u540d = '\u6771\u90a6\u30ac\u30b9\u30ed\u30b4\u6fc3\u5ea6\u8a2d\u5b9a'\")\r\n    Set o_RsWsSettei01 = o_Db01.OpenRecordset(s_SqlStr)\r\n\r\n\r\n\r\n'    Debug.Print o_RsWsSettei01.Fields(0)\r\n    \r\n    Let Read_ByDaoGetPasswd01 = o_RsWsSettei01.Fields(0)\r\n    \r\n    \r\n'    '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u5316\u3057\u305f\u30b7\u30fc\u30c8\u306e\u5185\u5bb9\u306e\u8aad\u307f\u8fbc\u307f\u30c6\u30b9\u30c8\r\n'    Do Until o_RsWsSettei01.EOF\r\n'\r\n'        With o_RsWsSettei01 '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(\"\u30ea\u30b9\u30c8\u756a\u53f7\") & _\r\n''                        vbTab & .Fields(\"\u793e\u54e1\u30b3\u30fc\u30c9\") & _\r\n''                        vbTab & .Fields(\"\u6c0f\u540d\") & _\r\n''                        vbTab & .Fields(\"\u30ea\u30b9\u30c8\u306b\u8868\u793a\u3055\u308c\u308b\u5024\") & vbCrLf\r\n'\r\n'        Debug.Print _\r\n'            .Fields(\"\u9023\u756a\") & \"---\" & _\r\n'            .Fields(\"\u6a5f\u80fd\u540d\") & \"---\" & _\r\n'            .Fields(\"\u30d1\u30b9\u30ef\u30fc\u30c9\") & \"---\" & _\r\n'            .Fields(\"\u8a2d\u5b9a\u9805\u76ee\u540d\") & \"---\" & _\r\n'            .Fields(\"\u5024\")\r\n'\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'\r\n'\r\n'    Loop\r\n   \r\n    \r\n'    Debug.Print StrData01\r\n    \r\n   \r\n    o_RsWsSettei01.Close\r\n    o_Db01.Close\r\n    Set o_RsWsSettei01 = Nothing\r\n    Set o_Db01 = Nothing\r\n   \r\nEnd Function\r\n\r\n\r\n'######################################################################################\r\n'\u7279\u5b9a\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30011\u3064\u306e\u30bb\u30eb\u306e\u5024\u3092\u3001DAO\u3067\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u3002\u305d\u306e\uff12\r\n'\r\n'\u203b\u53c2\u7167\u8a2d\u5b9a\u300c\u4e0d\u8981\u300d\u3067\u3059\u3002\r\n'  \u3067\u3082\u300164bit\u306eOffice\u306b\u3066\u3001DAO\u3092\u4f7f\u3048\u308b\u3088\u3046\u306b\u3059\u308b\u65b9\u6cd5\u3067\u3059\u3002\r\n'\r\n'\u300e Set \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\u540d = CreateObject(\"DAO.DBEngine.120\") \u300f\u3092\u4f7f\u3044\u307e\u3059\u3002\r\n'\u300e Microsoft Office 15.0 Access Database Engine Object Library \u300f\u3092\r\n'\u53c2\u7167\u8a2d\u5b9a\u3057\u305f\u306e\u3068\u540c\u3058\u3053\u3068\u306b\u306a\u308a\u307e\u3059\u3002\r\n'\r\n'32bit\u306eOffice\u3067\u306f\u4f7f\u3048\u306a\u3044\u304b\u3082\uff1f\r\n'32bit\u306e\u5834\u5408\u3001\u300e Set DBEngine\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u540d = CreateObject(\"DAO.DBEngine.36\") \u304b\u3082\uff1f\r\n'https:\/\/atsumitm.iobb.net\/its\/its-041.php \u306e\u3001\r\n'\u300c\u306a\u304a\u5bfe\u8c61\u304cAccess\u306e\u5834\u5408\u3001\u62e1\u5f35\u5b50\u304c\u300c.mbd\u300d\u306e\u53e4\u3044Access\uff082007\u672a\u6e80\uff09\u306e\u6642\u306f\u300d\u3092\r\n'Ctrl\uff0bF\u3067\u30da\u30fc\u30b8\u5185\u691c\u7d22\u3057\u3066\u53c2\u7167\u306e\u3053\u3068\u3002\u8868\u3082\u3042\u308a\u307e\u3059\u3002\r\n'\r\n'\u3061\u306a\u307f\u306b\u300164bit\u3067 \u300cCreateObject(\"DAO.DBEngine.36\") \u300d\u3092\u4f7f\u3046\u3068\u3001\r\n'\u300c\u30af\u30e9\u30b9\u304c\u767b\u9332\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u300d\u306e\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\r\n'\r\n'\u5f15\u6570\u306e\u300cs_SrcWbFullPath\u300d\u306f\u8aad\u307f\u8fbc\u307f\u305f\u3044\u5148\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30eb\u30d1\u30b9\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'\u5f15\u6570\u306e\u300cs_SqlStr\u300d\u306f\u3001\u305d\u306e\u8aad\u307f\u8fbc\u307f\u306eSQL\u6587\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'SQL\u306e\u5185\u5bb9\u306f\u3001\u305f\u3068\u3048\u3070\u3001\u3001\r\n'\u300e SELECT \u5217\u540d FROM [\u30b7\u30fc\u30c8\u540d$] WHERE \u5217\u540d = '\u691c\u7d22\u5024' \u300f\u307f\u305f\u3044\u306a\u5f62\u3067\r\n'\u884c\u3051\u307e\u3059\u3002\r\n'######################################################################################\r\n\r\nFunction Read_ByDaoGetPasswd02(s_SrcWbFullPath As String, _\r\n                               s_SqlStr As String) As String\r\n                               \r\n\r\n    Dim o_DbEngine      As Object     'DAO\u305d\u306e\u3082\u306e\u7528\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u5909\u6570\r\n    Dim o_Db01          As Object     '\u8aad\u8fbc\u5bfe\u8c61\u306eXLS\u30d5\u30a1\u30a4\u30eb\u7528\u306eDAO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\u306e\u5909\u6570\r\n    Dim o_RsWs01        As Object     '\u8aad\u8fbc\u5bfe\u8c61\u306e\u30b7\u30fc\u30c8\u306eDAO\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u7528\u306e\u5909\u6570\r\n\r\n  \r\n    Set o_DbEngine = CreateObject(\"DAO.DBEngine.120\")\r\n    Set o_Db01 = o_DbEngine.OpenDatabase(s_SrcWbFullPath, False, False, \"Excel 12.0;HDR=YES;IMEX=1\")\r\n    '\u2191\u300cExcel 12.0\u300d\u306f\u300cExcel 8.0\u300d\u3067\u3082\u5927\u4e08\u592b\u3063\u307d\u3044\u3067\u3059\u3002\r\n    \r\n'    Set o_RsWs01 = o_Db01.OpenRecordset(\"SELECT \u30d1\u30b9\u30ef\u30fc\u30c9 FROM [\u8a2d\u5b9a01$] WHERE \u6a5f\u80fd\u540d = '\u30ed\u30b4\u6fc3\u5ea6\u8a2d\u5b9a'\")\r\n    Set o_RsWs01 = o_Db01.OpenRecordset(s_SqlStr)\r\n\r\n\r\n'    Debug.Print o_RsWs01.Fields(0)\r\n    Let Read_ByDaoGetPasswd02 = o_RsWs01.Fields(0)\r\n        \r\n    \r\n    o_RsWs01.Close\r\n    o_Db01.Close\r\n\r\n    \r\n    Set o_RsWs01 = Nothing\r\n    Set o_Db01 = Nothing\r\n    Set o_DbEngine = Nothing\r\n   \r\nEnd Function\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"ExcelVBA \uff5e 64bit\u306eExcel\u306b\u3066\u3001\u300cDAO\u3067\u300d\u3001\u7279\u5b9a\u306eExcel\u30d5\u30a1\u30a4\u30eb\u306e\u30011\u3064\u306e\u30bb\u30eb\u306e\u5024\u3092\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u3002 \u3000\u3000 \u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1989"}],"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=1989"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1989\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1989"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1989"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}