Excel 셀에 폴더의 그림 이름 / 파일 이름을 빠르게 나열하는 방법은 무엇입니까?
|
이 자습서에서는 표시된 스크린 샷과 같이 Excel 시트에 특정 폴더의 모든 그림 이름 또는 파일 이름을 빠르게 나열하는 몇 가지 트릭을 제공합니다. 빠른 탐색 VBA를 사용하여 Excel에서 폴더의 그림 이름 나열 |
 |
VBA를 사용하여 Excel에서 폴더의 그림 이름 나열
Excel에는 시트 셀에서 선택한 폴더의 모든 그림 이름을 자동으로 나열 할 수있는 기본 제공 기능이 없지만 여기에는이 작업을 빠르게 해결하는 데 도움이되는 VBA 코드가 있습니다.
1. Excel에서 + 여는 열쇠 응용 프로그램 용 Microsoft Visual Basic 창.
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. 클릭 OK 찾아보기 대화 상자에서 그림 이름을 나열 할 폴더를 계속 선택합니다.
6. 클릭 OK, 이제 선택한 폴더의 모든 그림 이름이 Excel에 나열되었습니다.
참고 : VBA 코드에서 코드 문자열에 jpg / png /… InStr (1, xFileName, ".jpg") + InStr (1, xFileName, ".png") + InStr (1, xFileName, ".img") + InStr (1, xFileName, ".ioc") + InStr (1, xFileName, ".bmp") > 0 다음 예를 들어 파일의 파일 이름을 doc 형식으로 나열하려면 코드 문자열을 다음으로 변경하십시오. InStr (1, xFileName, ".doc")> 0이면.
일상적인 작업에서 일반적으로 Excel 셀에 폴더의 하나 또는 모든 형식의 파일 이름을 나열해야하는 경우 코드가 복잡하고 처리하기 쉽지 않지만 아래 방법을 사용하면이 작업을 빠르게 해결할 수 있습니다.
 |
급여 인상과 가족 동반에 많은 시간을 원하십니까? Office Tab은 현재 작업중인 Microsoft Office에서 효율성을 50 % 향상시킵니다.
|
믿을 수 없을 정도로 두 개 이상의 문서에서 작업하는 것이 하나에서 작업하는 것보다 쉽고 빠릅니다.파일 이름 목록을 사용하여 Excel에서 폴더의 그림 이름 또는 특정 형식 파일 이름 나열
다음은 유틸리티입니다. 파일명 목록 in Excel 용 Kutools, 이는 수
>> 새 시트에 폴더의 모든 파일 형식으로 모든 파일 이름을 나열합니다.
>> Excel에 지정한 하나 이상의 파일 형식으로 파일 이름을 나열합니다.
>> 하위 폴더와 숨겨진 파일 및 폴더를 포함한 파일 이름을 Excel에 나열합니다.
Excel용 Kutools의 300가지 고급 도구 해결 80% 몇 초 만에 Excel 작업을 수행하면 수천 번의 마우스 클릭에서 벗어날 수 있습니다.
 |
|
1500개의 작업 시나리오를 쉽게 처리하고 솔루션을 찾는 데 시간을 낭비할 필요가 없으며 인생을 즐길 시간이 많습니다.Excel 용 Kutools를 무료로 설치 한 후 다음과 같이하십시오.
1. 파일 이름을 나열 할 통합 문서를 활성화 한 다음 쿠툴즈 플러스 > 가져 오기 / 내보내기 > 파일명 목록.
2. 에서 파일명 목록 대화 상자, 먼저 
파일 이름을 나열 할 폴더를 선택하려면 다음 확인란을 선택할 수 있습니다. 하위 디렉터리에 파일 포함 과 숨겨진 파일 및 폴더 포함 필요에 따라
3. 그런 다음 이름을 나열 할 파일 형식을 선택합니다. 파일 유형 안내
4. 드롭 다운 목록에서 필요에 따라 크기 단위를 선택합니다. 파일 크기 단위 섹션에서 파일 이름에 대한 링크를 만들려면 하이퍼 링크 만들기 옵션을 선택합니다.
 |
 |
5. 클릭 Ok, 파일 이름과 일부 파일 정보를 나열하는 새 시트가 생성됩니다.
팁 : Excel의 모든 시트 이름을 나열하려면 Excel 용 Kutools를 적용 할 수 있습니다. ' 시트 이름 목록 만들기 유틸리티를 사용하면 링크 가능한 모든 시트 이름을 나열하는 새 시트가 생성됩니다.
Excel 용 Kutools: + 유용한 편리한 도구, 몇 번의 클릭으로 Excel의 복잡한 작업을 단순화합니다.
샘플 파일 다운로드
군중에서 눈에 띄고 쉽게 일하고 여유롭게 인생을 즐기는 방법?
Excel용 Kutools는 매일 평균 80%의 효율성을 향상시켜 가족과 함께 즐거운 시간을 보낼 수 있도록 해줍니다.
300가지 고급 도구 해결 80% Excel 문제, 더 이상 솔루션을 찾기 위해 고군분투하지 않고 더 쉽게 작업을 완료하십시오.
1500개의 Excel 시나리오를 쉽게 처리하고 매일 최소 1시간을 절약하세요.
5 분 안에 Excel 전문가가되어 사람들의 인정과 승진 기회를 얻으십시오.
원 클릭 유틸리티는 일괄 처리를 처리하므로 수천 번의 마우스 클릭을 피할 수 있습니다.
암기 암기 공식과 복잡한 VBA를 제거하고 두뇌에 휴식을 취하십시오.
110000 명 이상의 고효율 책임자와 300 명 이상의 세계적으로 유명한 기업의 선택.
39 달러 만 받으면 다른 사람들을 교육하는 데 4000 달러보다 훨씬 가치가 있습니다.
제한 없이 30일 무료 평가판을 사용하고, 이유 없이 30일 이내에 전액 환불받을 수 있습니다.
