kapalı dosyada sayfadaki verileri listeleme

[muhceli]

Değerli üstatlarım:
Formda listeleme için kullandığım makroda hata mesajı alıyorum.
Makroyu nasıl değiştirmeliyim.
Teşekkürler.

 

[halit3]

Kodu böyle denermisiniz.

Private Sub CommandButton1_Click()
    Dim A As Integer
    Dim B As Integer
    Dim C As Integer
    Dim CON As Object
    Dim RS As Object
    Dim DSY As String
    Dim KNM As String
    Dim SRL As String
    Dim STR As String
    Dim SYF As String
     Set CON = CreateObject("Adodb.Connection")
         DSY = "ARSIV" & ".xls"
         KNM = ThisWorkbook.Path & "\" & DSY
         CON.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\" & DSY & ";Extended Properties=""Excel 8.0;HDR=Yes"""
     Set RS = CreateObject("Adodb.Recordset")
'--------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------
   With ListBox2
            .Clear
            .ColumnCount = 4
            .ColumnWidths = "30;40;30;70"
       End With

For A = 1 To 4
    B = B + 1
         
            SYF = "VERI" & B & "$"
            RS.Open "SELECT * FROM [" & SYF & "]", CON, 3, 1
    
       Do While Not RS.EOF
             ListBox2.AddItem
             ListBox2.Column(0, C) = RS("SN")
             ListBox2.Column(1, C) = RS("DSY")
             ListBox2.Column(2, C) = RS("DNO")
             ListBox2.Column(3, C) = RS("ISIM")
             RS.MoveNext
             C = C + 1
       Loop
RS.Close
      
    Next A
  
      
'--------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------
             
             CON.Close
         Set RS = Nothing
         Set CON = Nothing
             STR = ""
End Sub

 

[muhceli]

(çözülmüştür):kapalı dosyada sayfadaki verileri listeleme

Sayın: Halit Bey.
İlginiz için teşekkür ederim. Form takipçi olan arkadaşlarada teşekkür ederim.
Yapmış olduğunuz değişikliği - insanın kafası anvale olunca bakar kör oluyor - çok çok iyi anladım. Sorunum ÇÖZÜLMÜŞTÜR.
Tekrar teşekkür eder Allah kaleminize, dikkatinize, bilginize, sağlık ve sıhhatinize kuvvet versin. (Amin)