Làm sao để lấy tất cả tên sheet đưa vào Combo ở VB6

[domfootwear]

Chào các anh chị,

Cho em hỏi là dùng ADO làm sao để lấy tất cả tên sheet đưa vào Combo ở VB6 ?

Em xin cám ơn trước.

[xuanquy_th]

Code: [Select all] [Expand/Collapse]

1. 'Thử cách này xem
2.            Set WorkB = Excel.Workbooks.Open(TTenfile.Text)
3.             For t = 1 To WorkB.Worksheets.Count
4.                 CBsheet.AddItem LocBien(WorkB.Worksheets(t).Name, 1)
5.             Next
6.             WorkB.Close False

GeSHi © Codebox Plus Extension

[domfootwear]

'Thử cách này xem
Set WorkB = Excel.Workbooks.Open(TTenfile.Text)
For t = 1 To WorkB.Worksheets.Count
CBsheet.AddItem LocBien(WorkB.Worksheets(t).Name, 1)
Next
WorkB.Close False

Cảm ơn bạn, có cách nào sử dụng ADO để lấy không bạn ?

[truongphu]

Cảm ơn bạn, có cách nào sử dụng ADO để lấy không bạn ?

cầu kỳ nhỉ?
Dùng VBA/Excel như trên không tiện à?

Code: [Select all] [Expand/Collapse]

1. Dim Conn As New ADODB.Connection
2. Dim Recs As New ADODB.Recordset
3. Conn.Open "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\Book1.xls;" & _
4. "Extended Properties=Excel 8.0;"
5. Set Recs = Conn.OpenSchema(adSchemaTables)
6. Dim aaa$, bbb$
7. Do Until Recs.EOF
8.     bbb = Recs("Table_Name")
9.     Set objFieldSchema = Conn.OpenSchema(adSchemaColumns, Array(Null, Null, bbb))
10.             aaa = aaa & vbCr & "Table " & UCase(bbb) & vbCr
11.     Recs.MoveNext
12. Loop
13. MsgBox aaa

GeSHi © Codebox Plus Extension