vuthaiha90 > 18-04-19, 04:20 PM
Private Sub cmdTongHop_Click()
Dim Ex As Object
Dim Wb As Object
Dim Ws As Object
Dim DuongDan As Recordset
Dim TongHop As Recordset
Dim i As Long, j As Long
Set DuongDan = CurrentDb.OpenRecordset("tblDuongDan", dbOpenTable)
Set TongHop = CurrentDb.OpenRecordset("tblTongHop", dbOpenTable)
If TongHop.RecordCount > 0 Then Call XoaTable("tblTongHop")
DuongDan.MoveFirst
Do Until DuongDan.EOF
Set Ex = CreateObject("Excel.Application")
Set Wb = Ex.Workbooks.Open(DuongDan.Fields(0))
Set Ws = Wb.Sheets("G035841")
For i = 19 To 833
TongHop.AddNew
TongHop.Fields(0) = Ws.Range("C3")
TongHop.Fields(1) = Ws.Range("H" & i)
TongHop.Fields(2) = Ws.Range("I" & i)
TongHop.Fields(3) = Ws.Range("B" & i)
TongHop.Fields(4) = Ws.Range("C" & i)
TongHop.Update
Next
Wb.Close
Set Ex = Nothing
DuongDan.MoveNext
Loop
MsgBox "Xong"
End Sub