Ðề: Mỗi ngày thêm 1 code hay
Xin giup vui bang 1 code sau day:
1. Công dụng: xuat 1 report ra excel
2. Nguồn: quen roi
3. Code: tao code nhu sau:
Function XuatExcel()
Dim Tentailieu As String, GetAppDir As String
GetAppDir = Left(CurrentDb.Name, Len(CurrentDb.Name) -...