image_insert_vba (vba로 만든 이미지 자동 삽입기)
' each module has a intuitive and understnding name so I have not comment on each module ' 각 모듈이 직관적인 이름으로 되어 있어서 이해가 쉬울거에요 ' 변수 선언 Option Explicit Dim sFolder As String 'sFolder --> the folder of images Dim file_name As String Dim pic_name As String Dim img As Picture Dim X As Object 'X is a FileObject Dim XNC As Object Dim number_of_files As Integer Const loc_data As Integer = 20 ' data loc is cells(1, 20) Const no_of_column As Integer = 6 Const loc_data_copy As Integer = 23 ' data loc is cells (1, 20) Dim file_arr As Variant Dim file_name_in_cells_arr As Variant ' 이미지 삽입 프로세스 ' 각 모듈을 불러오는 역할 Public Sub image_insert_process() Application.ScreenUpdating = False Call folder_Picking ' 폴더 선택 Call count_files_number ' 파일수 체크 Call list_files ' 파일 리스트 업 Call sortDataWithoutHeader ' 파일 소트 Call store_files_into_array ' 파일을 어레이에 넣기 Call putting_file_Names '