나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 븡장어 (onshp)

추천:  2
파일:     _ъ쭊_€吏€_묒떇_Ans.xlsm (33.9KB) 조회:  1701
제목:   사진매크로 정렬방식
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>
 사진이 한 1000장정도 되는데  번호를 다 설정했는데  순서대로 안올라갑니다.
123순서대로 파일을 올리고 싶은데 방법을 모르겠습니다 

사진을 한번에 올리면   사진이름이  1 , 2 , 3 , 10 ,11 , 21 , 111 이있으면 1 , 10 , 11 , 111 , 2 , 21 , 3  순으로 올려집니다 ㅠㅠ
 
도와주십시요 		　
[불량 게시물 신고]  
쉼터'일부분 수정하여 보십시오.
방법1:
    'FSO 설정
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(sPath)                 ' 위에서 받은 폴더 spath설정
    '본 예제에서는 파일명 앞 부분이 반드시 숫자로 설정되었다는
    '경우이며 1 부터 1000까지라고 가정합니다.
    '파일의 수만큼 배열 설정
    ReDim Preserve a(1 To objFolder.Files.Count)
    For Each objFile In objFolder.Files                     ' 폴더 안의 파일명 a()배열에 넣기
        a(Val(objFile.Name)) = Val(objFile.Name)
    Next objFile

    Set shtForm = Worksheets("Form")
    iCnt = 0
    Do

'파일명 중에 숫자로 명명되어진 부분이 같은 것이 있으면 안됩니다. ^^
'양식이 정해져 있으면  find 메서드 사용안해도 가능합니다		06-21 (13:08)
ⓧ삭제 ■신고
쉼터a(Val(objFile.Name)) = objFile.Name '파일명을 변수에 저장
으로 변경합니다.
테스트는 못해봤습니다		06-21 (13:09)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2021-05-21(17:03)
최종수정일 : 2021-05-21(17:03)