엑셀 : 새 값을 삽입 할 때 자동 업데이트되는 폴더를 만드는 방법은 무엇입니까?

Question

내가 선택한 열에 새 항목을 만들 때마다 새 폴더가 만들어지는 방식으로 Excel에서 폴더를 만들려고합니다.

이미 폴더를 만드는 VBA 코드를 검색했습니다. 하지만 셀을 선택하고 매회 매크로를 실행해야합니다. 내가 자동으로 그렇게 할 수있는 방법이 있습니까?

다음은

Sub CreateFolder() 
Dim caminho As String 
Dim folder As Object, FolderName 

For i = 1 To 500 
    Set folder = CreateObject("Scripting.FileSystemObject") FolderName = ActiveWorkbook.Path & "\" & Range("A" & i).Value 
    If Not folder.FolderExists(FolderName) Then 
     folder.CreateFolder (FolderName) 
    End If 
    directory = ThisWorkbook.Path 
Next i 
End Sub 

Answer 1

예, 우리는 당신을 도울 수있는 새로운 폴더 (하위 디렉토리)를 생성하는 코드 사전에 레오

을 주셔서 감사합니다. 그냥 관련 정보가 필요합니다. 열을 선택해야합니까? 또는 하드 코드 된 열을 사용하여 작업 할 수 있습니까? Column D와 같은 컬럼을 선언하십시오 ... 워크 시트 모듈에 Worksheet_Change 매크로를 넣으면 특정 열의 값이 변경 될 때마다 자동으로 해당 폴더가 존재하는지 확인한 후 생성하십시오.

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim caminho As String 
Dim folder As Object, FolderName 

If Target.Column = 1 And Target.Value <> "" Then ' If Changed Cell is in Column A 


' This code changes unacceptable file name characters with an underscore 
    Filename = Target.Value 
    MyArray = Array("<", ">", "|", "/", "*", "\", "?", """") 
    For X = LBound(MyArray) To UBound(MyArray) 
     Filename = Replace(Filename, MyArray(X), "_", 1) 
    Next X 

' This code creates the folder if it doesn't already exist 
    Set folder = CreateObject("Scripting.FileSystemObject") 
    FolderName = ActiveWorkbook.Path & "\" & Filename 
    If Not folder.FolderExists(FolderName) Then 
     folder.CreateFolder (FolderName) 
    End If 



End If 

End Sub