• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

xuất dữ liệu từ Acess ra excel

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • xuất dữ liệu từ Acess ra excel
• 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.
• Bài trước Bài tiếp