헥헥.,. 찾다 찾다 못 찾아서 질문 올립니다..ㅠ.ㅠ
음..엑셀 시트 12개를 순서대로 정렬하려고 하는데요..
엑셀의 매크로 도구를 이용하여 시트 생성하고 이름 짓고는 했습니다만..
딱 여기서 걸립니다..ㅠ.ㅠ
Sheets(I).Move before:=Sheets(J)
이 넘을 델파이로 어떻게 변환해야 하는지요..
다시 말씀드려서 매크로 기록 해 보면 한 시트를 이동하면
다음과 같은데요..
Sheets("5").Select
Sheets("5").Move Before:=Sheets(13)
를 델파이로
Sheets['5'].Select ;
까진 알겠는데
다음 문장의 Before를 어케 처리해야는 지 잘 모르겠습니다..
아시는 분 계시면 답변 꼭 부탁드립니다..
답변 올라 오는 동안 이리 저리 해 봤더니..되더군요..
별 것 아닌 허접한 것이지만..혹 필요한 분이 있으실까봐
소스 남깁니다..
시트의 제목순서대로 정렬하는 것입니다..
For j := 1 To XL.Sheets.Count DO BEGIN
For k := 1 To (j - 1) DO BEGIN
IF (UpperCase(XL.Sheets[j].Name) < UpperCase(XL.Sheets [k].Name)) THEN
XL.Sheets[J].Move(XL.Sheets[K]) ;
END;//For k
END;//for j
P.S 별 것 아니지만 4시간동안 끙 대다가 해결되니 기분 괜찮군요..^^;;
모두 즐거운 시간들 되시길..^^