VB Excel Rapor Kullanima Hazir

Tesekkür ederim.

Bu tabloyu direkt excele aldirabilirmiyiz.

Elimde bir kod var ama çalistiramiyorum.

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim SqlText As String
With conn
    .Provider = "sqloledb"
    .CommandTimeout = 120
    .ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value & ";USER ID=" & Sheet1.Cells(8, 5).Value & ";PASSWORD=" & Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = Sheet1.ComboBox1.Text
    End With
    
    

bu alan

    
        
    If Sheet15.Cells(1, 3).Value <> "" Then
        SqlText = SqlText + "  And Grup_Kodu ='" & Sheet15.Cells(1, 3).Value & "'"
    End If
       
    If Sheet15.Cells(2, 3).Value <> "" Then
        SqlText = SqlText + "  Where PLASIYER_KODU ='" & Sheet15.Cells(2, 3).Value & "'"
    End If
       
       
   SqlText = SqlText + " ORDER BY Cari_Kod ASC "
       
       
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    Sheet15.Range("B7:H10000").ClearContents
    Sheet15.Activate
    i = 7
    Do While Not rs.EOF
        Sheet15.Cells(i, 2).Value = rs(0)
        Sheet15.Cells(i, 3).Value = rs(1)
        Sheet15.Cells(i, 4).Value = rs(2)
        Sheet15.Cells(i, 5).Value = rs(3)
        Sheet15.Cells(i, 6).Value = rs(4)
        Sheet15.Cells(i, 7).Value = rs(5)
        Sheet15.Cells(i, 8).Value = rs(6)
       
       
        rs.MoveNext
        i = i + 1
    Loop
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

e FATURA olan cariyi  e fatura degil olarak yaziyor.

sbebi neden kaynakli olabilir.