ï¼ããã楽ã«è¡ãªãæ¹æ³ã¯ããã¾ããã§ããããï¼ï¼ ã¢ã¯ãã£ããªããã¯ã®ã¢ã¸ã¥ã¼ã«ãä»»æã®ãã©ã«ã以ä¸ã«ããã¯åãã©ã«ããä½æãã¦ä¸æ¬æ¸ãåºããè¡ãããã°ã©ã ã§ãã ä»äººãä½ã£ãç©ã®æ¹å¤çãè¡ã£ã¦ããã®ã§ãããã¯ã¢ããç®çã«ä½¿ã£ã¦ãã¾ãã Sub Moduleæ¸åº() ' VBA ã¢ã¸ã¥ã¼ã«ã®æ¸ãåºã Dim Project, objxl As Object Dim DirName As String Const Path As String = "C:\tmp\" MkDir Path For Each objxl In Application.Workbooks DirName = Path & Left(objxl.Name, Len(objxl.Name) - 4) & "\" MkDir DirName For Each Project In objxl.VBProject.VBC
{{#tags}}- {{label}}
{{/tags}}