|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2010
* 아래줄에 질문을 작성하세요 >>
ReDim filethis(1 To 5000, 1 To 7)
For A = B To C
y = Cells(A, 4).Value & "\"
X = Cells(A, 5).Value
strFile = ROOT1 & y & X & "_A.xls"
Workbooks.Open Filename:=strFile
For Z = 1 To 10
filethis(d, 1) = Range("R49") & "#"
filethis(d, 2) = Range("AC49") & "#"
filethis(d, 3) = Range("P46") & "#"
filethis(d, 4) = Cells(Z + 21, "O") & "#"
filethis(d, 5) = Cells(Z + 21, "R") & "#"
filethis(d, 6) = Cells(Z + 21, "W") & "#"
filethis(d, 7) = Cells(Z + 21, "Y") & "#"
d = d + 1
Next Z
ActiveWorkbook.Close False
Next A
Next d
Sheets("부품리스트2").Range("a1:g5000") = filethis '출력
이런 코드를 만들었는데 매크로를 실행하면
1열값만 메모리에 저장이 되고 나머지는 빈칸으로 출력합니다.
한단계씩 코드 실행을 돌려보면 정상적으로 메모리에 값이 다 저장되어
출력도 정상적으로 됩니다.
뭐가 문제일까요? |
|