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

 크레온 (ac)

추천:  2
파일:     excel2002(2).ZIP (18.4KB) 조회:  3223
제목:   [Q] varDaadata 오류 발생해요 (xls)
　 　 　
　 엑셀 2002 사용자 입니다

xls 파일 첨부했구요..
vba 내용 오류수정좀 부탁드리겠습니다 		　
[불량 게시물 신고]  
조삿갓일단 문법상 오류만 알려드립니다.
varDaadata 오류는 varAdddata의 철자를 틀리게 쓴 때문이고
IF 조건문 안에서 내포된 For 루프가 있는데
제어변수를 중복시켰네요.
For 루프를 내포시킬 경우, 바깥쪽 루프와 안쪽 루프의
제어변수는 서로 달라야 합니다.

With adodbRecord
      For i = 1 To UBound(varAdddata)
               .Find "oOcr='" & varAdddata(i, 4) & "' "
               If .RecordCount = 0 Then

    For j = 0 To AdoRs.Fields.Count - 1
        Cells(1, j + 1) = AdoRs.Fields(j).Name
    Next j
    
'    - 첫줄의 열 은 필드명으로 들어가고, 필드명에
'아무것도 없으면 현재열의 name2,name6,name7, 이렇게
'번호,name2,가격,수량,합계,name6,name7 이런식으로
'자동으로 매겨지게끔 하고싶어요

               End If
      Next i
End With
11-15 (23:31)
ⓧ삭제 ■신고
크레온조삿갓님 문자수정은 가르쳐 주셔서 고쳤지만..
테이블 작동은..부탁드립니다		11-16 (01:36)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2017-11-15(22:44)
최종수정일 : 2017-11-15(22:44)
　


 ◎ 관련글
  제 목   작성자   날짜
◎ [Q] varDaadata 오류 발생해요 (xls) 크레온 2017-11-15
[RE][Q] 테이블내용은 저장이안되요 (xls) 크레온 2017-11-16