Kod çalışırken 400 hatası alıyorum.

[SadiSerdari]

Arkadaşlar aşağıdaki kod ile serverdeki veritabanından bilgi aktarmaya çalışıyorum ancak userform olmadığı halde 400 hatasını veriyor. Yardımcı olabilirseniz sevinirim. Teşekkürler.

Sub Aktar()

    Set WrkSht = Worksheets("Muhasebe")
    DBase = WrkSht.Cells(1, 74)
    Ay1 = WrkSht.Cells(1, 1)
    Ay2 = WrkSht.Cells(1, 2)

    SonSat = WrkSht.Cells(Rows.Count, 1).End(xlUp).Row
    SonSut = WrkSht.Cells(Columns.Count, 2).End(xlToLeft).Column
    Sut = SonSut
    Sat = SonSat

    MyConN DBase

    HESPLN1.Open SQLStr6(Cells(1, 75)), ADOConN, 1, 3

    While Not HESPLN1.EOF

        RcArray1 = HESPLN1.GetRows
        
        For i = 0 To UBound(RcArray1, 2)
        
            Kod = Cells(1, 75) & RcArray1(0, i)
                
            HESPLN2.Open SQLStr1(Kod), ADOConN, 1, 3

            While Not HESPLN2.EOF

                HESKOD = HESPLN2.Fields("HESAP_KODU").Value
                HESAD1 = UCase(Replace(Replace(HESPLN2.Fields("HS_ADI").Value, "ı", "I"), "i", "İ"))

                WrkSht.Cells(Sat + 1, 1).Value = HESAD1
                WrkSht.Cells(Sat + 1, 2).Value = HESKOD
                WrkSht.Cells(Sat + 1, 1).VerticalAlignment = xlCenter
                WrkSht.Cells(Sat + 1, 1).HorizontalAlignment = xlLeft
                
           HESPLNFIS.Open SQLStr2(Kod, Ay1, Ay2), ADOConN, 1, 3

            While Not HESPLNFIS.EOF

                RcArray2 = HESPLNFIS.GetRows

                    For Z = 0 To UBound(RcArray2, 2)

                        HESKOD2 = RcArray2(0, Z)
                        TUTAR = RcArray2(2, Z)

                        For y = 0 To UBound(RcArray2, 2)

                            BSVeri = Kod & "-" & WrkSht.Cells(1, Sut + 1)

                            If BSVeri = HESKOD2 Then

                                WrkSht.Cells(Sat + 1, Sut + 1).Value = TUTAR

                            Else

                                Sut = Sut + 1

                            End If

                    Next: Next

                Wend

            Sat = Sat + 1
            
            HESPLNFIS.Close
            HESPLN2.MoveNext
            
            Wend
            
            HESPLN2.Close
                 
        Next
                     
        Wend

    HESPLN1.Close

    ADOConN.Close

End Sub

 

[sensizsoldum]

aynı hatayı kod çalışmadan bende alıyorum nedendir acep ?

 

[sensizsoldum]

Merhaba
Sayın SadiSerdari, Sorunun çözümü nedir ne değildir. çözebildiniz mi, çözüm bana da lazım?