• xuất dữ liệu từ Acess ra excel
  • 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.