|
|
|
|
|
|
- 엑셀 버전(오피스365 구독 버전): OS는 윈도우즈 10입니다.
* 아래줄에 질문을 작성하세요 >>
고수님께서 도와주시면 감사하겠습니다.
에러가 날 것 같았는데 에러가 났습니다.
워크북간과 워크시트간에 표를 복사해오는 코드입니다.
워크북 koStocks.source 내의 32개 시트에 50행의 데이터가 각각 표에 저장되어있습니다.
작업 워크북은 koStocks으로 그 안에 있는 koStocks 시트로 32개의 표 데이터를 복사해 올려고 합니다.
반복해서 복사해오는 작업인데 k값이 1에서는 복사-붙이기를 합니다.
2에서 멈춥니다.
워크북과 워크시트를 번갈아 가면서 복사와 붙이기를 반복하는 과정에서 실행이 중단됩니다.
기초가 부족하고, 그 간 엑셀을 자주 다루지 않아서 감이 오지않습니다.
with 구문도 사용해 보고싶지만 마찬가지로 오류가 날 것 같습니다.
코드 작성에 도움말을 주시면 감사하겠습니다.
다음과 같이 작성했습니다.
Sub copy01()
Dim k As Integer
Dim ws As String
Dim obj As String
ws = "코스피"
obj = "코스피"
For k = 1 To 32
ws = IIf(k = 1, ws, ws & " (" & k & ")")
obj = IIf(k = 1, obj, obj & "__" & k)
Workbooks("koStocks.source").Worksheets(ws).ListObjects(obj).DataBodyRange.Copy
Workbooks("koStocks.20210128").Worksheets("koStocks").Cells(Rows.Count, 4).End(3)(2).PasteSpecial Paste:=xlPasteValues
Next k
end sub |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2021-01-29(18:01)
최종수정일 : 2021-01-30(08:59) |
|
|
|
|