|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): excel 2013
* 아래줄에 질문을 작성하세요 >>
행 9999, 열 8로 고정된 정적 배열로 DB 프로시저로 데이터 호출하면 Select한 컬럼개수가 8개보다 미만일 시에는 공백으로 처리되서 나오는데
동적배열을 만들어서 공백부분 없이 ListBox에 뿌릴 순 없나요..?? 방법이 있을까요..??
* 소스코드입니다.
Private Sub UserForm_Activate()
Dim i As Long
Dim LastRow As Long
Dim RowCount As Long
ReDim ar(6 To 9999, 1 To 7)
'마지막 행번호 찾기
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
RowCount = LastRow - 1
ListBox1.ColumnCount = 8
For i = 6 To RowCount
ar(i, 1) = Cells(i, 1).Value
ar(i, 2) = Cells(i, 2).Value
ar(i, 3) = Cells(i, 3).Value
ar(i, 4) = Cells(i, 4).Value
ar(i, 5) = Cells(i, 5).Value
ar(i, 6) = Cells(i, 6).Value
ar(i, 7) = Cells(i, 7).Value
Next
ListBox1.List = ar()
End Sub
이렇게 정적배열로만 일단 만들었습니다.. |
|