vba listbox 에 head 추가하는 방법

VBA
작성자
서민철
작성일
2021-10-17 23:37
조회
94
엑셀버전 : M365

운영체제 : 윈도우10

안녕하세요.

엑세스를 db로 사용하는 프로그램을 작성중입니다.

레코드셋을 받아서 리스트박스에 뿌리는 코드를 작성중인데요.

레코드를 리스트박스에 뿌리는것까지는 잘 되었는데

레코드셋의 필드명을 리스트박스의 head에 뿌리는 방법을 모르겠어요 ㅜ.ㅜ

============================== 

strConN = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\DB.accdb;"
rs.Open strsql, strConN, adOpenStatic, adLockReadOnly, adCmdText

If rs.EOF Then
MsgBox "자료가 없습니다."
Exit Sub
End If

========== 레코드셋의 필드목록을 배열로 받음
a = rs.Fields.Count
ReDim fn(a - 1)
For i = 1 To a
fn(i - 1) = rs.Fields(i - 1).Name
Next

var = rs.GetRows
ReDim ARR(1 To UBound(var, 2) + 1, 1 To UBound(var) + 1)
For j = 1 To UBound(var, 2) + 1
For i = 1 To UBound(var) + 1
ARR(j, i) = var(i - 1, j - 1)
Next
Next
me.결과.List = ARR

===========================

위 코드에서 배열 변수 fn 에 레코드셋의 필드명을 담았습니다.

이 배열을 활용해서  리스트박스 의 head를 추가할 방법이 있을까요?

몇시간을 검색했는데 방법을 못찾겠어요..

 

 

고수님들 도와주세요...

 

회원등급 : 2레벨
포인트 : 50 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개

작성한 댓글이 없습니다.

전체 2

  • 2021-10-18 09:04

    리스트박스로는 불가능하고 리스트뷰를 사용하셔야 합니다.

     


  • 2021-10-20 11:49

    리스트박스에 필드명을추가 할수 없습니다.

    다만 목록을 list가 아닌 Rowsource 를 이용하면 header를 사용할 수 있습니다.

    그러나 이는 시트에 결과값을 붙여넣어야 하므로 추천하고 싶지 않네요!!

    제일 좋은 방법은 리스트 뷰를 이용하시면 되실듯 합니다.


