Kapalı dosyada ADO

[EmirhanG]

Arkadaşlar kapalı dosyada ADO ile sayfa oluşturmak istiyorum...yardımlarınızı bekliyorum. Teşekürler....(Userform üzerindeki textbox'a girilen veri isimlisayfa)

 

[tamer42]

Kardeş bir örnek eklerseniz daha hızlı cevap alırsınız.......

 

[Haluk]

Aşağıdaki örneği, kendinize göre uyarlarsınız...

Sub Test()
    Dim DatabasePath As String
    Dim Cat As Object
    Dim NewTable As Object
    DatabasePath = "D:\TestFolder\TestDB.xls"
    Set Cat = CreateObject("ADOX.Catalog")
    Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";Extended properties= Excel 8.0;"
    
    Set NewTable = CreateObject("ADOX.Table")
    With NewTable
        .Name = "DataSheet"
        .Columns.Append "Isim"
        .Columns.Append "Soyad"
        .Columns.Append "Tel"
    End With
    Cat.Tables.Append NewTable
    
    Set NewTable = Nothing
    Set Cat = Nothing
End Sub

 

[EmirhanG]

Teşekürler ,ilginiz ve alakanız için hocam .Sizden ricam yine ADO ile kapalı dosyadaki sayfalardan combobox yardımıyla seçtiğim bir sayfayı bulup silecek kodlar mümkünse tabi teşekürler...... (kapalı dosyamda 60 'ı aşkın sayfa var.)

 

[Haluk]

ADO ile kapalı bir dosyadan herhangibir sayfa silemezsiniz.

.

 

[EmirhanG]

Hocam mümkünse demiştim zaten teşekürler.....