특정 폴더의 사진 이름/파일 이름을 Excel 셀에 빠르게 나열하려면 어떻게 해야 하나요?

이 튜토리얼에서는 스크린샷에 표시된 대로 특정 폴더의 모든 사진 이름 또는 파일 이름을 Excel 시트에 빠르게 나열하는 몇 가지 방법을 제공합니다. 빠른 탐색 >VBA를 사용하여 Excel에서 폴더의 사진 이름 나열하기 >Filename List를 사용하여 Excel에서 폴더의 사진 이름 또는 특정 형식의 파일 이름 나열하기 >샘플 파일 다운로드

Excel에는 선택한 폴더의 모든 사진 이름을 자동으로 시트의 셀에 나열할 수 있는 내장 함수가 없지만, 여기서는 이 작업을 신속하게 해결할 수 있는 VBA 코드를 제공합니다.

1. Excel에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 나타나는 창에서 삽입 > 모듈을 클릭하여 새 모듈 스크립트를 생성합니다.

3. 아래 코드를 복사하여 새 모듈 스크립트 창에 붙여넣습니다.

Sub PictureNametoExcel()
'UpdatebyExtendoffice 
    Dim I As Long
    Dim xRg As Range
    Dim xAddress As String
    Dim xFileName As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a cell to place name list:", "Kutools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xRg = xRg(1)
    xRg.Value = "Picture Name"
    With xRg.Font
    .Name = "Arial"
    .FontStyle = "Bold"
    .Size = 10
    End With
    xRg.EntireColumn.AutoFit
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    I = 1
    If xFileDlg.Show = -1 Then
        xFileDlgItem = xFileDlg.SelectedItems.Item(1)
        xFileName = Dir(xFileDlgItem & "\")
        Do While xFileName <> ""
            If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then
                xRg.Offset(I).Value = xFileDlgItem & "\" & xFileName
                I = I + 1
            End If
            xFileName = Dir
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

4. 누릅니다 F5 키를 누르면 사진 이름을 배치할 셀을 선택할 수 있는 대화상자가 나타납니다.

5. 클릭합니다 확인 탐색 대화상자에서 사진 이름을 나열할 폴더를 계속 선택합니다.

6. 클릭합니다 확인선택한 폴더의 모든 사진 이름이 이제 Excel에 나열됩니다.

참고: VBA 코드에서 필요한 파일 확장자에 대해 jpg/png/…와 같은 문자열을 If InStr(1, xFileName, ".jpg") + InStr(1, xFileName, ".png") + InStr(1, xFileName, ".img") + InStr(1, xFileName, ".ioc") + InStr(1, xFileName, ".bmp") > 0 Then 변경할 수 있습니다. 예를 들어 doc 형식의 파일 이름을 나열하려면 코드 문자열을 If InStr(1, xFileName, ".doc") > 0 Then으로만 변경하면 됩니다.

일반적으로 Excel 셀에 폴더의 한 가지 또는 모든 형식의 파일 이름을 나열해야 하는 경우 코드가 복잡하고 처리하기 어려울 수 있지만, 아래 방법을 통해 이 작업을 신속히 해결할 수 있습니다.

가족과 더 많은 시간을 보내고 급여 인상을 원하십니까? Office Tab이 지금 바로 Microsoft Office 작업 효율성을 50% 향상시킵니다. 믿기 어렵겠지만, 두 개 이상의 문서를 동시에 작업하는 것이 하나만 작업하는 것보다 더 쉽고 빠릅니다. 유명한 브라우저와 비교했을 때, Office Tab의 탭 기능은 더욱 강력하고 효율적입니다. 매일 수백 번의 마우스 클릭과 키보드 입력을 줄이고, 이제 마우스 손 증후군도 안녕입니다. 여러 문서를 자주 작업한다면, Office Tab이 당신에게 큰 시간 절약을 가져다줄 것입니다. 30일 무료 체험, 신용카드 필요 없음. 더 읽어보기지금 무료 다운로드

다음은 Kutools for Excel의 Filename List라는 유틸리티로, 이 도구는

>> 새 워크시트에 폴더의 모든 파일 형식의 파일 이름을 나열할 수 있습니다;

>> 지정한 하나 또는 여러 파일 형식의 파일 이름을 Excel에 나열할 수 있습니다;

>> 하위 폴더 및 숨겨진 파일과 폴더를 포함한 파일 이름을 Excel에 나열할 수 있습니다.

무료 체험 지금 바로 마우스 손목 통증과 경추 질환을 해결하세요.

300개의 Kutools for Excel 고급 도구가 80%개의 Excel 작업을 몇 초 안에 해결하고, 수천 번의 마우스 클릭에서 벗어나게 해줍니다.

1500개의 작업 시나리오를 쉽게 처리할 수 있으며, 솔루션을 찾느라 시간을 낭비할 필요가 없습니다. 삶을 즐길 시간이 훨씬 더 많아집니다. 매일 110,000명 이상의 높은 효율성을 가진 사람들에게 80% 생산성을 향상시킵니다. 물론 당신도 포함됩니다. 복잡한 수식과 VBA로 인한 고통에서 벗어나 두뇌를 쉬게 하고 즐거운 업무 분위기를 만끽하세요. 30일간의 모든 기능 무료 체험, 이유 없이 30일 이내 환불 보장. 더 나은 몸이 더 나은 삶을 만듭니다.

자세히 보기 지금 다운로드

Kutools for Excel 설치 후 다음 단계를 수행하십시오:

1. 파일 이름을 나열할 통합 문서를 활성화한 다음 Kutools Plus > 가져오기/내보내기 > Filename List.

2. Filename List 대화상자에서 먼저  파일 이름을 나열하려는 폴더를 선택한 다음 필요에 따라 하위 디렉토리의 파일 포함 및 숨겨진 파일 및 폴더 포함 체크박스를 선택합니다.

3. 그런 다음 Files type 섹션에서 나열할 파일 형식을 선택합니다.

모든 파일 옵션을 선택하면 선택한 폴더의 모든 파일 형식의 파일 이름이 모두 나열됩니다.

일반 옵션을 선택하고 드롭다운 목록에서 나열할 특정 파일 형식을 선택하면 선택한 파일 형식의 모든 파일 이름이 나열됩니다.

지정 옵션을 선택한 다음 텍스트 상자에 나열할 파일 확장자(쉼표로 구분)를 입력하면 입력한 파일 확장자를 가진 파일 이름만 Excel에 나열됩니다.

4. File size unit 섹션의 드롭다운 목록에서 원하는 크기 단위를 선택하고, 파일 이름에 링크를 만들려면 Create hyperlinks 옵션을 체크합니다.

5. 클릭합니다 확인새로운 워크시트가 생성되어 파일 이름과 일부 파일 정보가 나열됩니다.

팁: Excel에서 모든 시트 이름을 나열하려면 Kutools for Excel’ 링크 테이블 생성 유틸리티를 사용할 수 있으며, 이는 모든 링크 가능한 시트 이름을 나열하는 새로운 시트를 생성합니다.

Kutools for Excel:+ 유용하고 편리한 도구들로 Excel의 복잡한 작업을 몇 번의 클릭으로 간단하게 만듭니다.