shnhatha221108
Thành viên chính thức
- Tham gia
- 2/10/18
- Bài viết
- 73
- Được thích
- 13
Em nhờ bác Hai lúa viết cho một đoạn code để lọc dữ liệu trùng..Không hiểu sao khi lấy dữ liệu về một số ký tự text lại chuyển thành ký tự số(không lấy được dữ liệu theo định dạng)..!
Nhờ mọi người xem giải quyết giúp em..Em cảm ơn.!
Sub TongHop2()
With CreateObject("ADODB.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
Sheet7.Range("A2").CopyFromRecordset .Execute("Select F3,F5,F6,F15,sum(F14) from [DL1$] WHERE F1='1•ï‘••K—v' group by F3,F5,F6,F15 order by F6")
End With
End Sub
Nhờ mọi người xem giải quyết giúp em..Em cảm ơn.!
Sub TongHop2()
With CreateObject("ADODB.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No"""
Sheet7.Range("A2").CopyFromRecordset .Execute("Select F3,F5,F6,F15,sum(F14) from [DL1$] WHERE F1='1•ï‘••K—v' group by F3,F5,F6,F15 order by F6")
End With
End Sub
