{"id":1998,"date":"2024-12-07T22:56:31","date_gmt":"2024-12-07T13:56:31","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1998"},"modified":"2024-12-07T23:03:31","modified_gmt":"2024-12-07T14:03:31","slug":"rogo-noudo-change01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/rogo-noudo-change01","title":{"rendered":"\u30ed\u30b4\uff08\u56f3\u5f62\uff09\u306e\u6fc3\u5ea6\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5"},"content":{"rendered":"<p>\u30ed\u30b4\uff08\u56f3\u5f62\uff09\u306e\u6fc3\u5ea6\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5<\/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><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\n'\u30e1\u30cb\u30e5\u30fc\u753b\u9762\u51e6\u7406\r\n\r\n\r\n'#######################################################################\r\n'\u30ed\u30b4\u6fc3\u5ea6\u8a2d\u5b9a\r\n'#######################################################################\r\n\r\nSub ChngLogoBrightns()\r\n \r\n    Dim i_NoudoPercentDefault As Integer\r\n    Dim i_NoudoPercent01 As Variant\r\n    Dim d_NoudoData01 As Double\r\n    \r\n    '2024\/10\/02 \u4fee\u6b63\u30fb\u8ffd\u52a0 \u30d1\u30b9\u30ef\u30fc\u30c9\u4fdd\u8b77\u6a5f\u80fd\u3092\u8ffd\u52a0\u3057\u305f\u305f\u3081\u3002\r\n    Dim s_PassWdInput01 As String\r\n    Dim s_PassWdSvr01 As String\r\n    \r\n    '2024\/10\/31 \u4fee\u6b63\u8ffd\u52a0\r\n    Dim Answ01      As String\r\n    '\u6fc3\u5ea6\u3092\u6307\u5b9a\u3059\u308b\u30a4\u30f3\u30d7\u30c3\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u5024\u3092\u5165\u308c\u308b\u3068\u304d\u306b\u3001\r\n    '\u534a\u89d2\u82f1\u6570\u30e2\u30fc\u30c9\u306b\u623b\u3057\u305f\u3044\u305f\u3081\u3002\r\n\r\n    '2024\/11\/12 \u4fee\u6b63\u8ffd\u52a0\r\n    Dim i_GenzaiNoudo   As Integer\r\n    Dim i_Answ02        As Integer\r\n    '\u4e0a\u306e\uff12\u884c\u306f\u3001\u300c\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u6700\u521d\u306b\u73fe\u5728\u306e\u6fc3\u5ea6\u3092\u77e5\u308a\u305f\u3044\u300d\u306e\u3067\u3001\u305d\u306e\u30c1\u30a7\u30c3\u30af\u30d7\u30ed\u30b0\u30e9\u30e0\u7528\u306e\u5909\u6570\u3002\r\n    Dim s_LogoTitle     As String\r\n    '\u3069\u306e\u30ed\u30b4\u306e\u6fc3\u5ea6\u3092\u5909\u3048\u308b\u304b\u3092\u30e1\u30c3\u30bb\u30fc\u30b8\u306b\u51fa\u3057\u305f\u3044\u306e\u3067\u3001\u305d\u306e\u305f\u3081\u306e\u5909\u6570\u3002\r\n    \r\n    On Error GoTo error1:\r\n    \r\n    '2024\/11\/12 \u4fee\u6b63\u8ffd\u52a0\r\n    '\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u6700\u521d\u306b\u3001\u73fe\u5728\u306e\u6fc3\u5ea6\u3092\u77e5\u308a\u305f\u3044\u306e\u3067\u3001\u305d\u306e\u30c1\u30a7\u30c3\u30af\u30d7\u30ed\u30b0\u30e9\u30e0\r\n    Let i_GenzaiNoudo = Worksheets(\"\u30de\u30b9\u30bf\u30b7\u30fc\u30c8\").Range(\"P2\").Value\r\n    Let s_LogoTitle = Worksheets(\"\u30de\u30b9\u30bf\u30b7\u30fc\u30c8\").Range(\"O2\").Value\r\n    \r\n    Let i_Answ02 = MsgBox(\"\u73fe\u5728\u306e\u30ed\u30b4\u6fc3\u5ea6\u306f\u300c \" & i_GenzaiNoudo & \" \u300d\u3067\u3059\u3002\" _\r\n               & vbCrLf & \"\" _\r\n               & vbCrLf & \"\u5909\u66f4\u3057\u307e\u3059\u304b\uff1f\" _\r\n               & vbCrLf & \"\" _\r\n               & vbCrLf & \"\u5909\u66f4\u3059\u308b\u5834\u5408\u306f\u300c\u306f\u3044\u300d\u3092\u3001\u3057\u306a\u3044\u5834\u5408\u306f\u300c\u3044\u3044\u3048\u300d\u3092\u62bc\u3057\u3066\u304f\u3060\u3055\u3044\u3002\" _\r\n               & vbCrLf & \"\", vbYesNo + vbExclamation + vbDefaultButton2, \"\u6700\u5f8c\u306e\u78ba\u8a8d\")\r\n \r\n    If i_Answ02 = 6 Then\r\n    \r\n    ElseIf i_Answ02 = 7 Then\r\n        Exit Sub\r\n    Else\r\n        Exit Sub\r\n    End If\r\n    \r\n    \r\n    \r\n    \r\n    '2024\/10\/02 \u4fee\u6b63\u30fb\u8ffd\u52a0 \u30d1\u30b9\u30ef\u30fc\u30c9\u4fdd\u8b77\u6a5f\u80fd\u3092\u8ffd\u52a0\u3057\u305f\u305f\u3081\u3002\r\n    Let s_PassWdSvr01 = Read_ByDaoGetPasswd01( _\r\n      \"\\\\data1\\TYDATA\\\u58f2\u4e0a\u7ba1\u7406\\#OPEN\u3084\u63a5\u89e6\u3084\u64cd\u4f5c\u53b3\u7981\\\u5404\u7a2e\u8a2d\u5b9a01.xls\", _\r\n      \"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        \r\n    Let s_PassWdInput01 = InputBox(\"\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\", \"\u30d1\u30b9\u30ef\u30fc\u30c9\u5165\u529b\")\r\n    \r\n    '2024\/10\/02 \u4fee\u6b63\u30fb\u8ffd\u52a0 \u30d1\u30b9\u30ef\u30fc\u30c9\u4fdd\u8b77\u6a5f\u80fd\u3092\u8ffd\u52a0\u3057\u305f\u305f\u3081\u3002\r\n    If s_PassWdInput01 = s_PassWdSvr01 Then\r\n        '\u30d1\u30b9\u30ef\u30fc\u30c9\u304c\u5408\u3063\u3066\u3044\u305f\u3089OK\u3002\r\n        '\u4f55\u3082\u3057\u306a\u3044\u3067\u6b21\u3078\u3002\r\n        \r\n    ElseIf s_PassWdInput01 = \"\" Then\r\n        '\u30ad\u30e3\u30f3\u30bb\u30eb\u306e\u3068\u304d\u3001\u7d42\u308f\u308b\u3002\r\n        Exit Sub\r\n        \r\n    Else\r\n        MsgBox \"\u30d1\u30b9\u30ef\u30fc\u30c9\u304c\u9055\u3044\u307e\u3059\u3002\"\r\n        Exit Sub\r\n    End If\r\n\r\n    \r\n    '2024\/10\/31 \u4fee\u6b63\u8ffd\u52a0  \u6fc3\u5ea6\u3092\u6307\u5b9a\u3059\u308b\u30a4\u30f3\u30d7\u30c3\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u5024\u3092\u5165\u308c\u308b\u3068\u304d\u306b\u3001\u534a\u89d2\u82f1\u6570\u30e2\u30fc\u30c9\u306b\u623b\u3057\u305f\u3044\u305f\u3081\u3002\r\n    '\u25cf\u30c1\u30a7\u30c3\u30af01\r\n    \r\n    If IMEStatus = vbIMEModeOff Then\r\n        '\u3059\u3067\u306b\u30aa\u30d5\u306a\u3089\u4f55\u3082\u3057\u306a\u3044\u3002\r\n    ElseIf IMEStatus = 2 Then   'vbIMEOff\u3082vbIMEModeOff\u3082\u300c\uff12\u300d\u306a\u306e\u3067\u3001\u4e00\u5fdc\u3001\u8aa4\u4f5c\u52d5\u9632\u6b62\u3067\u8ffd\u52a0\u3057\u305f\u3002\r\n    \r\n    Else\r\n        '\u30aa\u30f3\u3084\u3072\u3089\u304c\u306a\u306e\u5834\u5408\u306f,\u30aa\u30d5\u306b\u3059\u308b\u3002\r\n         SendKeys \"{kanji}\", True   '\u3068\u308a\u3042\u3048\u305a\u3001\u4eca\u56de\u306fTrue\u3092\u66f8\u304b\u306a\u3044\u3068\u3001\u30e2\u30fc\u30c9\u304c\u5207\u308a\u66ff\u308f\u3089\u306a\u304b\u3063\u305f\u3002\r\n    End If\r\n    '\u2191IME\u30e2\u30fc\u30c9\u304c\u30aa\u30d5\u306a\u3089\u305d\u306e\u307e\u307e\u3067\u3001\u30aa\u30d5\u4ee5\u5916\u306a\u3089\u30aa\u30d5\u306b\u3059\u308b\u3002\r\n    '\u300cSendKeys \"{kanji}\"\u300d\u306f\u300c\u534a\u89d2\/\u5168\u89d2\u300d\u30ad\u30fc\u3092\u62bc\u3059\u306e\u3068\u540c\u3058\u3002\r\n    '2024\/10\/31 \u4fee\u6b63\u8ffd\u52a0 \u3053\u3053\u307e\u3067\r\n    \r\n    \r\n    \r\n'    Worksheets(\"\u30e1\u30cb\u30e5\u30fc\").Unprotect  '2024\/11\/09 \u4fee\u6b63\u8ffd\u52a0\r\n\r\n'    Let i_NoudoPercentDefault = Worksheets(\"\u30e1\u30cb\u30e5\u30fc\").Range(\"D1\").Value\r\n    '2024\/11\/09 \u4fee\u6b63\u8ffd\u52a0\r\n    Let i_NoudoPercentDefault = Worksheets(\"\u30de\u30b9\u30bf\u30b7\u30fc\u30c8\").Range(\"P2\").Value\r\n    \r\n    Let i_NoudoPercent01 = InputBox(\" \u300c\" & s_LogoTitle & \"\u300d \u306e\u30ed\u30b4\u306e\u6fc3\u5ea6\u3092\u30d1\u30fc\u30bb\u30f3\u30c6\u30fc\u30b8\u3067\u6307\u5b9a\u3057\u3066\u304f\u3060\u3055\u3044\u3002\" & vbCrLf & \"50\u4ee5\u4e0a\u3067\u8584\u304f\u30fb50\u4ee5\u4e0b\u3067\u6fc3\u304f\u306a\u308a\u307e\u3059\u3002\" & vbCrLf & \"\u521d\u671f\u5024\u306f50\u3067\u3059\u3002\" & vbCrLf & \"OK\u30dc\u30bf\u30f3\u62bc\u4e0b\u5f8c\u306e\u8a2d\u5b9a\u53cd\u6620\u306b10\uff5e20\u79d2\u307b\u3069\u304b\u304b\u308a\u307e\u3059\u3002\")\r\n\r\n\r\n    '\u5165\u529b\u3055\u308c\u305f\u5024\u304c\u3001\u300c\u6570\u5b57\u306e\u307f\u300d\u304b\u3069\u3046\u304b\u306e\u30c1\u30a7\u30c3\u30af\u3002\uff08\u5168\u89d2\u306e\u6570\u5b57\u3082\u8a31\u53ef\u3002\uff09\r\n    If IsNumeric(i_NoudoPercent01) = True Then\r\n    \r\n        Let i_NoudoPercent01 = CInt(i_NoudoPercent01)\r\n    \r\n    ElseIf IsNumeric(i_NoudoPercent01) = False Then\r\n    \r\n        '\u30ad\u30e3\u30f3\u30bb\u30eb\u304c\u62bc\u3055\u308c\u305f\u3068\u304d\u3082\u3001\u3053\u3053\u306b\u542b\u307e\u308c\u308b\u3002\r\n    \r\n        MsgBox \"\u6570\u5b57\u4ee5\u5916\u304c\u5165\u529b\u3055\u308c\u305f\u304b\u3001\u30ad\u30e3\u30f3\u30bb\u30eb\u3055\u308c\u307e\u3057\u305f\u3002\u6700\u521d\u304b\u3089\u3084\u308a\u76f4\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n        Exit Sub\r\n        \r\n    Else\r\n    \r\n    \r\n    End If\r\n    \r\n'Stop\r\n\r\n    \r\n    If i_NoudoPercent01 = 0 Then\r\n        '0\u304c\u5165\u529b\u3055\u308c\u305f\u3068\u304d\u3001\u7d42\u308f\u308b\u3002\r\n        MsgBox \"\u300c0\u300d\u4ee5\u5916\u306e\u6574\u6570\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002\u6700\u521d\u304b\u3089\u3084\u308a\u306a\u304a\u3057\u3066\u304f\u3060\u3055\u3044\u3002\" '\u5c11\u6570\u3067\u3082\u30a8\u30e9\u30fc\u51fa\u306a\u3044\u3051\u3069\u3002\r\n        Exit Sub\r\n                \r\n    ElseIf 1 <= i_NoudoPercent01 Then\r\n        '\u4f55\u3089\u304b\u306e\u6570\u5024\uff08\uff1d\u6fc3\u5ea6\uff09\u304c\u6307\u5b9a\u3055\u308c\u3066\u3044\u305f\u3089OK\u3002\r\n        '\u4f55\u3082\u3057\u306a\u3044\u3067\u6b21\u3078\u3002\r\n\r\n    Else\r\n        MsgBox \"\u30a8\u30e9\u30fc\u3067\u3059\u3002\u7ba1\u7406\u8005\u306b\u9023\u7d61\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n        Exit Sub\r\n    End If\r\n    \r\n    \r\n'    Let Worksheets(\"\u30e1\u30cb\u30e5\u30fc\").Range(\"D1\").Value = i_NoudoPercent01\r\n    '2024\/11\/09 \u4fee\u6b63\u8ffd\u52a0\r\n    Let Worksheets(\"\u30de\u30b9\u30bf\u30b7\u30fc\u30c8\").Range(\"P2\").Value = i_NoudoPercent01\r\n    \r\n'    Call Worksheets(\"\u30e1\u30cb\u30e5\u30fc\").Protect '2024\/11\/09 \u4fee\u6b63\u8ffd\u52a0\r\n    \r\n    \r\n    \r\n    d_NoudoData01 = i_NoudoPercent01 \/ 100\r\n            \r\n'    Worksheets(\"\uff30\u898b\u7a4d\u66f8\").Pictures(\"\u304f\u3089\u3057\u30b7\u30e7\u30c3\u30d7\u30ed\u30b401\").ShapeRange.PictureFormat.Brightness = d_NoudoData01\r\n    Call ShapeBrightnsCange(\"\uff30\u898b\u7a4d\u66f8\", \"\u304f\u3089\u3057\u30b7\u30e7\u30c3\u30d7\u30ed\u30b401\", d_NoudoData01)\r\n    \r\n    ThisWorkbook.Save\r\n    \r\n    \r\n    MsgBox \"\u5b8c\u4e86\u3057\u307e\u3057\u305f\u3002\"\r\n    \r\nExit Sub\r\n\r\nerror1:\r\n\r\n    Debug.Print Err.Number\r\n    Debug.Print Err.Description\r\n    Debug.Print i_NoudoPercent01\r\n    \r\n'    If i_NoudoPercent01 = 0 Then Exit Sub\r\n    \r\n    \r\n    Let i_NoudoPercent01 = i_NoudoPercentDefault\r\n    Let Worksheets(\"\u30de\u30b9\u30bf\u30b7\u30fc\u30c8\").Range(\"P2\").Value = i_NoudoPercent01\r\n    \r\n'    Call Worksheets(\"\u30e1\u30cb\u30e5\u30fc\").Protect  '2024\/11\/09 \u4fee\u6b63\u8ffd\u52a0\r\n\r\n    '2024\/11\/09 \u4fee\u6b63\u8ffd\u52a0\r\n    d_NoudoData01 = i_NoudoPercent01 \/ 100\r\n'    Worksheets(\"\uff30\u898b\u7a4d\u66f8\").Pictures(\"\u304f\u3089\u3057\u30b7\u30e7\u30c3\u30d7\u30ed\u30b401\").ShapeRange.PictureFormat.Brightness = d_NoudoData01\r\n    Call ShapeBrightnsCange(\"\uff30\u898b\u7a4d\u66f8\", \"\u304f\u3089\u3057\u30b7\u30e7\u30c3\u30d7\u30ed\u30b401\", d_NoudoData01)\r\n    ThisWorkbook.Save\r\n\r\n    MsgBox \"\u30a8\u30e9\u30fc\u3067\u3059\u3002\u7ba1\u7406\u8005\u306e\u65b9\u306b\u9023\u7d61\u3057\u3066\u304f\u3060\u3055\u3044\u3002\"\r\n\r\nEnd Sub\r\n\r\n\r\n=============================================================\r\n\r\n\r\n\r\nSub ShapeBrightnsCange(s_WsNm As String, s_ShapeNm As String, d_NoudoNum01 As Double)\r\n\r\n    Worksheets(s_WsNm).Pictures(s_ShapeNm).ShapeRange.PictureFormat.Brightness = d_NoudoNum01\r\n    '\u751f\u306e\u6570\u5024\u3092\u6307\u5b9a\u3059\u308b\u3068\u304d\u306f\u3001\uff11\uff10\uff10\u3067\u5272\u3089\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\r\n    \r\nEnd Sub\r\n\r\n\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'\u53c2\u7167\u8a2d\u5b9a\u3067Microsoft DAO 3.6 Object Library \u306b\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u3066\u304a\u304f\u3002\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            '\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            'Debug.Print\u7528\r\n'    Dim s_SqlStr        As String\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 = \"\\\\data1\\TYDATA\\\u58f2\u4e0a\u7ba1\u7406\\#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 8.0;HDR=YES;IMEX=1\")\r\n\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'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n\r\n\r\n'\r\n'\r\n<\/pre>\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":"\u30ed\u30b4\uff08\u56f3\u5f62\uff09\u306e\u6fc3\u5ea6\u3092\u5909\u66f4\u3059\u308b\u65b9\u6cd5 \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\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002 ' ' '\u30e1\u30cb\u30e5\u30fc\u753b\u9762\u51e6\u7406 '########## ...","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\/1998"}],"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=1998"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1998\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1998"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1998"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}