-
xuất dữ liệu từ Acess ra excel
tt1212 > 03-06-21, 01:24 PM
Anh em bạn bè có code nào ngon mà ngắn gọn xuất dữ liệu từ bàng Acess ra fil excel không cho mình với, tìm thấy toàn cái gì đâu đâu không khó hiểu, khó dung -
RE: xuất dữ liệu từ Acess ra excel
Xuân Thanh > 03-06-21, 03:23 PM
Mã:Function XuatExcel(tblTemp As String)
Dim rs As DAO.Recordset
Dim Ex As Object
Dim Wb As Object
Set Ex = CreateObject("Excel.Application")
Set Wb = New Ex.Workbooks
Set rs = CurrentDb.Open(tblTemp, dbOpenDynaset)
Wb.WorkSheets("Sheet1").Range("A1").CopyFromset rs
Ex.Visible = True
rs.Close
End Function
Viết thẳng chưa TEST thử nhé -
RE: xuất dữ liệu từ Acess ra excel
ongke0711 > 03-06-21, 05:38 PM
(03-06-21, 01:24 PM)tt1212 Đã viết: Anh em bạn bè có code nào ngon mà ngắn gọn xuất dữ liệu từ bàng Acess ra fil excel không cho mình với, tìm thấy toàn cái gì đâu đâu không khó hiểu, khó dung
Không hiểu thì khó dùng là đúng rồi.
Muốn ngắn gọn nhất thì dùng câu lệnh mặc định của Access: Docmd.TransferSpreadSheet.