엑셀로 엑세스하기위한 레코드 세트 내용

Question

엑셀 시트에 레코드 세트 내용을 쓰려고합니다. 레코드 세트 내용을 Movefirst로 옮길 때 코드가 작동하지 않습니다. 내 VBA 코드

Set cnn = CurrentProject.Connection 
    Set rst = New ADODB.Recordset 
    strSQL = "SELECT * FROM " & qrytable & "" 
    rst.Open strSQL, cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect 

    Set wsSheet1 = wb.Sheets(conSHT_NAME) 
    wsSheet1.Cells.ClearContents 
    wsSheet1.Select 
    For i = 1 To rst.Fields.Count 
    wsSheet1.Cells(1, i) = rst.Fields(i - 1).Name 
    Next i 

    If rst.EOF Then 
    MsgBox "inside rst" 
    rst.MoveFirst 
    wsSheet1.Range("a2").CopyFromRecordset rst 
    End If 

    wsSheet1.Columns("A:Q").EntireColumn.AutoFit 
    rst.Close 

조건 rst.EOF는 사실되고 있다면이 방법에서 이동에서 방법 이동하는 디버깅 제어를 rst.Movefirst 설정 기록을 이동려고 할 때 여기서 나는이 메소드를 호출하고 내용을 작성하지 않고 Excel을 호출합니다. 다음에 널 레코드에 대한

Answer 1

테스트 : 당신은 당신이 실제로 레코드에 데이터를 받고 있는지

If (rst.BOF And rst.EOF) Then 
    rst.Close: set rst = Nothing 
Else 
    rst.MoveFirst 

    rst.CopyFromRecordset rst 
End If