목록시트옮기기 (1)

Fly to the sky & Return

[vba] 선택된 엑셀파일의 첫번째 sheet를 원하는 파일로 옮기기

특정 폴더내에 여러가지 엑셀파일이 있고 이 파일이 가지고 있는 첫번째 sheet들을 모두 모두 모와서 한가지 엑셀파일로 만들기 위한 vba입니다.. 참고하시기 바랍니다. 12345678910111213141516171819202122232425Option ExplicitSub sheets_copy() Dim IngCount As Integer '선택된 파일 갯수를 넣을 변수 Dim fileName As String '각 파일 이름을 넣을 변수 Dim wkBk As Workbook '각 파일을 넣을 변수 Dim wkbkName As String '시트들을 모을 파일이름 Application.ScreenUpdating = False '화면 업데이트 (일시) 정지 wkbkName = ActiveWorkbook..
프로그래밍/엑셀 & VBA 2014. 4. 8. 16:25
이전 Prev 1 Next 다음