Xuân Thanh > 05-07-18, 01:03 PM
(05-07-18, 11:00 AM)ongke0711 Đã viết: Phiên bản Access.
Link:http://www.mediafire.com/file/ryj24ypbgm...accdb/file
For r = 1 To oRange.Rows.Count
rs.AddNew
On Error Resume Next
rs.Fields(0) = oSheet.Range("C3")
rs.Fields(1) = oSheet.Cells(r, "H")
rs.Fields(2) = oSheet.Cells(r, "I")
rs.Update
Next r