Chào các bạn mình có sử dụng đoạn code ở dưới để xuất dữ liệu ra excel, nhưng khi xuất chỉ cho ra bản ghi cuối cùng của CSDL SQL thôi. Mong các bạn chỉ bảo. Xin cảm ơn
cnn.Open connstr
rs.Open "SELECT * FROM nhap_ts_new where plgno = '" & malcp & "'", cnn, adOpenStatic
'dien tieu de
r = 1
c = 1
For Each fld In rs.Fields
Sheet7.Cells(r, c).Value = fld.Name
c = c + 1
Next
'xuat ra sheet7
Sheet7.Range("A2").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
cnn.Open connstr
rs.Open "SELECT * FROM nhap_ts_new where plgno = '" & malcp & "'", cnn, adOpenStatic
'dien tieu de
r = 1
c = 1
For Each fld In rs.Fields
Sheet7.Cells(r, c).Value = fld.Name
c = c + 1
Next
'xuat ra sheet7
Sheet7.Range("A2").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
