폴더 내의 파일로 스프레드 시트 채우기 위해 준비된 특정 조건을 쉽게 관리 할

Dropbox에 파일이있는 순간 프로젝트와 관련된 폴더 내의 많은 파일을 관리해야합니다. 따라서 폴더 내 파일 이름으로 스프레드 시트를 채울 수있는 방법을 찾고 싶습니다.이 방법으로 이러한 파일과 관련된 주석, 날짜, 상태 등이있는 열을 추가 할 수 있습니다. 다음 단계를 위해 준비된 특정 조건을 쉽게 관리 할 수 ​​있습니다.

파일이 폴더에 추가되거나 폴더에서 제거되는 경우가 있습니다.

Excel 또는 Google 스프레드 시트를 통해이를 수행 할 수있는 방법이 있습니까? 파일 저장소가 공유 옵션이있는 한 Dropbox, OneDrive, Google Drive 등이면 문제가되지 않습니다.

감사,

답변

시작하는 두 가지 빠른 방법 (더 쉽게 업데이트 할 수 있도록 확장 할 수 있습니다).

CMD와 DIR 명령을 사용하면 작업을 시작할 수있는 기본 파일 목록을 빠르게 얻을 수 있습니다. 다음 명령을 사용하십시오.

dir /b > output.csv

여기에 이미지 설명을 입력하십시오

여기에 이미지 설명을 입력하십시오

대안 적으로 (목록을 업데이트하고 작업 할 수 있기를 원합니다) 빠른 VBA 예제를 작성했습니다. 물론 수정해야 할 사항이 있지만 여기에는 기본 사항이 있습니다.

Sub PopulateRows()
    Dim objFSO, objFolder, colFiles, objFile, FindValue
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder("C:\Users\Jonno\Dropbox\Public")
    Set colFiles = objFolder.Files

    Dim curRow

    curRow = FindFirstEmptyRow

    For Each objFile In colFiles
        Set FindValue = Range("A:A").Find(objFile.Name)
        If FindValue Is Nothing Then
            Range("A" & curRow).Value = objFile.Name
            Range("B" & curRow).Value = objFile.Size
            Range("C" & curRow).Value = objFile.DateCreated
            Range("D" & curRow).Value = objFile.DateLastModified
            curRow = curRow + 1
        End If
    Next
End Sub

Function FindFirstEmptyRow()
    Dim curRow
    curRow = 1
    Do
        If IsEmpty(Range("A" & curRow).Value) Then
            FindFirstEmptyRow = curRow
            Exit Function
        End If
        curRow = curRow + 1
    Loop
End Function

여기에 이미지 설명을 입력하십시오

여기에 이미지 설명을 입력하십시오

파일 이름, 크기, 생성 날짜 및 수정 날짜입니다.

VBA는 새 파일을 추가하지만 현재 항목을 제거하는 논리가 없으므로 사용하는 경우 수정해야 할 수도 있습니다.

이것이 당신에게 사용되는지 확실하지 않지만 희망적으로 당신에게 아이디어를 줄 것입니다.

답변