Xuân Thanh > 10-06-12, 10:19 PM
Function ExAcEx(tblTabName As String, strFile As String, shSheet As String, Cll As String)
Dim Ex As Excel.Application
Dim fileEx As Workbook
Set fileEx = Ex.Workbooks.Open(strFile)
Dim Ws As Worksheet
Set Ws = fileEx.Worksheets(shSheet)
Dim i, j, k, n As Integer
i = Ws.Range(Cll).Row
n = Ws.Range(Cll).Column
Dim Rs As Recordset
Set Rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
j = Rs.Fields.Count
If Rs.RecordCount > 0 Then
Rs.MoveFirst
Do Until Rs.EOF
For k = 0 To j - 1
Ws.Cells(i, n + k) = Rs.Fields(k)
Next
i = i + 1
Loop
End If
Set Ex = Nothing: Rs.Close
End Function