Chủ đề này cũng có 1 số bài nhưng thật sự e chưa tìm được bài nào thích hợp với file của e nên e mong mọi người giúp. Em có 2 file nguồn và Dich, ở file Dich sau khi gọi Form ChonMH thì dữ liệu sẽ được hiện trong form để em chọn các công việc (dữ liệu lấy từ cột A đến R của file Nguon). Trước em để dữ liệu chung 1 file nhưng vì dữ liệu quá nhiều nên file nặng và mở chậm. Mong mọi người giúp đỡ em.
Bạn dùng code sau nhé:
[GPECODE=sql]Private Sub UserForm_Initialize()
hWin = FindWindow("ThunderDFrame", Me.Caption)
SetWindowProc hWin, True
Dim adoConn As Object, adoRS As Object
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & _
"\Nguon.xls;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "select * from [Sheet1$A4:R373] "
If Not (.bof And .EOF) Then
Me.ListBox1.ColumnCount = .Fields.Count
Me.ListBox1.Column = .getrows()
End If
End With
With ListBox1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub
[/GPECODE]
