Excel365
Thành viên tích cực
- Tham gia
- 29/10/10
- Bài viết
- 865
- Được thích
- 127
- Giới tính
- Nam
[GPECODE=VB]Sub Loc_HLMT() 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.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "SELECT F3,F4,F5,F6, F7,F8,F9,F11 " & _
"FROM [Data$A2:M500] " & _
"WHERE F7 BETWEEN #" & Format(Sheet3.[E1].Value, "dd-MMM-yyyy") & "# AND #" & _
Format(Sheet3.[E2].Value, "dd-MMM-yyyy") & "# and F6 like Sheet3.[E3)"
End With
With Sheet3
.[B5:H500].ClearContents
.[B5].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub[/GPECODE]
Em sưu tầm được 1 code trên diễn đàn và chỉnh sữa lại nhưng bị lỗi nhờ các anh chị giúp em chỉnh sữ lại dùm ạ
Trân trọng cảm ơn
Set adoConn = CreateObject("ADODB.Connection")
Set adoRS = CreateObject("ADODB.Recordset")
With adoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
.Open
End With
With adoRS
.ActiveConnection = adoConn
.Open "SELECT F3,F4,F5,F6, F7,F8,F9,F11 " & _
"FROM [Data$A2:M500] " & _
"WHERE F7 BETWEEN #" & Format(Sheet3.[E1].Value, "dd-MMM-yyyy") & "# AND #" & _
Format(Sheet3.[E2].Value, "dd-MMM-yyyy") & "# and F6 like Sheet3.[E3)"
End With
With Sheet3
.[B5:H500].ClearContents
.[B5].CopyFromRecordset adoRS
End With
adoRS.Close: Set adoRS = Nothing
adoConn.Close: Set adoConn = Nothing
End Sub[/GPECODE]
Em sưu tầm được 1 code trên diễn đàn và chỉnh sữa lại nhưng bị lỗi nhờ các anh chị giúp em chỉnh sữ lại dùm ạ
Trân trọng cảm ơn
