sheetteki verileri alma

[Fuat Şirin]

arkadaşlar farklı bir konu olduğu için burda açmak istedim
kapalı dosyadaki sheetleri comboboxta göstermek mümkün mü
ve seçtiğim sheeti açık olan excel sayfasına çağırmak mümkün mü
saygılar

 

[hamitcan]

kapalı dosyadaki sheetleri comboboxta göstermek mümkün mü

1) Microsoft ActiveX Data Objects 2.8 Library
2) Microsoft ADO Ext. 2.8 for DDL and Security


Private Sub UserForm_Initialize()
Dim baglan As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim Tablo As ADOX.Table
Dim Dosya As String

Dosya = "yolunuz..."
baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Dosya & ";" & "Extended Properties=Excel 8.0;"
cat.ActiveConnection = baglan

For Each Tablo In cat.Tables
ComboBox1.AddItem Left$(Tablo.Name, Len(Tablo.Name) - 1)
Next Tablo

Set cat = Nothing
baglan.Close
Set baglan = Nothing

End Sub


Not:Kod, M.Temel Korkmaz'a aittir.

 

[Fuat Şirin]

Dosya = "c:\a\1.xls"
bu şekilde girdim
baglan As New ADODB.Connection
burda hata verdi


userforma bir combobox ekledim

 

[hamitcan]

Gerekli referansları eklediniz mi ?