{"id":1876,"date":"2023-01-05T23:38:12","date_gmt":"2023-01-05T14:38:12","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1876"},"modified":"2023-12-05T22:18:48","modified_gmt":"2023-12-05T13:18:48","slug":"vba-code_all-module_replace01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/vba-code_all-module_replace01","title":{"rendered":"AccessVBA\u30fbExcelVBA \uff5e \u5225\u306eaccdb\uff08or mdb\uff09\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u3059\u3079\u3066\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306eVBA\u30b3\u30fc\u30c9\u306e\u5185\u5bb9\u3092\u3001\u6307\u5b9a\u3057\u305f\u8a9e\u53e5\u306e\u307f\u3092\u4e00\u62ec\u7f6e\u63db\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\uff08\u30e9\u30b9\u30c8\u306bExcel\u7248\u3082\u3042\u308a\u307e\u3059\u3002\u81eaxlsm\u306e\u307f\u306e\u66f8\u304d\u63db\u3048\u3060\u3051\u3067\u3059\u304c\u3002\uff09"},"content":{"rendered":"

AccessVBA\u30fbExcelVBA \uff5e \u5225\u306eaccdb\uff08or mdb\uff09\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u3059\u3079\u3066\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306eVBA\u30b3\u30fc\u30c9\u306e\u5185\u5bb9\u3092\u3001\u6307\u5b9a\u3057\u305f\u8a9e\u53e5\u306e\u307f\u3092\u4e00\u62ec\u7f6e\u63db\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\uff08\u30e9\u30b9\u30c8\u306bExcel\u7248\u3082\u3042\u308a\u307e\u3059\u3002\u81eaxlsm\u306e\u307f\u306e\u66f8\u304d\u63db\u3048\u3060\u3051\u3067\u3059\u304c\u3002\uff09
\n\u3000\u3000<\/SPAN>
\n\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u25cf\u30e1\u30a4\u30f3\u30d7\u30ed\u30b0\u30e9\u30e0
\n\u4ed6\u306eaccdb\u306e\u3001\u3059\u3079\u3066\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306eVBA\u30b3\u30fc\u30c9\u306e\u5185\u5bb9\u3092\u3001\u6307\u5b9a\u3057\u305f\u8a9e\u53e5\u306e\u307f\u3092\u4e00\u62ec\u7f6e\u63db\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\uff08mdb\u30d5\u30a1\u30a4\u30eb\u3082\u884c\u3051\u308b\u304b\u3082\uff1f\u30c6\u30b9\u30c8\u3057\u3066\u307e\u305b\u3093\u304c\u3002\uff09<\/p>\n

\u5168\u884c\u3067\u306f\u306a\u304f\u3066\u3001\u7f6e\u63db\u3057\u305f\u3044\u8a9e\u53e5\u304c\u30d2\u30c3\u30c8\u3057\u305f\u884c\u3060\u3051\u66f8\u304d\u63db\u3048\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u305f\u3060\u3057\u3001\u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u306eVBA\u30b3\u30fc\u30c9\u3092\u30a8\u30e9\u30fc\u7121\u304f\u66f8\u304d\u63db\u3048\u308b\u305f\u3081\u306b\u3001

\n\u30d5\u30a1\u30a4\u30eb
\n\u2192\u30aa\u30d7\u30b7\u30e7\u30f3
\n\u2192\u30c8\u30e9\u30b9\u30c8\u30bb\u30f3\u30bf\u30fc
\n\u2192\u30c8\u30e9\u30b9\u30c8\u30bb\u30f3\u30bf\u30fc\u306e\u8a2d\u5b9a
\n\u2192\u30de\u30af\u30ed\u306e\u8a2d\u5b9a

\n\u306b\u3066\u3001
\n\u300c\u3059\u3079\u3066\u306e\u30de\u30af\u30ed\u3092\u6709\u52b9\u306b\u3059\u308b\u300d
\n\u306b\u3057\u3066OK\u3057\u3066\u304a\u304b\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3067\u3059\u3002

\n\u3042\u3068\u3067\u3001\u3057\u304b\u308b\u3079\u304d\u30bb\u30ad\u30e5\u30ea\u30c6\u30a3\u8a2d\u5b9a\u306b\u623b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/b><\/span><\/p>\n

\u305d\u308c\u3068\u3001\u547c\u3073\u51fa\u3059\u3068\u304d\u306b\u3001
\n\u81ea\u30d5\u30a1\u30a4\u30eb\u3092\u6307\u5b9a\u3059\u308b\u3068\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u51e6\u7406\u3067\u304d\u307e\u305b\u3093\u3002
\n\u81ea\u30d5\u30a1\u30a4\u30eb\u306b\u51e6\u7406\u3057\u305f\u3044\u3068\u304d\u306f\u3001\u5f8c\u8ff0\u306e\u300c\u260501\u300d\u3084\u300c\u260502\u300d\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u3054\u5229\u7528\u304f\u3060\u3055\u3044\u3002
\n\uff08\u305f\u3060\u3057\u3001\u7f6e\u63db\u5bfe\u8c61\u8a9e\u53e5\u306e\u8a2d\u5b9a\u3092\u6bce\u56de\u66f8\u304d\u63db\u3048\u306a\u3044\u3068\u3044\u3051\u306a\u304f\u306a\u308a\u307e\u3059\uff09<\/p>\n

\u3042\u3068\u3001\u3082\u3057\u304b\u3057\u305f\u3089Access\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u306b\u3088\u3063\u3066\u306f
\nExcel\u307f\u305f\u3044\u306b\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u8a2d\u5b9a\u304c\u5fc5\u8981\u306b\u306a\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002
\nhttps:\/\/akira55.com\/module_update\/<\/a>
\n\uff08\u3082\u3057\u304b\u3057\u305f\u3089Excel\u3068\u9055\u3063\u3066\u5168\u30d0\u30fc\u30b8\u30e7\u30f3\u4e0d\u8981\u304b\u3082\uff1f\u3067\u3082\u8abf\u3079\u3066\u307e\u305b\u3093\u3002\uff09<\/p>\n

\u4e00\u5fdc\u3001\u7f6e\u63db\u5bfe\u8c61\u306e\u8a9e\u53e5\u304c\u898b\u3064\u304b\u3089\u306a\u304f\u3066\u3082\u30a8\u30e9\u30fc\u306b\u306a\u3089\u306a\u3044\u307f\u305f\u3044\u3067\u3059\u3002
\n\u3067\u3082\u5b8c\u74a7\u306b\u52d5\u304f\u304b\u3069\u3046\u304b\u306f\u308f\u304b\u308a\u307e\u305b\u3093\u306e\u3067\u3001\u304f\u308c\u3050\u308c\u3082\u3001\u30c6\u30b9\u30c8\u7528\u30d5\u30a1\u30a4\u30eb\u3067\u8a66\u3057\u3066\u304b\u3089\u3001\u4f5c\u308a\u66ff\u3048\u308b\u306a\u3069\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

\r\n'\r\n'\r\nSub AllModuleReplace03(s_SearchWord01 As String, s_RepWord01 As String, s_FullPath01 As String)\r\n\r\n    Dim o_mdl As Module\r\n    Dim i As Integer\r\n    Dim i_mdlNm As Integer\r\n    Dim l_AllGyousuu As Long\r\n    Dim l_CrrentGyou As Long\r\n    Dim s_Text01 As String\r\n\r\n    Dim i_Answ01 As Integer\r\n    Dim i_Answ02 As Integer\r\n           \r\n'    Dim s_SearchWord01 As String\r\n'    Dim s_RepWord01 As String\r\n    \r\n    \r\n    '\u7f6e\u63db\u8a9e\u53e5\u306e\u8a2d\u5b9a\r\n    \r\n'    s_SearchWord01 = \"\"\r\n'    '\u2191\u691c\u7d22\u8a9e\u53e5\uff08\u7f6e\u63db\u5bfe\u8c61\u306e\u8a9e\u53e5\uff09\r\n'\r\n'    s_RepWord01 = \"\"\r\n'    '\u2191\u7f6e\u63db\u5185\u5bb9\u3068\u3057\u3066\u306e\u8a9e\u53e5\r\n    \r\n'    Stop\r\n    \r\n    Dim AnoterAccApp As Access.Application\r\n    \r\n    Set AnoterAccApp = GetObject(s_FullPath01)\r\n    \r\n    AnoterAccApp.Visible = True\r\n    \r\n    \r\n    \r\n    i_mdlNm = AnoterAccApp.Modules.Count - 1\r\n    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n\r\n    For i = 0 To i_mdlNm\r\n    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n    \r\n        Set o_mdl = AnoterAccApp.Modules(i)\r\n        \r\n        l_AllGyousuu = o_mdl.CountOfLines\r\n        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n        \r\n\r\n        For l_CrrentGyou = 1 To l_AllGyousuu\r\n        \r\n'           Debug.Print o_mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n           \r\n           s_Text01 = o_mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\u73fe\u5728\u306e\u884c\u306e\u5185\u5bb9\u3092\u53d6\u5f97\r\n           \r\n\r\n           i_Answ01 = InStr(1, s_Text01, s_SearchWord01, vbBinaryCompare)\r\n           '\u2191\u7f6e\u63db\u306e\u76ee\u7684\u306e\u8a9e\u53e5\u304c\u3001\u305d\u306e\u73fe\u5728\u306e\u884c\u306b\u542b\u307e\u308c\u3066\u3044\u308b\u304b\u3092\u30c1\u30a7\u30c3\u30af\r\n           \r\n           If i_Answ01 <> 0 Then\r\n                '\u542b\u307e\u308c\u3066\u3044\u308c\u3070\u4ee5\u4e0b\u306e\u51e6\u7406\r\n                i_Answ02 = InStr(1, s_Text01, \"Call mdl.ReplaceLine(l_CrrentGyou, txtstr &\", vbBinaryCompare)\r\n                '\u300cCall mdl.ReplaceLine(l_CrrentGyou, txtstr &\u300d\u3092\u542b\u3080\u30b3\u30fc\u30c9\u306f\u4eca\u56de\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u5168\u4f53\u306e\u4e2d\u3067\u306f\u3001\u300c\u2019\u25c6\u25c6\u25c6\u300d\u306a\u3069\u3092\u4ed8\u52a0\u3059\u308b\u30b3\u30fc\u30c9\u306a\u306e\u3067\u30b9\u30eb\u30fc\u3059\u308b\u3002\r\n                If i_Answ02 = 0 Then\r\n                    '[\u300c\"Call mdl.ReplaceLine(\"\u300d\u306e\u884c\u306f\u30cf\u30b8\u30ad\u305f\u3044\u306e\u3067\u3001\r\n                    '\u305d\u308c\u304c\u542b\u307e\u308c\u3066\u3044\u306a\u3044\u306a\u3089OK\u306a\u306e\u3067\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u7f6e\u63db\u3059\u308b\u3002\r\n                    s_Text01 = Replace(s_Text01, s_SearchWord01, s_RepWord01, , , vbBinaryCompare)\r\n                    Call o_mdl.ReplaceLine(l_CrrentGyou, s_Text01)\r\n                Else\r\n                End If\r\n           Else\r\n                '\u542b\u307e\u308c\u3066\u3044\u306a\u3051\u308c\u3070\u4f55\u3082\u3057\u306a\u3044\u3002\r\n           End If\r\n\r\n    \r\n        Next\r\n        \r\n    \r\n    Next i\r\n'    Stop\r\n'    AnoterAccApp.DoCmd Save\r\n    AnoterAccApp.Quit acQuitSaveAll\r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d
\n\u25cf\u4ee5\u4e0b\u3001\u4e0a\u8a18\u306e\u30b3\u30fc\u30c9\u306b\u884c\u304d\u3064\u304f\u307e\u3067\u306e\u30b5\u30f3\u30d7\u30eb
\n\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d\uff1d<\/p>\n
\u260501\uff1a\u4e00\u756a\u306e\u304a\u304a\u3082\u3068\u3002\u95a2\u6570\u5316\u3057\u3066\u306a\u3044\u3082\u306e\u3002\u5168\u884c\u4e0a\u66f8\u304d\u3002
\n\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30b3\u30fc\u30c9\u306b\u7279\u5b9a\u306e\u6587\u5b57\u5217\u3092\u4ed8\u52a0\u3059\u308b\u3082\u306e\u3068\u3001\u7f6e\u63db\u3057\u3066\u3057\u307e\u3046\u3082\u306e\u3002
\n\u7f6e\u63db\u306e\u30b3\u30fc\u30c9\u306e\u307b\u3046\u306f\u3001\u300cReplaceLine\u300d\u3059\u308b\u8a2d\u5b9a\u81ea\u4f53\uff08\u7f6e\u63db\u5bfe\u8c61\u306e\u90e8\u5206\u306e\u30b3\u30fc\u30c9\u306e\u6587\u5b57\u5217\uff09\u3082\u66f8\u304d\u63db\u3048\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u554f\u984c\u304c\u3042\u308b\u306b\u306f\u3042\u308b\u3002
\n\u3000\u3000<\/SPAN><\/p>\n
\r\n'\r\n'\r\nOption Compare Database\r\nOption Explicit\r\n\r\n'\u7279\u5b9a\u306e\u6587\u5b57\u5217\u306e\u4ed8\u52a0\r\n'\u3053\u3053\u3067\u306f\u300c'\u2605\u2605\u300d\u3092\u5168\u884c\u306e\u672b\u5c3e\u306b\u4ed8\u52a0\u3057\u3066\u3044\u308b\u3002\r\nSub AllModuleWordPlus01()\r\n\r\n    Dim mdl As Module\r\n    Dim i As Integer\r\n    Dim MdlNm As Integer\r\n    Dim AllGyousuu As Long\r\n    Dim l_CrrentGyou As Long\r\n    Dim txtstr As String\r\n    \r\n    \r\n    \r\n    MdlNm = Modules.Count - 1\r\n    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n\r\n    For i = 0 To MdlNm\r\n    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n    \r\n        Set mdl = Modules(i)\r\n        \r\n        AllGyousuu = mdl.CountOfLines\r\n        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n        \r\n'        l_CrrentGyou = 1\r\n        For l_CrrentGyou = 1 To AllGyousuu\r\n        \r\n           Debug.Print mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n           \r\n           txtstr = mdl.Lines(l_CrrentGyou, 1)\r\n           Call mdl.ReplaceLine(l_CrrentGyou, txtstr & \"'\u2605\u2605\")\r\n    \r\n        Next\r\n        \r\n    \r\n    Next i\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n\u2019\u7f6e\u63db\u3059\u308b\u30b3\u30fc\u30c9\r\n'\u3053\u3053\u3067\u306f\u300c'\u2605\u2605\u300d\u3092\u300c\u300d\u306b\u7f6e\u63db\u3057\u3066\u3044\u308b\uff1d\u6d88\u3057\u3066\u3044\u308b\u3002\r\nSub AllModuleReplace01()\r\n\r\n    Dim o_mdl As Module\r\n    Dim i As Integer\r\n    Dim i_mdlNm As Integer\r\n    Dim l_AllGyousuu As Long\r\n    Dim l_CrrentGyou As Long\r\n    Dim s_Text01 As String\r\n    \r\n    Dim s_SearchWord01 As String\r\n    Dim s_RepWord01 As String\r\n    \r\n    \r\n    '\u7f6e\u63db\u8a9e\u53e5\u306e\u8a2d\u5b9a\r\n    \r\n    s_SearchWord01 = \"'\u2605\u2605\"\r\n    '\u2191\u691c\u7d22\u8a9e\u53e5\uff08\u7f6e\u63db\u5bfe\u8c61\u306e\u8a9e\u53e5\uff09\r\n    \r\n    s_RepWord01 = \"\"\r\n    '\u2191\u7f6e\u63db\u5185\u5bb9\u3068\u3057\u3066\u306e\u8a9e\u53e5\r\n    \r\n    \r\n    \r\n    i_mdlNm = Modules.Count - 1\r\n    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n\r\n    For i = 0 To i_mdlNm\r\n    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n    \r\n        Set o_mdl = Modules(i)\r\n        \r\n        l_AllGyousuu = o_mdl.CountOfLines\r\n        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n        \r\n'        l_CrrentGyou = 1\r\n        For l_CrrentGyou = 1 To l_AllGyousuu\r\n        \r\n           Debug.Print o_mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n           \r\n           s_Text01 = o_mdl.Lines(l_CrrentGyou, 1)\r\n           s_Text01 = Replace(s_Text01, s_SearchWord01, s_RepWord01, , , vbBinaryCompare)\r\n           Call o_mdl.ReplaceLine(l_CrrentGyou, s_Text01)\r\n    \r\n        Next\r\n        \r\n    \r\n    Next i\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n'\r\n'Sub AllModuleChk02()\r\n'\r\n'    Dim o_mdl As Module\r\n'    Dim i As Integer\r\n'    Dim i_mdlNm As Integer\r\n'    Dim l_AllGyousuu As Long\r\n'    Dim l_CrrentGyou As Long\r\n'    Dim s_Text01 As String\r\n'\r\n'\r\n'\r\n'    i_mdlNm = Modules.Count - 1\r\n'    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n'    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n'\r\n'    For i = 0 To 0\r\n'    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n'\r\n'        Set o_mdl = Modules(i)\r\n'\r\n'        l_AllGyousuu = o_mdl.CountOfLines\r\n'        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n'\r\n'        l_CrrentGyou = 1\r\n'        For l_CrrentGyou = 1 To l_AllGyousuu\r\n'\r\n'           Debug.Print o_mdl.Lines(l_CrrentGyou, 1)\r\n'           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n'\r\n'           s_Text01 = o_mdl.Lines(l_CrrentGyou, 1)\r\n'           Call o_mdl.ReplaceLine(l_CrrentGyou, s_Text01 & \"\")\r\n'\r\n'        Next\r\n'\r\n'\r\n'    Next i\r\n'\r\n'\r\n'End Sub\r\n'\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u260502\uff1a\u81ea\u30d5\u30a1\u30a4\u30eb\u306e\u30b3\u30fc\u30c9\u306e\u7f6e\u63db\u3002\u95a2\u6570\u5316\u3057\u305f\u3082\u306e\u3002\u3067\u3082\u307e\u3060\u5168\u884c\u4e0a\u66f8\u304d\u3002<\/p>\n
\r\n'\r\n'\r\nSub AllModuleReplace01(s_SearchWord01 As String, s_RepWord01 As String)\r\n\r\n    Dim o_mdl As Module\r\n    Dim i As Integer\r\n    Dim i_mdlNm As Integer\r\n    Dim l_AllGyousuu As Long\r\n    Dim l_CrrentGyou As Long\r\n    Dim s_Text01 As String\r\n    \r\n'    Dim s_SearchWord01 As String\r\n'    Dim s_RepWord01 As String\r\n    \r\n    \r\n    '\u7f6e\u63db\u8a9e\u53e5\u306e\u8a2d\u5b9a\r\n    \r\n'    s_SearchWord01 = \"\"\r\n'    '\u2191\u691c\u7d22\u8a9e\u53e5\uff08\u7f6e\u63db\u5bfe\u8c61\u306e\u8a9e\u53e5\uff09\r\n'\r\n'    s_RepWord01 = \"\"\r\n'    '\u2191\u7f6e\u63db\u5185\u5bb9\u3068\u3057\u3066\u306e\u8a9e\u53e5\r\n    \r\n    \r\n    \r\n    i_mdlNm = Modules.Count - 1\r\n    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n\r\n    For i = 0 To i_mdlNm\r\n    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n    \r\n        Set o_mdl = Modules(i)\r\n        \r\n        l_AllGyousuu = o_mdl.CountOfLines\r\n        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n        \r\n\r\n        For l_CrrentGyou = 1 To l_AllGyousuu\r\n        \r\n'           Debug.Print o_mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n           \r\n           s_Text01 = o_mdl.Lines(l_CrrentGyou, 1)\r\n           s_Text01 = Replace(s_Text01, s_SearchWord01, s_RepWord01, , , vbBinaryCompare)\r\n           Call o_mdl.ReplaceLine(l_CrrentGyou, s_Text01)\r\n    \r\n        Next\r\n        \r\n    \r\n    Next i\r\n\r\n\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u260503\uff1a\u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u7f6e\u63db\u3059\u308b\u304b\u305f\u3061\u306b\u4fee\u6b63\u3002\u3067\u3082\u307e\u3060\u5168\u884c\u4e0a\u66f8\u304d\u306e\u307e\u307e\u3002
\n\u5168\u884c\u4e0a\u66f8\u304d\u306e\u307e\u307e\u306a\u306e\u3067\u3001\u5c11\u3057\u9045\u3044\u3002
\n\u307e\u305f\u3001(01)\uff5e(03)\u306e\u30b3\u30fc\u30c9\u306f\u3001\u8907\u6570\u306eaccdb\u3092\u9023\u7d9a\u3067\u51e6\u7406\u3059\u308b\u3068\u3001
\n\u30e1\u30e2\u30ea\u4e0d\u8db3\u30a8\u30e9\u30fc\u306b\u306a\u308b\u304b\u3082\u3067\u3059\u3002\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n
\r\n'\r\n'\r\nSub AllModuleReplace02(s_SearchWord01 As String, s_RepWord01 As String, s_FullPath01 As String)\r\n\r\n    Dim o_mdl As Module\r\n    Dim i As Integer\r\n    Dim i_mdlNm As Integer\r\n    Dim l_AllGyousuu As Long\r\n    Dim l_CrrentGyou As Long\r\n    Dim s_Text01 As String\r\n    \r\n'    Dim s_SearchWord01 As String\r\n'    Dim s_RepWord01 As String\r\n    \r\n    \r\n    '\u7f6e\u63db\u8a9e\u53e5\u306e\u8a2d\u5b9a\r\n    \r\n'    s_SearchWord01 = \"\"\r\n'    '\u2191\u691c\u7d22\u8a9e\u53e5\uff08\u7f6e\u63db\u5bfe\u8c61\u306e\u8a9e\u53e5\uff09\r\n'\r\n'    s_RepWord01 = \"\"\r\n'    '\u2191\u7f6e\u63db\u5185\u5bb9\u3068\u3057\u3066\u306e\u8a9e\u53e5\r\n    \r\n'    Stop\r\n    \r\n    Dim AnotherAccApp As Access.Application\r\n    \r\n    Set AnotherAccApp = GetObject(s_FullPath01)\r\n    \r\n    AnotherAccApp.Visible = True\r\n    \r\n    \r\n    \r\n    i_mdlNm = AnotherAccApp.Modules.Count - 1\r\n    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n\r\n    For i = 0 To i_mdlNm\r\n    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n    \r\n        Set o_mdl = AnotherAccApp.Modules(i)\r\n        \r\n        l_AllGyousuu = o_mdl.CountOfLines\r\n        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n        \r\n\r\n        For l_CrrentGyou = 1 To l_AllGyousuu\r\n        \r\n'           Debug.Print o_mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n           \r\n           s_Text01 = o_mdl.Lines(l_CrrentGyou, 1)\r\n           s_Text01 = Replace(s_Text01, s_SearchWord01, s_RepWord01, , , vbBinaryCompare)\r\n           Call o_mdl.ReplaceLine(l_CrrentGyou, s_Text01)\r\n    \r\n        Next\r\n        \r\n    \r\n    Next i\r\n'    Stop\r\n'    AnotherAccApp.DoCmd Save\r\n    AnotherAccApp.Quit acQuitSaveAll\r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u2605Excel\u306e\u5834\u5408<\/p>\n
Excel\u306e\u5834\u5408\u3001\u540c\u3058\u3088\u3046\u306a\u3053\u3068\u3092\u3059\u308b\u306e\u306f\u3001\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002
\n\uff08\u95a2\u6570\u5316\u3057\u3066\u306a\u3044\u5834\u5408\u3001\u3067\u3059\u3002\uff09
\nAccess\u306e\u5834\u5408\u3068\u3061\u3087\u3063\u3068\u9055\u3046\u306e\u3067\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002
\n\u307e\u305f\u3001Access\u306e\u6700\u521d\u306e\u95a2\u6570\u306e\u3088\u3046\u306b\u300c\u4ed6\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u300d\u3001
\n\u3068\u3044\u3046\u3053\u3068\u3067\u306f\u306a\u304f\u3001\u81ea\u30d5\u30a1\u30a4\u30eb\uff08xlsm\uff09\u306e\u307f\u306e\u66f8\u304d\u63db\u3048\u3067\u3059\u3002
\n\u307e\u3060\u672a\u5b8c\u6210\u306a\u306e\u3067\u3002<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n'\u7279\u5b9a\u306e\u6587\u5b57\u5217\u306e\u4ed8\u52a0\r\n'\u3053\u3053\u3067\u306f\u300c'\u2605\u2605\u300d\u3092\u5168\u884c\u306e\u672b\u5c3e\u306b\u4ed8\u52a0\u3057\u3066\u3044\u308b\u3002\r\nSub ExcelAllModuleWordPlus01()\r\n\r\n    Dim o_mdl As Object\r\n    Dim i As Integer\r\n    Dim i_mdlNum As Integer\r\n    Dim l_AllGyousuu As Long\r\n    Dim l_CrrentGyou As Long\r\n    Dim s_txtstr As String\r\n    \r\n    \r\n    \r\n    i_mdlNum = ThisWorkbook.VBProject.VBComponents.Count\r\n    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n\r\n    For i = 1 To i_mdlNum\r\n    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n    \r\n        Set o_mdl = ThisWorkbook.VBProject.VBComponents(i).CodeModule\r\n        \r\n        l_AllGyousuu = o_mdl.CountOfLines\r\n        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n        \r\n'        l_CrrentGyou = 1\r\n        For l_CrrentGyou = 1 To l_AllGyousuu\r\n        \r\n           Debug.Print o_mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n           \r\n           s_txtstr = o_mdl.Lines(l_CrrentGyou, 1)\r\n'           Stop\r\n           \r\n           Call o_mdl.ReplaceLine(l_CrrentGyou, s_txtstr & \"'\u2605\u2605\")  ' \u2019\u2605\u2605'\r\n    \r\n        Next\r\n        \r\n    \r\n    Next i\r\n\r\n\r\nEnd Sub\r\n\r\n\r\n'\u7f6e\u63db\u3059\u308b\u30b3\u30fc\u30c9\r\n'\u3053\u3053\u3067\u306f\u300c'\u2605\u2605\u300d\u3092\u300c\u300d\u306b\u7f6e\u63db\u3057\u3066\u3044\u308b\uff1d\u6d88\u3057\u3066\u3044\u308b\u3002\r\nSub ExcelAllModuleReplace01()\r\n\r\n    Dim o_mdl As Object\r\n    Dim i As Integer\r\n    Dim i_mdlNm As Integer\r\n    Dim l_AllGyousuu As Long\r\n    Dim l_CrrentGyou As Long\r\n    Dim s_Text01 As String\r\n    \r\n    Dim s_SearchWord01 As String\r\n    Dim s_RepWord01 As String\r\n    \r\n    \r\n    '\u7f6e\u63db\u8a9e\u53e5\u306e\u8a2d\u5b9a\r\n    \r\n    s_SearchWord01 = \"'\u2605\u2605\"\r\n    '\u2191\u691c\u7d22\u8a9e\u53e5\uff08\u7f6e\u63db\u5bfe\u8c61\u306e\u8a9e\u53e5\uff09  \u2019\u2605\u2605'\r\n    \r\n    s_RepWord01 = \"\"\r\n    '\u2191\u7f6e\u63db\u5185\u5bb9\u3068\u3057\u3066\u306e\u8a9e\u53e5\r\n        \r\n    \r\n    i_mdlNm = ThisWorkbook.VBProject.VBComponents.Count\r\n    '\u2191\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u300cModules(0)\u300d\u304c\u30b9\u30bf\u30fc\u30c8\u306a\u306e\u3067\u3001\r\n    '\u3000\u6700\u5f8c\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6307\u5b9a\u306f\u7dcf\u6570\u304b\u3089\uff11\u5f15\u3044\u3066\u304a\u304f\u3002\r\n\r\n    For i = 1 To i_mdlNm\r\n    '\u2191\u5404\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u3067\uff11\u884c\u305a\u3064\u51e6\u7406\r\n    \r\n        Set o_mdl = ThisWorkbook.VBProject.VBComponents(i).CodeModule\r\n        \r\n        l_AllGyousuu = o_mdl.CountOfLines\r\n        '\u2191\u3059\u3079\u3066\u306e\u884c\u6570\r\n        \r\n'        l_CrrentGyou = 1\r\n        For l_CrrentGyou = 1 To l_AllGyousuu\r\n        \r\n           Debug.Print o_mdl.Lines(l_CrrentGyou, 1)\r\n           '\u2191\uff11\u884c\u5206\u3092\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u8868\u793a\r\n           \r\n           s_Text01 = o_mdl.Lines(l_CrrentGyou, 1)\r\n           s_Text01 = Replace(s_Text01, s_SearchWord01, s_RepWord01, , , vbBinaryCompare)\r\n           Call o_mdl.ReplaceLine(l_CrrentGyou, s_Text01)\r\n    \r\n        Next\r\n        \r\n    \r\n    Next i\r\n\r\n\r\nEnd Sub\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"AccessVBA\u30fbExcelVBA \uff5e \u5225\u306eaccdb\uff08or mdb\uff09\u30d5\u30a1\u30a4\u30eb\u306e\u3001\u3059\u3079\u3066\u306e\u30e2\u30b8\u30e5\u30fc\u30eb\u306eVBA\u30b3\u30fc\u30c9\u306e\u5185\u5bb9\u3092\u3001\u6307\u5b9a\u3057\u305f\u8a9e\u53e5\u306e\u307f\u3092\u4e00\u62ec\u7f6e\u63db\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\uff08\u30e9\u30b9\u30c8\u306bExcel\u7248\u3082\u3042\u308a\u307e\u3059\u3002\u81eaxlsm\u306e\u307f\u306e\u66f8\u304d ...","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\/1876"}],"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=1876"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1876\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1876"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1876"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}