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

 김영준 (kim.young)

추천:  2
파일:     조회:  1423
제목:   [RE]복수 워크북과 워크시트 간의 표복사 vba 가르쳐 주세요
     
  =========[김영준님 글에 대한 답변입니다]==
voice님의 도음으로 필요한 일을 잘 처리할 수 있어서 감사합니다.
조언에 따라 다음과 같이 코드를 변경했습니다.
그리고 잘 사용하고 있습니다.
감사합니다.

Sub copy01()

    Dim k As Integer
    Dim ws As String
    Dim obj As String
    Dim wsObj As String
        
    wsObj = "코스피"
    
    For k = 1 To 32

        ws = IIf(k = 1, wsObj, wsObj & " (" & k & ")")
        obj = IIf(k = 1, wsObj, wsObj & "__" & k)
        
        Workbooks("koStocks.source").Worksheets(ws).ListObjects(obj).DataBodyRange.Copy
        Workbooks("koStocks").Worksheets("koStocks").Cells(Rows.Count, 4).End(3)(2).PasteSpecial Paste:=xlPasteValues
        
    Next k

end sub

이 코드에서 for each 구문을 사용하면 더 편리하고, 열어야 할 시트수를 세지 않아도 코드 수정없이 유지관리할 수있을 것 같습니다.
혹시 코드를 잘 가르쳐주시면 더 감사하겠습니다.
 
[불량 게시물 신고]  
        
  

작성일 : 2021-01-30(18:42)
최종수정일 : 2021-01-30(21:12)
 


 ◎ 관련글

  제 목   작성자   날짜
복수 워크북과 워크시트 간의 표복사 vba 가르쳐 주세요 김영준 2021-01-29
[RE]복수 워크북과 워크시트 간의 표복사 vba 가르쳐 주세요 김영준 2021-01-30