대기업은 c를 사용합니다.ostly 소프트웨어는 맞춤형 키워드 목록을 사용하여 이력서를 스캔하여 회사의 모든 공석에 대한 후보자를 찾습니다. 소규모 컨설팅 회사이고 여전히 수동으로 이력서를 스캔하는 경우 걱정하지 마십시오. 이제 자신 만의 이력서 스캔 도구를 만들 수 있습니다.
다운로드
원하는 경우tar가능한 한 빨리 소프트웨어를 사용하려면 다음을 수행 할 수 있습니다.
그렇지 않고 DIY를 원한다면 아래 내용을 읽을 수 있습니다.
GUI를 준비합시다
그림과 같이 두 장의 시트를 만들고 첫 번째 시트는 "Menu"로, 마지막 시트는 "Resume"으로 이름을 지정합니다. 이름에서 알 수 있듯이 "Menu"시트는 도구의 GUI가되고 "Resume"시트에는 도구를 통해 읽은 Resume 파일의 정보가 포함됩니다.
시트 "메뉴"에서 선택한 이력서의 전체 경로를 저장할 필드를 만듭니다. 이력서는 doc 또는 docx 형식이어야합니다. 두 개의 버튼을 추가합니다. 나중에이 버튼에 매크로를 추가하여 작동하도록 할 것입니다. 필드 오른쪽에있는 버튼의 이름을 "찾아보기"로 지정하겠습니다. 필드 하단에있는 버튼의 이름을 "Read Resume"으로 지정합니다. 도구를 시각적으로 좋게 만들기 위해 Word 문서 아이콘을 추가 한대로 아이콘을 추가 할 수 있습니다. 
데이터베이스를 준비합시다
모든 회사가 웹 사이트에 이력서 템플릿을 가지고 있고 구직자들에게이 템플릿을 사용하도록 요청받는 것은 매우 일반적입니다. 따라서 데이터베이스를 준비하는 것은 간단합니다. 회사의 이력서 템플릿의 필드에 해당하는 열 머리글을 추가하기 만하면됩니다. 아래 이미지와 같이 샘플 이력서 템플릿을 만들고 "Resume"시트에 해당 헤더를 추가했습니다.
기능적으로 만들자
스크립트를 복사하여 새 모듈에 붙여 넣으십시오. 스크립트에는 두 개의 구독자가 있습니다. 첫 번째 하위는 사용자가 이력서 파일을 찾아보고 선택할 수 있도록하는 것입니다. 두 번째 하위는 선택한 이력서에서 데이터를 읽고 가져 오는 것입니다. 이제이 매크로를 "메뉴"시트의 해당 버튼에 추가합니다.
테스트 해보자
시트 "메뉴"에서 찾아보기 버튼을 누르고 파일을 선택합니다. 이제 필드에 나타나는 선택한 이력서의 전체 경로를 볼 수 있습니다. "이력서 읽기"버튼을 클릭하면 도구가 이력서에서 데이터를 즉시 읽고 "이력서"시트에 넣습니다.
어떤 서비스인가요?
스크립트는 이력서를 행과 열이있는 테이블로 처리합니다. 각 행과 열이 구문 분석되고 데이터가 단어에서 Excel로 전달됩니다.
수정
방금 만든 도구는 단일 이력서를 읽습니다. 폴더에서 여러 이력서를 읽을 수 있도록 쉽게 수정할 수 있습니다. 사용자가 폴더를 선택할 수 있도록 첫 번째 하위를 수정하고 선택한 폴더에서 각 단어 파일을 읽고 전달할 수 있도록 두 번째 하위를 수정합니다.
스크립트
Sub pick_word()
'Allowing the user to pick the resume
Dim wd As Office.FileDialog
Set wd = Application.FileDialog(msoFileDialogFilePicker)
With wd
.AllowMultiSelect = False
.Title = "Please select the Resume"
.Filters.Clear
.Filters.Add "Resume", "*.doc*"
If .Show = True Then
Sheets("Menu").Range("G5").Value = .SelectedItems(1) 'show the picked file on the Menu sheet
End If
End With
End Sub
Sub ImportWordTable()
'Read the resume
Dim obj1 As Object
Dim file1 As Variant
Dim t1 As Integer
Dim ir As Long
Dim ic As Integer
Set obj1 = GetObject(Sheets("Menu").Range("G5").Value)
Sheets("Resume").Rows("2:1000").Clear
Dim c As Long
c = 0
With obj1
With .tables(1)
For ir = 1 To .Rows.Count
c = c + 1
For ic = 2 To .Columns.Count
Sheets("Resume").Cells(2, c).Value = WorksheetFunction.Clean(.cell(ir, ic).Range.Text)
Next ic
Next ir
End With
End With
Set obj1 = Nothing
End Sub
당신이 가지고있는 경우에 손상된 Excel xlsx 파일 이전에 알아 차리지 못한 경우, 이제 다음과 같은 복구 도구를 사용하여 수정해야합니다. DataNumen Excel Repair.
저자 소개 :
Nick Vipond는 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 문서 손상 복구 그리고 전망 회복 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM