{"id":12360,"date":"2020-07-23T06:00:00","date_gmt":"2020-07-22T21:00:00","guid":{"rendered":"https:\/\/www.muscle-hypertrophy.com\/?p=12360"},"modified":"2020-07-22T23:52:07","modified_gmt":"2020-07-22T14:52:07","slug":"excel-vba-%e3%81%a7%e3%83%95%e3%82%a9%e3%83%ab%e3%83%80%e5%86%85%e3%81%ae%e3%83%96%e3%83%83%e3%82%af%e3%82%92%e9%96%8b%e3%81%8d%e3%83%87%e3%83%bc%e3%82%bf%e3%82%92%e8%aa%ad%e3%81%bf%e8%be%bc%e3%82%80","status":"publish","type":"post","link":"https:\/\/www.muscle-hypertrophy.com\/?p=12360","title":{"rendered":"EXCEL VBA \u3067\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d6\u30c3\u30af\u3092\u958b\u304d\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u3080"},"content":{"rendered":"\n

\u3000Power Query \u304c\u4f7f\u3048\u306a\u3044\u3068\u4e0d\u4fbf\u3067\u3042\u308b\uff0e\u5148\u65e5 EXCEL 2010 \u306e\u7d20\u306e\u74b0\u5883\u3067\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d6\u30c3\u30af\u3092\u3059\u3079\u3066\u958b\u304d\uff0c\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u3080\u5fc5\u8981\u304c\u3042\u3063\u305f\u306e\u3060\u304c\uff0cPower Query \u304c\u4f7f\u3048\u306a\u304b\u3063\u305f\u305f\u3081\uff0cVBA \u3067\u30d6\u30c3\u30af\u3092\u958b\u3044\u3066\u8aad\u307f\u8fbc\u307e\u306a\u3051\u308c\u3070\u306a\u3089\u306a\u304b\u3063\u305f\uff0e\u5099\u5fd8\u9332\u3068\u3057\u3066\u306e\u8a18\u4e8b\u3067\u3042\u308b\uff0e<\/p>\n

\u3000\u3053\u306e\u8a18\u4e8b\u306fPower Query \u3067\u30d5\u30a9\u30eb\u30c0\u304b\u3089\u8907\u6570\u30d5\u30a1\u30a4\u30eb\u3092\u4e00\u62ec\u30a4\u30f3\u30dd\u30fc\u30c8\u3059\u308b<\/a>\u3068\u5bfe\u5fdc\u3057\u3066\u3044\u308b\uff0e\u3084\u3063\u3066\u3044\u308b\u3053\u3068\u306f\u540c\u3058\u3060\u304c\uff0c.xls \u5f62\u5f0f\u3060\u3068\u30af\u30a8\u30ea\u306e\u691c\u8a3c\u306b\u6642\u9593\u304c\u304b\u304b\u308b\u305f\u3081\uff0cVBA \u3067\u8aad\u307f\u8fbc\u3093\u3060\u307b\u3046\u304c\u52d5\u4f5c\u306f\u65e9\u3044\u304b\u3082\u3057\u308c\u306a\u3044\uff0e<\/p>\n

\u3000\u30d5\u30a9\u30eb\u30c0\u30fc\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u4e00\u89a7\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f FileSystemObject \u3092\u4f7f\u3046\u5834\u5408\u3068 Dir() \u95a2\u6570\u3092\u4f7f\u3046\u65b9\u6cd5\u3068\u304c\u3042\u308b\uff0e\u3053\u3053\u3067\u306f FileSystemObject \u3092\u4f7f\u3046\u3053\u3068\u306b\u3059\u308b\uff0e<\/p>\n

\u3000\u30c7\u30fc\u30bf\u306f Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b\u305f\u3081\uff0cRange \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b\u306e\u304c\u5f53\u9762\u306e\u76ee\u6a19\u3068\u306a\u308b\uff0e<\/p>\n

<\/p>\n

Microsoft Scripting Runtime \u3092\u53c2\u7167\u8a2d\u5b9a\u3059\u308b<\/h3>\n

\u3000VBE \u306e\u30c4\u30fc\u30eb\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u53c2\u7167\u8a2d\u5b9a\u3092\u9078\u3076\uff0e<\/p>\n

\"VBE<\/a>
VBE \u306e\u300c\u30c4\u30fc\u30eb\u300d\u300c\u53c2\u7167\u8a2d\u5b9a\u300d<\/figcaption><\/figure>\n

\u3000\u53c2\u7167\u8a2d\u5b9a\u30c0\u30a4\u30a2\u30ed\u30b0\u304c\u958b\u304f\u306e\u3067\uff0c\u30b9\u30af\u30ed\u30fc\u30eb\u3057\u3066 Microsoft Scripting Runtime \u3092\u63a2\u3057\uff0c\u30c1\u30a7\u30c3\u30af\u3092\u5165\u308c\u308b\uff0e<\/p>\n

\u3000\u3053\u306e Microsoft Scripting Runtime \u306f EXCEL \u3060\u3051\u3067\u306f\u306a\u304f Word \u3084 PowerPoint, Access \u3068\u3044\u3063\u305f Office \u306e\u4e2d\u6838\u3092\u306a\u3059\u30a2\u30d7\u30ea\u304b\u3089\u3082\u53c2\u7167\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u30e9\u30a4\u30d6\u30e9\u30ea\u3067\u3042\u308b\uff0e<\/p>\n

\"Microsoft<\/a>
Microsoft Scripting Runtime \u3092\u30c1\u30a7\u30c3\u30af<\/figcaption><\/figure>\n

\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u968e\u5c64\u3068\u69cb\u6587\u306e\u30cd\u30b9\u30c8\u3092\u5bfe\u5fdc\u3055\u305b\u308b<\/h3>\n

\u3000\u6700\u8fd1\u306e VBE \u3067\u306e\u30b3\u30fc\u30c9\u306e\u8a18\u8ff0\u30b9\u30bf\u30a4\u30eb\u306f\uff0c\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u968e\u5c64\u3068\u69cb\u6587\u306e\u30cd\u30b9\u30c8\u3092\u5bfe\u5fdc\u3055\u305b\u3066\u3044\u308b\u3053\u3068\u304c\u591a\u3044\uff0e\u3053\u3053\u3067\u306f\u30d5\u30a9\u30eb\u30c0\u30fc\uff0c\u30d5\u30a1\u30a4\u30eb\uff0c\u30d6\u30c3\u30af\uff0c\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\uff0c\u30bb\u30eb\u306e\u9806\u3067\u3042\u308b\uff0e\u30d5\u30a1\u30a4\u30eb\u3068\u30d6\u30c3\u30af\u306f\u62bd\u8c61\u7684\u306b\u306f\u540c\u3058\u968e\u5c64\u3067\u3042\u308b\u304c\uff0c\u69cb\u6587\u4e0a\u306f\u5225\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u306a\u308b\uff0e<\/p>\n

\"FileSystemObject<\/a>
FileSystemObject \u3068 VBA \u306e\u95a2\u4fc2<\/figcaption><\/figure>\n

FileSystemObject \u306e\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u3092\u751f\u6210\u3059\u308b<\/h4>\n

\u3000\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u5909\u6570\u3092\u5ba3\u8a00\u3059\u308b\uff0eNew \u30ad\u30fc\u30ef\u30fc\u30c9\u3092\u4f7f\u3063\u3066\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u3092\u751f\u6210\u3059\u308b\uff0e<\/p>\n

\u3000FileSystemObject \u306f Windows \u306e\u30d5\u30a1\u30a4\u30eb\u30b7\u30b9\u30c6\u30e0\u306b\u95a2\u3059\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u3042\u308a\uff0c\u30c9\u30e9\u30a4\u30d6\u3084\u30d5\u30a9\u30eb\u30c0\u30fc\uff0c\u30d5\u30a1\u30a4\u30eb\u306e\u30e1\u30bf\u30c7\u30fc\u30bf\u3092\u53d6\u5f97\u3059\u308b\u3082\u306e\u3067\u3042\u308b\uff0e\u8a73\u7d30\u306f\u5f8c\u8ff0\u3059\u308b\uff0e<\/p>\n

Sub sample()\n\nDim myFSO   As Scripting.FileSystemObject\nSet myFSO = New Scripting.FileSystemObject\n\nEnd Sub<\/pre>\n
Files \u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u304b\u3089 File \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b<\/h4>\n
\u3000FileSystemObject \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e GetFolder \u30e1\u30bd\u30c3\u30c9\u306b\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u3092\u5f15\u6570\u3068\u3057\u3066\u6e21\u3057\uff0cFiles \u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u3092\u751f\u6210\u3059\u308b\uff0eFiles \u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u3092\u30eb\u30fc\u30d7\u3057\u3066 File \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b\uff0e<\/p>\n
\u3000\u3053\u3053\u3067\u306e\u76ee\u7684\u306f\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u3092\u6587\u5b57\u5217\u3068\u3057\u3066\u53d6\u5f97\u3059\u308b\u3053\u3068\u3067\u3042\u308b\uff0e<\/p>\n
Sub sample()\n\nDim myFSO   As Scripting.FileSystemObject\nSet myFSO = New Scripting.FileSystemObject\n\nDim myFiles As Scripting.Files\nDim myFile  As Scripting.File\n \nSet myFiles = myFSO.GetFolder(ThisWorkbook.Path).Files\n\nFor Each myFile In myFiles\nNext myFile\n\nEnd Sub<\/pre>\n
File \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e Name \u30d7\u30ed\u30d1\u30c6\u30a3\u306b\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u304b\u3051\u308b<\/h4>\n
\u3000\u7b46\u8005\u306e\u74b0\u5883\u3067\u306f\u6697\u9ed9\u306e\u524d\u63d0\u3068\u3057\u3066\u30d6\u30c3\u30af\u540d\u306e\u524d\u534a\u304c\u5171\u901a\u306e\u6587\u5b57\u5217\u3067\u3042\u308b\u305f\u3081\uff0c Left \u95a2\u6570\u3092\u30d5\u30a3\u30eb\u30bf\u30fc\u3068\u3057\u3066\u4f7f\u3063\u3066\u3044\u308b\uff0ePower Query \u306a\u3089\u5217\u306b\u5bfe\u3057\u3066\u300c…\u3067\u59cb\u307e\u308b\u300d\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a3\u30eb\u30bf\u30fc\u3092\u9069\u7528\u3057\u3066\u3044\u308b\u3068\u3053\u308d\u3067\u3042\u308b\uff0e<\/p>\n
Sub sample()\n\nDim myFSO   As Scripting.FileSystemObject\nSet myFSO = New Scripting.FileSystemObject\n\nDim myFiles As Scripting.Files\nDim myFile  As Scripting.File\n\nSet myFiles = myFSO.GetFolder(ThisWorkbook.Path).Files\n\nFor Each myFile In myFiles\n    With myFile\n        If Left(.Name, 11) = \"FilterString\" Then\n            Debug.Print .Name, .DateCreated, .DateLastAccessed, .DateLastModified\n            \n        End If\n    End With\nNext myFile\n\nEnd Sub<\/pre>\n
Workbook \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b<\/h4>\n
\u3000Workbook \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u53d6\u5f97\u306b\u306f\u76f4\u611f\u3068\u7570\u306a\u308b\u65b9\u6cd5\u3092\u4f7f\u3046\uff0e\u3064\u307e\u308a\uff0cWorkbooks \u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306b Open \u30e1\u30bd\u30c3\u30c9\u3092\u9069\u7528<\/a>\u3057\uff0c Workbook \u578b\u306e\u5909\u6570\u306b\u4ee3\u5165\u3057\u3066\u53d6\u5f97\u3059\u308b\uff0eWorkbook \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b Open \u30e1\u30bd\u30c3\u30c9\u306f\u5b58\u5728\u3057\u306a\u3044\u306e\u3067\u6ce8\u610f\u304c\u5fc5\u8981\u3067\u3042\u308b\uff0e<\/p>\n
\u3000\u901a\u5e38\u306a\u3089\uff0c\u4e0b\u8a18\u306e\u30b3\u30e1\u30f3\u30c8\u30a2\u30a6\u30c8\u3057\u305f 17 \u884c\u76ee\u306e\u3088\u3046\u306b\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u5f15\u6570\u3068\u3057\u3066\u8a18\u8ff0\u3059\u308b\u306e\u304c\u666e\u901a\u3067\u3042\u308b\uff0e\u3057\u304b\u3057\uff0c\u306a\u305c\u304b\u5b9f\u884c\u6642\u30a8\u30e9\u30fc 1004 \u304c\u767a\u751f\u3057\u3066 Workbook \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u306a\u3044\uff0e<\/p>\n
\"Microsoft<\/a>
Microsoft Visual Basic \u5b9f\u884c\u6642\u30a8\u30e9\u30fc ‘1004’:\u7533\u3057\u8a33\u3054\u3056\u3044\u307e\u305b\u3093\uff0e***.xls\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\uff0e\u540d\u524d\u304c\u5909\u66f4\u3055\u308c\u305f\u304b\uff0c\u79fb\u52d5\u3084\u524a\u9664\u304c\u884c\u308f\u308c\u305f\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\uff0e<\/figcaption><\/figure>\n
\u3000\u691c\u7d22\u3059\u308b\u3068\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3057\u306a\u3044\u306e\u304c\u539f\u56e0\u3068\u3057\u3066\u6700\u591a\u3067\u3042\u308b\u3068\u308f\u304b\u308b\uff0e\u3057\u304b\u3057\uff0c\u5b9f\u969b\u306b\u30d5\u30a1\u30a4\u30eb\u306f\u5b58\u5728\u3057\u3066\u3044\u308b\uff0e\u305d\u306e\u5f8c\u8a66\u884c\u932f\u8aa4\u3057\u3066 18 \u884c\u76ee\u306e\u3088\u3046\u306b\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u3092\u5f15\u6570\u3068\u3057\u3066\u6e21\u3059\u3068\u30a8\u30e9\u30fc\u304c\u767a\u751f\u305b\u305a\u554f\u984c\u306a\u304f\u5b9f\u884c\u3067\u304d\u308b\u3053\u3068\u304c\u308f\u304b\u3063\u305f\uff0e<\/p>\n
\u3000\u30eb\u30fc\u30d7\u5185\u3067 Workbook \u3092\u958b\u3044\u305f\u5f8c\u306f 19 \u884c\u76ee\u306e\u3088\u3046\u306b\u9589\u3058\u3066\u304a\u304f\uff0e\u3055\u3082\u306a\u3044\u3068\u51e6\u7406\u304c\u7d42\u308f\u3063\u305f\u5f8c\u306b\u5927\u91cf\u306e\u30d6\u30c3\u30af\u304c\u958b\u304d\u3063\u3071\u306a\u3057\u306b\u306a\u308b\uff0e<\/p>\n
Sub sample()\n\nDim myFSO   As Scripting.FileSystemObject\nSet myFSO = New Scripting.FileSystemObject\n\nDim myFiles As Scripting.Files\nDim myFile  As Scripting.File\n\nSet myFiles = myFSO.GetFolder(ThisWorkbook.Path).Files\n\nDim myWB    As Workbook\n\nFor Each myFile In myFiles\n    With myFile\n        If Left(.Name, 11) = \"FilterString\" Then\n            'Debug.Print .Name, .DateCreated, .DateLastAccessed, .DateLastModified\n            'Set myWB = Workbooks.Open(myFile.Name)\n            Set myWB = Workbooks.Open(myFile.Path)\n            myWB.Close\n        End If\n    End With\nNext myFile\n\nEnd Sub<\/pre>\n
Worksheet \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b<\/h4>\n
\u3000Workbook \u5185\u306e Worksheets \u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u3092\u30eb\u30fc\u30d7\u3057\u3066\u5909\u6570 mySh \u3067 Worksheet \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b\uff0e<\/p>\n
Sub sample()\n\nDim myFSO   As Scripting.FileSystemObject\nSet myFSO = New Scripting.FileSystemObject\n\nDim myFiles As Scripting.Files\nDim myFile  As Scripting.File\n\nSet myFiles = myFSO.GetFolder(ThisWorkbook.Path).Files\n\nDim myWB    As Workbook\nDim mySh    As Worksheet\n\nFor Each myFile In myFiles\n    With myFile\n        If Left(.Name, 11) = \"FilterString\" Then\n            'Debug.Print .Name, .DateCreated, .DateLastAccessed, .DateLastModified\n            Set myWB = Workbooks.Open(myFile.Path)\n            For Each mySh In myWB.Worksheets\n                Debug.Print mySh.Name\n            Next mySh\n            myWB.Close\n        End If\n    End With\nNext myFile\n\nEnd Sub<\/pre>\n
Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3059\u308b<\/h4>\n
\u300024 \u884c\u76ee\u3067\u30d8\u30c3\u30c0\u30fc\u884c\u3092\u542b\u3081\u3066 Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u53d6\u5f97\u3057\uff0c25 \u884c\u76ee\u3067\u30d8\u30c3\u30c0\u30fc\u884c\u3092\u30aa\u30d5\u30bb\u30c3\u30c8\u3057\u3066\u3044\u308b\uff0e<\/p>\n
Sub sample()\n\nDim myFSO   As Scripting.FileSystemObject\nSet myFSO = New Scripting.FileSystemObject\n\nDim myFiles As Scripting.Files\nDim myFile  As Scripting.File\n\nSet myFiles = myFSO.GetFolder(ThisWorkbook.Path).Files\n'Debug.Print ThisWorkbook.Path\n\nDim myWB    As Workbook\nDim mySh    As Worksheet\nDim myRng   As Range\n\nFor Each myFile In myFiles\n    With myFile\n        If Left(.Name, 11) = \"FilterString\" Then\n            'Debug.Print .Name, .DateCreated, .DateLastAccessed, .DateLastModified\n            Set myWB = Workbooks.Open(myFile.Path)\n            For Each mySh In myWB.Worksheets\n                'Debug.Print mySh.Name\n                With mySh\n                    Set myRng = Intersect(.Range(\"A:D\"), , Range(\"A1\").CurrentRegion)\n                    Set myRng = myRng.Resize(myRng.Rows.Count - 1).Offset(1)\n                    \n                End With\n            Next mySh\n            myWB.Close\n        End If\n    End With\nNext myFile\n\nEnd Sub<\/pre>\n
Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304b\u3089\u914d\u5217\u306b\u30c7\u30fc\u30bf\u3092\u6e21\u3059<\/h3>\n
\u3000Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u53d6\u5f97\u3067\u304d\u305f\u3089\u914d\u5217\u306b\u30c7\u30fc\u30bf\u3092\u6e21\u3059\uff0e\u3053\u3053\u304b\u3089\u5148\u306f\u30e1\u30e2\u30ea\u4e0a\u3067\u51e6\u7406\u304c\u5b8c\u7d50\u3059\u308b\u305f\u3081\u51e6\u7406\u901f\u5ea6\u306e\u5411\u4e0a\u304c\u898b\u8fbc\u3081\u308b\uff0e<\/p>\n
Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4e8c\u6b21\u5143\u914d\u5217\u306b\u683c\u7d0d\u3057\uff0c\u5404\u5217\u3054\u3068\u306b\u4e00\u6b21\u5143\u914d\u5217\u306b\u683c\u7d0d\u3059\u308b<\/h4>\n
\u300037 \u884c\u76ee\u3067 Variant \u578b\u5909\u6570 myVar \u306b Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8 myRng \u3092\u4ee3\u5165\u3057\u3066\u4e8c\u6b21\u5143\u914d\u5217\u3092\u5f97\u3066\u3044\u308b\uff0e\u305d\u306e\u5f8c\uff0cID, \u6c0f\u540d\uff0c\u65e5\u4ed8\uff0c\u30c6\u30b9\u30c8\u7d50\u679c\u3092\u793a\u3059 myID(), myName(), myDate(), myTest() \u306e\u5404\u5909\u6570\u3092\uff0c\u5024\u3092\u4fdd\u6301\u3057\u3064\u3064\u30b5\u30a4\u30ba\u3092\u4e00\u3064\u3065\u3064\u5927\u304d\u304f\u3057\u3066\u3044\u308b\uff0e\u52d5\u7684\u914d\u5217\u306e\u57fa\u672c\u7684\u306a\u69cb\u6587\u3067\u3042\u308b\uff0e<\/p>\n
\u3000\u3044\u3063\u305f\u3093\u4e8c\u6b21\u5143\u914d\u5217\u306b\u683c\u7d0d\u3057\u3066\u304a\u304d\u306a\u304c\u3089\uff0c\u305d\u306e\u5f8c\u4e00\u6b21\u5143\u914d\u5217\u306b\u683c\u7d0d\u3057\u76f4\u3057\u3066\u3044\u308b\u306e\u306f\uff0c\u4e8c\u6b21\u5143\u914d\u5217\u306f\u5217\u65b9\u5411\u306b\u30b5\u30a4\u30ba\u3092\u5927\u304d\u304f\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u306a\u3044\u305f\u3081\u3067\u3042\u308b\uff0e<\/p>\n
Sub sample()\n\nDim myFSO   As Scripting.FileSystemObject\nSet myFSO = New Scripting.FileSystemObject\n\nDim myFiles As Scripting.Files\nDim myFile  As Scripting.File\n\nSet myFiles = myFSO.GetFolder(ThisWorkbook.Path).Files\n'Debug.Print ThisWorkbook.Path\n\nDim myWB    As Workbook\nDim mySh    As Worksheet\nDim myRng   As Range\n\nDim myVar       As Variant\nDim i           As Long\nDim myID()      As String\nDim myName()    As String\nDim myDate()    As Date\nDim myTest()    As Single\n\nDim j       As Long\n\nj = 0\nFor Each myFile In myFiles\n    With myFile\n        If Left(.Name, 11) = \"FilterString\" Then\n            'Debug.Print .Name, .DateCreated, .DateLastAccessed, .DateLastModified\n            \n            Set myWB = Workbooks.Open(myFile.Path)\n            For Each mySh In myWB.Worksheets\n                'Debug.Print mySh.Name\n                With mySh\n                    Set myRng = Intersect(.Range(\"A:D\"), , Range(\"A1\").CurrentRegion)\n                    Set myRng = myRng.Resize(myRng.Rows.Count - 1).Offset(1)\n                    myVar = myRng\n                    For i = LBound(myVar) To UBound(myVar)\n                        ReDim Preserve myID(j)\n                        ReDim Preserve myName(j)\n                        ReDim Preserve myDate(j)\n                        ReDim Preserve myTest(j)\n                        \n                        myID(j) = myVar(i, 1)\n                        myName(j) = myVar(i, 2)\n                        myDate(j) = myVar(i, 3)\n                        myTest(j) = myVar(i, 4)\n                        j = j + 1\n                        \n                    Next i\n                End With\n            Next mySh\n            myWB.Close\n        End If\n    End With\nNext myFile\n\nEnd Sub<\/pre>\n
\u4e00\u6b21\u5143\u914d\u5217\u3092\u4e8c\u6b21\u5143\u914d\u5217\u306b\u7d71\u5408\u3059\u308b<\/h4>\n
\u3000Variant \u578b\u306e\u5909\u6570 myAr() \u3092\u5ba3\u8a00\u3057\uff0c\u30eb\u30fc\u30d7\u3057\u3066 myID, myName, myDate, myTest \u306e\u5185\u5bb9\u3092\u683c\u7d0d\u3059\u308b\uff0e<\/p>\n
Dim myAr()  As Variant\n\nReDim myAr(LBound(myID) To UBound(myAr), 1 To 4)\nFor j = LBound(myID) To UBound(myID)\n    myAr(j, 1) = myID(j)\n    myAr(j, 2) = myName(j)\n    myAr(j, 3) = myDate(j)\n    myAr(j, 4) = myTest(j)\nNext j<\/pre>\n
\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306b\u66f8\u304d\u8fbc\u3080<\/h4>\n
\u3000\u5909\u6570 myAr \u3092\u4ee3\u5165\u3057\u3066\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306b\u66f8\u304d\u8fbc\u3080\uff0e\u7bc4\u56f2\u306f\u4e0a\u8a18\u30b3\u30fc\u30c9\u306e j \u306e\u6700\u5927\u5024\u3092\u78ba\u8a8d\u3057\u3066\u304b\u3089\u6c7a\u3081\u308b\u3053\u3068\uff0e<\/p>\n
ThisWorkbook.Worksheets(1).Range(\"A2:D\" & j + 1) = myAr\n<\/pre>\n
Microsoft Scripting Runtime \u30e9\u30a4\u30d6\u30e9\u30ea\u3092\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u30d6\u30e9\u30a6\u30b6\u30fc\u304b\u3089\u898b\u308b<\/h3>\n
\u3000\u30c4\u30fc\u30eb\u30e1\u30cb\u30e5\u30fc\u304b\u3089 Microsoft Scripting Runtime \u306e\u30c1\u30a7\u30c3\u30af\u3092\u30aa\u30f3\u30aa\u30d5\u3059\u308b\u3068\uff0c\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u30d6\u30e9\u30a6\u30b6\u30fc\u3067\u898b\u3048\u308b\u30e9\u30a4\u30d6\u30e9\u30ea\u306b Scripting \u304c\u73fe\u308c\u305f\u308a\u6d88\u3048\u305f\u308a\u3059\u308b\uff0e\u691c\u7d22\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u30ef\u30a4\u30eb\u30c9\u30ab\u30fc\u30c9\u3092\u6307\u5b9a\u3059\u308b\u3068\uff0c\u540c\u30e9\u30a4\u30d6\u30e9\u30ea\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304c\u4e00\u89a7\u3067\u304d\u308b\uff0e<\/p>\n
\"Microsoft<\/a>
Microsoft Scripting Runtime \u304c\u30aa\u30f3\u3067\u306f\u30e9\u30a4\u30d6\u30e9\u30ea\u306b Scripting \u304c\u898b\u3048\u308b<\/figcaption><\/figure>\n
\"Microsoft<\/a>
Microsoft Scripting Runtime \u304c\u30aa\u30d5\u3067\u306f\u30e9\u30a4\u30d6\u30e9\u30ea\u306b Scripting \u306f\u898b\u3048\u306a\u3044<\/figcaption><\/figure>\n
\u3000\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u306f FileSystemObject, File, Files, Folder, Folders, Drive, Drives, Dictionary, Encoder \u304c\u3042\u308b\uff0e<\/p>\n
FileSystemObject<\/h4>\n
\u3000\u30d5\u30a1\u30a4\u30eb\uff0c\u30d5\u30a9\u30eb\u30c0\u30fc\uff0c\u30c9\u30e9\u30a4\u30d6\u3092\u6271\u3046\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u3042\u308b\uff0e<\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
MEMBER<\/th>\n <\/th>\nReturn<\/th>\n<\/tr>\n
BuildPath(Path As String, Name As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
CopyFile(Source As String, Destination As String, [OverWriteFiles As Boolean = True])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
CopyFolder(Source As String, Destination As String, [OverWriteFiles As Boolean = True])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
CreateFolder(Path As String)<\/td>\nFunction<\/td>\nFolder<\/td>\n<\/tr>\n
CreateTextFile(FileName As String, [Overwrite As Boolean = True], [Unicode As Boolean = False])<\/td>\nFunction<\/td>\nTextStream<\/td>\n<\/tr>\n
DeleteFile(FileSpec As String, [Force As Boolean = False])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
DeleteFolder(FolderSpec As String, [Force As Boolean = False])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
DriveExists(DriveSpec As String)<\/td>\nFunction<\/td>\nBoolean<\/td>\n<\/tr>\n
Drives<\/td>\nProperty<\/td>\nDrives<\/td>\n<\/tr>\n
FileExists(FileSpec As String)<\/td>\nFunction<\/td>\nBoolean<\/td>\n<\/tr>\n
FolderExists(FolderSpec As String)<\/td>\nFunction<\/td>\nBoolean<\/td>\n<\/tr>\n
GetAbsolutePathName(Path As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
GetBaseName(Path As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
GetDrive(DriveSpec As String)<\/td>\nFunction<\/td>\nDrive<\/td>\n<\/tr>\n
GetDriveName(Path As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
GetExtensionName(Path As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
GetFile(FilePath As String)<\/td>\nFunction<\/td>\nFile<\/td>\n<\/tr>\n
GetFileName(Path As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
GetFileVersion(FileName As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
GetFolder(FolderPath As String)<\/td>\nFunction<\/td>\nFolder<\/td>\n<\/tr>\n
GetParentFolderName(Path As String)<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
GetSpecialFolder(SpecialFolder As SpecialFolderConst)<\/td>\nFunction<\/td>\nFolder<\/td>\n<\/tr>\n
GetStandardStream(StandardStreamType As StandardStreamTypes, [Unicode As Boolean = False])<\/td>\nFunction<\/td>\nTextStream<\/td>\n<\/tr>\n
GetTempName()<\/td>\nFunction<\/td>\nString<\/td>\n<\/tr>\n
MoveFile(Source As String, Destination As String)<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
MoveFolder(Source As String, Destination As String)<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
OpenTextFile(FileName As String, [IOMode As IOMode = ForReading], [Create As Boolean = False], [Format As Tristate = TristateFalse])<\/td>\nFunction<\/td>\nTextStream<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
File \u30aa\u30d6\u30b8\u30a7\u30af\u30c8<\/h4>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
MEMBER<\/th>\n <\/th>\nType of Return<\/th>\n<\/tr>\n
Attributes<\/td>\nProperty<\/td>\nFileAttribute<\/td>\n<\/tr>\n
Copy(Destination As String, [OverWriteFiles As Boolean = True])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
DateCreated<\/td>\nProperty<\/td>\nDate<\/td>\n<\/tr>\n
DateLastAccessed<\/td>\nProperty<\/td>\nDate<\/td>\n<\/tr>\n
DateLastModified<\/td>\nProperty<\/td>\nDate<\/td>\n<\/tr>\n
Delete([Force As Boolean = False])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
Drive<\/td>\nProperty<\/td>\nDrive<\/td>\n<\/tr>\n
Move(Destination As String)<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
Name<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
OpenAsTextStream([IOMode As IOMode = ForReading], [Format As Tristate = TristateFalse])<\/td>\nFunction<\/td>\nTextStream<\/td>\n<\/tr>\n
ParentFolder<\/td>\nProperty<\/td>\nFolder<\/td>\n<\/tr>\n
Path<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
ShortName<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
ShortPath<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
Size<\/td>\nProperty<\/td>\nVariant<\/td>\n<\/tr>\n
Type<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
Files \u30b3\u30ec\u30af\u30b7\u30e7\u30f3<\/h4>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
MEMBER<\/th>\n <\/th>\nType of Return<\/th>\n<\/tr>\n
Count<\/td>\nProperty<\/td>\nLong<\/td>\n<\/tr>\n
Item(Key)<\/td>\nProperty<\/td>\nFile<\/td>\n<\/tr>\n
Attributes<\/td>\nProperty<\/td>\nFileAttribute<\/td>\n<\/tr>\n
Copy(Destination As String, [OverWriteFiles As Boolean = True])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
CreateTextFile(FileName As String, [Overwrite As Boolean = True], [Unicode As Boolean = False])<\/td>\nFunction<\/td>\nTextStream<\/td>\n<\/tr>\n
DateCreated<\/td>\nProperty<\/td>\nDate<\/td>\n<\/tr>\n
DateLastAccessed<\/td>\nProperty<\/td>\nDate<\/td>\n<\/tr>\n
DateLastModified<\/td>\nProperty<\/td>\nDate<\/td>\n<\/tr>\n
Delete([Force As Boolean = False])<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
Drive<\/td>\nProperty<\/td>\nDrive<\/td>\n<\/tr>\n
Files<\/td>\nProperty<\/td>\nFiles<\/td>\n<\/tr>\n
IsRootFolder<\/td>\nProperty<\/td>\nBoolean<\/td>\n<\/tr>\n
Move(Destination As String)<\/td>\nSub<\/td>\n <\/td>\n<\/tr>\n
Name<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
ParentFolder<\/td>\nProperty<\/td>\nFolder<\/td>\n<\/tr>\n
Path<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
ShortName<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
ShortPath<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n
Size<\/td>\nProperty<\/td>\nVariant<\/td>\n<\/tr>\n
SubFolders<\/td>\nProperty<\/td>\nFolders<\/td>\n<\/tr>\n
Type<\/td>\nProperty<\/td>\nString<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n","protected":false},"excerpt":{"rendered":"
\u3000Power Query \u304c\u4f7f\u3048\u306a\u3044\u3068\u4e0d\u4fbf\u3067\u3042\u308b\uff0e\u5148\u65e5 EXCEL 2010 \u306e\u7d20\u306e\u74b0\u5883\u3067\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d6\u30c3\u30af\u3092\u3059\u3079\u3066\u958b\u304d\uff0c\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u3080\u5fc5\u8981\u304c\u3042\u3063\u305f\u306e\u3060\u304c\uff0cPower Query \u304c\u4f7f\u3048\u306a\u304b\u3063\u305f\u305f\u3081\uff0cVBA \u3067\u30d6\u30c3\u30af\u3092 … <\/p>\n
“EXCEL VBA \u3067\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u30d6\u30c3\u30af\u3092\u958b\u304d\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u3080” \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":12507,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[457,8286,8342,5157,8343,8344,5471,8345,8346,2884,8322,8323,4997,4698,8347,8348,8340,6766,8306,8338,8349,8339,8341,265,8303,8071,8313,8350,8315,8312,8305,8336,8351,8337,5815,8352,8353,8354,8355,8356,8357,8358,8359,8316,8314,8360,8361,8362,2775,7009,5120,8373,4577,5818,8319,2474,8307,8367,8364,8365,8318,5816,3664,5465,8326,8328,8368,8366,8369,8317,4067,3969,4530,7099,5484,5466,5470,8311,4657,8370,8371,8372,4772,8374,5156,6768,5819,5809,8333,459,3897,1807,363,8324,8327,8325,4523,8329,4599,8330,8320,2796,8331,460,4554,4848,2710,4407,433,4492,646,4191,3900,2911,8376,4825,8304,1669,8276,8377,8291,5357,7667,4834,4593,663,5918,8332,8334,3553,5455,8308,3949,4993,8310,3549,4671,2496,442,7754,5155,3672,8309,4619,2923],"class_list":["post-12360","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-technology","tag-access","tag-attributes","tag-buildpath","tag-copy","tag-copyfile","tag-copyfolder","tag-count-2","tag-createfolder","tag-createtextfile","tag-date","tag-datecreated","tag-datelastmodified","tag-debug-print","tag-delete","tag-deletefile","tag-deletefolder","tag-dictionary","tag-dim","tag-dir","tag-drive","tag-driveexists","tag-drives","tag-encoder","tag-excel","tag-excel-2010","tag-file","tag-file-","tag-fileexists","tag-files","tag-files-","tag-filesystemobject","tag-folder","tag-folderexists","tag-folders","tag-for-each","tag-getabsolutepathname","tag-getbasename","tag-getdrive","tag-getdrivename","tag-getextensionname","tag-getfile","tag-getfilename","tag-getfileversion","tag-getfolder","tag-getfolder-","tag-getparentfoldername","tag-getspecialfolder","tag-getstandardstream","tag-id","tag-in","tag-intersect","tag-isrootfolder","tag-item","tag-lbound","tag-left-","tag-long","tag-microsoft-scripting-runtime","tag-move","tag-movefile","tag-movefolder","tag-name-","tag-next","tag-office","tag-offset","tag-open","tag-open-","tag-openastextstream","tag-opentextfile","tag-parentfolder","tag-path","tag-power-query","tag-powerpoint","tag-range","tag-range-","tag-redim-preserve","tag-resize","tag-rows","tag-scripting","tag-set","tag-shortname","tag-shortpath","tag-size","tag-string","tag-subfolders","tag-thisworkbook","tag-type","tag-ubound","tag-variant","tag-variant-","tag-vba","tag-vbe","tag-windows","tag-word","tag-workbook-","tag-workbooks-","tag-worksheet","tag-worksheet-","tag-worksheets","tag-worksheets-","tag-8320","tag-2796","tag-8331","tag-460","tag-4554","tag-4848","tag-2710","tag-4407","tag-433","tag-4492","tag-646","tag-4191","tag-3900","tag-2911","tag-8376","tag-4825","tag-8304","tag-1669","tag-8276","tag-8377","tag-8291","tag-5357","tag-7667","tag-4834","tag-4593","tag-663","tag-5918","tag-8332","tag-8334","tag-3553","tag-5455","tag-8308","tag-3949","tag-4993","tag-8310","tag-3549","tag-4671","tag-2496","tag-442","tag-7754","tag-5155","tag-3672","tag-8309","tag-4619","tag-2923"],"_links":{"self":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/12360","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=12360"}],"version-history":[{"count":127,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/12360\/revisions"}],"predecessor-version":[{"id":12511,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/posts\/12360\/revisions\/12511"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=\/wp\/v2\/media\/12507"}],"wp:attachment":[{"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=12360"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=12360"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.muscle-hypertrophy.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=12360"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}