전체 4,633
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (8)
오빠두엑셀 | 2021.10.28 | 추천 12 | 조회 664
트로피 오빠두엑셀 2021.10.28 12 664
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련
유지연 | 00:11 | 추천 0 | 조회 5
유지연 00:11 0 5
24098 VBA
New 워드 Format(숫자, "#,###") (1)
argus | 2021.11.28 | 추천 0 | 조회 10
argus 2021.11.28 0 10
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 14
축전 2021.11.28 0 14
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 8
가을전어 2021.11.28 0 8
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련
어루 | 2021.11.28 | 추천 0 | 조회 10
어루 2021.11.28 0 10
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 14
y**** 2021.11.28 0 14
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (1)
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 16
ㅈㄱㄹ 2021.11.28 0 16
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일
007 | 2021.11.28 | 추천 0 | 조회 25
007 2021.11.28 0 25
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 21
루s cos 개인대행 2021.11.28 0 21
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 43
호랑이파워 2021.11.28 0 43
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 28
월마리아 2021.11.28 0 28
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 41
jyj6**** 2021.11.27 0 41
24060 VBA
New 메모리가 부족하다고 뜹니다. 첨부파일
선물 | 2021.11.27 | 추천 0 | 조회 25
선물 2021.11.27 0 25
24059 VBA
New 첨부파일을 서버 업로드 (1)
권원재 | 2021.11.27 | 추천 0 | 조회 24
권원재 2021.11.27 0 24
24053 파워쿼리/피벗
New 엑셀 배열 순서를 바꾸고 싶습니다. 첨부파일
jyj6**** | 2021.11.27 | 추천 1 | 조회 29
jyj6**** 2021.11.27 1 29
VBA
New Re:엑셀 배열 순서를 바꾸고 싶습니다.
Yukon | 2021.11.27 | 추천 1 | 조회 36
Yukon 2021.11.27 1 36
피벗테이블
New Re:Re:엑셀 배열 순서를 바꾸고 싶습니다. (1)
jyj6**** | 2021.11.27 | 추천 0 | 조회 22
jyj6**** 2021.11.27 0 22
24048 VBA
New 재고관리 툴 만들기 질문이요 첨부파일 (3)
선물 | 2021.11.26 | 추천 0 | 조회 35
선물 2021.11.26 0 35
24046 함수/공식
New 날짜별로 근태 정리를 하려면 어떻게 해야할까요 첨부파일 (2)
ㅁㅁㅁㅁㅁ | 2021.11.26 | 추천 0 | 조회 49
ㅁㅁㅁㅁㅁ 2021.11.26 0 49
24042 VBA
New 한 코드를 가진 사람의 계약일자 최소값 최대값 구하기 첨부파일 (2)
seorin | 2021.11.26 | 추천 0 | 조회 31
seorin 2021.11.26 0 31
24039 함수/공식
New 다중 조건 및 가장 낮은 일시에 매칭되는 값 불러오기 첨부파일 (6)
감사하모니카 | 2021.11.26 | 추천 0 | 조회 33
감사하모니카 2021.11.26 0 33
24038 VBA
New ZAN IMAGE PRINTER 프로그램에서 JPG 파일명을 내 마음대로 (3)
goodman | 2021.11.26 | 추천 0 | 조회 22
goodman 2021.11.26 0 22
24033 문서서식
New 조건부 서식 특정열 단어포함시 해당 행의 서식 변경 방법 첨부파일 (2) 답변완료
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 31
아빠의꿈 2021.11.26 0 31
24032 함수/공식
New 함수 초보 질문있습니다. (2) 답변완료
윤태종 | 2021.11.26 | 추천 0 | 조회 32
윤태종 2021.11.26 0 32
24029 VBA
New 엑셀로그인 프로그램 사용자 개인별 시트만 보이게 하는 방법 첨부파일 (1)
엑셀이 | 2021.11.26 | 추천 0 | 조회 37
엑셀이 2021.11.26 0 37
24014 VBA
New Private Sub Worksheet_Change(ByVal Target As Range) 조건문의 (1)
yg | 2021.11.26 | 추천 1 | 조회 35
yg 2021.11.26 1 35
24011 VBA
vba 고급필터후 인쇄 자동화 첨부파일 (1)
naver_6180ef1e63220 | 2021.11.26 | 추천 0 | 조회 39
naver_6180ef1e63220 2021.11.26 0 39
24010 문서서식
양이 많은 '병합하고 가운데 맞춤 '버튼을 눌러서 할일을 쉽게 하는방법 첨부파일 (3)
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 46
아빠의꿈 2021.11.26 0 46
24009 함수/공식
오빠두 강의 중 마지막셀 이동에 관하여 질문드립니다. (MATCH함수) (2)
월마리아 | 2021.11.25 | 추천 0 | 조회 38
월마리아 2021.11.25 0 38
24006 함수/공식
조건부 서식 함수 첨부파일 (1)
AFOPWEOI1213 | 2021.11.25 | 추천 -1 | 조회 44
AFOPWEOI1213 2021.11.25 -1 44
24005 파워쿼리/피벗
파워쿼리에서 다중조건 평균구하기 (1)
황선규 | 2021.11.25 | 추천 0 | 조회 28
황선규 2021.11.25 0 28
24002 기능/도구
엑셀 요 기능 이름이 뭐죠?ㅜㅜ (2) 답변완료
냥냥 | 2021.11.25 | 추천 0 | 조회 44
냥냥 2021.11.25 0 44