Carol에는 YR1905-LIC12345-Smith, Harry-Brown, Mary와 같은 이름을 가진 약 1,000 개의 파일이있는 디렉토리가 있습니다. 그녀는 이러한 파일 이름 (파일 자체가 아님)을 모두 워크 시트로 가져와 대시에서 이름을 구분하려고합니다. 따라서 예제 파일 이름은 실제로 단일 행에서 4 개의 셀을 차지합니다. Carol은이 작업을 수행하기 위해 매크로가 필요하다고 생각하지만 해당 매크로의 파일 이름에 액세스하는 방법을 모릅니다.

물론이를 위해 매크로를 사용할 수 있지만 매크로를 사용할 필요는 없습니다. 대신 필요한 것을 얻기 위해 오래된 DOS 시대의 트릭을 사용할 수 있습니다.

최신 버전의 Excel을 사용하는 경우 명령 프롬프트에 액세스하려면 작업 표시 줄의 Windows 아이콘 옆에있는 검색 상자에 “명령 프롬프트”(따옴표 제외)를 입력하면됩니다. 이전 버전의 Excel을 사용하는 경우 Windows를 통해 명령 프롬프트에 액세스 할 수 있습니다. 시작 | 모든 프로그램 | 액세서리 | 명령 프롬프트. 명령 프롬프트에서 파일이 포함 된 디렉토리로 이동할 때까지 탐색하십시오. 이 예에서는이 디렉토리에있는 파일 목록을 가져 오려고한다고 가정 해 보겠습니다.

c:\Users\e07482\My Documents\rnp

해당 디렉토리로 이동하려면 명령 프롬프트에 다음 명령을 입력하십시오.

chdir "\Users\e07482\My Documents\rnp"

경로 이름에 공백이 있으므로 디렉토리 주위에 따옴표를 사용해야합니다. 그런 다음 다음 명령을 입력하여 화면에서 파일 목록이 무엇인지 확인합니다.

dir /b /a-d

“/ a-d”부분은 “디렉토리를 나열하지 않음”을 의미합니다. 화면에 표시된 내용이 만족 스러우면 다음을 사용하여 파일로 보낼 수 있습니다.

dir /b /a-d > filelist.txt

그러면 현재 디렉터리 내의 모든 파일 목록이 포함 된 텍스트 파일 (filelist.txt)이 생성됩니다. 이제 Excel 내에서 다음 단계를 수행 할 수 있습니다.

  1. 열기 대화 상자를 표시합니다. (Excel 2007에서는 Office 단추를 클릭 한 다음 열기를 클릭합니다. Excel 2010에서는 리본의 파일 탭을 클릭 한 다음 열기를 클릭합니다. Excel 2013에서는 리본의 파일 탭을 클릭하고 열기, 컴퓨터를 차례로 클릭 한 다음 마지막으로 이후 버전의 Excel에서는 리본의 파일 탭을 클릭하고 찾아보기를 클릭합니다.)

  2. 대화 상자 맨 아래에있는 파일 유형 드롭 다운 목록을 사용하여 텍스트 파일 (.prn; .txt; * .csv)을 열 것임을 나타냅니다.

  3. 명령 프롬프트에서 만든 filelist.txt 파일을 찾아 선택합니다.

  4. 열기를 클릭하십시오. Excel은 텍스트 가져 오기 마법사를 시작하고 1/3 단계 대화 상자를 표시합니다. (그림 1 참조)

  5. Delimited 선택이 선택되어 있는지 확인하고 Next를 클릭합니다. Excel은 3 단계 중 2 단계 대화 상자를 표시합니다.

  6. 구분 기호로 대시를 지정했는지 확인하십시오. (기타를 클릭 한 다음 구분 기호로 대시를 입력해야합니다.)

  7. 마침을 클릭하십시오. 파일을 가져 와서 원하는대로 대시에서 분리합니다.

위의 단계는 수행하기가 매우 쉽습니다. 특히 파일 목록을 가끔씩 Excel로 가져와야하는 경우 더욱 그렇습니다. 좀 더 일상적으로 수행해야하는 경우 매크로를 사용하여 수행하는 방법을 찾아야합니다. 다음 매크로는 매우 빠르게 작동합니다.

Sub GetFileNames()

Dim sPath As String     Dim sFile As String     Dim iRow As Integer     Dim iCol As Integer     Dim splitFile As Variant

'specify directory to use - must end in "\"

sPath = "C:\"



iRow = 0     sFile = Dir(sPath)

Do While sFile <> ""

iRow = iRow + 1         splitFile = Split(sFile, "-")

For iCol = 0 To UBound(splitFile)

Sheet1.Cells(iRow, iCol + 1) = splitFile(iCol)

Next iCol         sFile = Dir     ' Get next filename     Loop End Sub

매크로를 실행할 때 현재 워크 시트에 아무것도 없는지 확인하십시오. (모든 항목을 덮어 씁니다.) 또한 매크로 시작 부분의 sPath 변수에 할당 된 디렉터리 경로를 변경해야합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11144)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Pulling_Filenames_into_a_Worksheet [파일 이름을 워크 시트로 가져 오기].