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

Cách xử lý khi xuất dữ liệu ra excel

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • [Hỏi] Cách xử lý khi xuất dữ liệu ra excel
• Cách xử lý khi xuất dữ liệu ra excel

• Cách xử lý khi xuất dữ liệu ra excel

  duynghiep89 > 22-12-15, 10:19 PM

  Cả nhà tham khảo dữ liệu query mình đăng như hình 1 và hướng dẫn xem có cách nào để khi xuất ra file excel được kết quả như hình 2 hay không nhé!
  
  Thanks cả nhà trước 
  h1
  
  h2

• RE: Cách xử lý khi xuất dữ liệu ra excel

  maidinhdan > 23-12-15, 11:43 PM

  (22-12-15, 10:19 PM)duynghiep89 Đã viết: Cả nhà tham khảo dữ liệu query mình đăng như hình 1 và hướng dẫn xem có cách nào để khi xuất ra file excel được kết quả như hình 2 hay không nhé!
  
  Thanks cả nhà trước 
  h1
  
  h2

  
  Mô tả ý muốn đi, nhìn hình không hiểu nổi. Bên Query có dữ liệu qua bên kia mất thì điều kiện là gì? chẳng hiểu gì cả...

• RE: Cách xử lý khi xuất dữ liệu ra excel

  duynghiep89 > 24-12-15, 12:40 AM

  Sorry bạn vì đã ko giải thích rõ. Điều kiện là, các ô có dữ liệu giống với ô phía trên nó ở cột packno sẽ bị xóa đi

• RE: Cách xử lý khi xuất dữ liệu ra excel

  maidinhdan > 24-12-15, 09:30 PM

  (24-12-15, 12:40 AM)duynghiep89 Đã viết: Sorry bạn vì đã ko giải thích rõ. Điều kiện là, các ô có dữ liệu giống với ô phía trên nó ở cột packno sẽ bị xóa đi

  
  Tham khảo bài này:
  undefined Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được
  
  
  
  Chú ý bài thứ 10: Đoạn code sẽ giúp xuất 2 table vào 1 file Excel theo mẫu, được chỉ định vị trí trước
  
  Thân mến

• RE: Cách xử lý khi xuất dữ liệu ra excel

  duynghiep89 > 18-02-16, 12:11 AM

  Hi các bạn
  
  cho mình hỏi thêm là, có cách nào xoá một sheet trong file excel từ trong vba của access hay không?

• RE: Cách xử lý khi xuất dữ liệu ra excel

  ongke0711 > 18-02-16, 09:31 AM

  Hàm xóa 1 sheet của Excel từ code VBA access.
  
  

  Mã PHP:

  Function XoaExcelSheet(FileExcelPath As String, SheetName As String) As Boolean
   Dim xlApp       As Object
   Dim xlWrkBk     As Object

   On Error Resume Next
   Set xlApp = GetObject(, "Excel.Application")
   
   If Err.Number <> 0 Then 'Neu chua mo Excel, se mo cai moi'
       Err.Clear
       On Error GoTo XoaExcelSheet_Error
       Set xlApp = CreateObject("excel.application")
   Else
       On Error GoTo XoaExcelSheet_Error
   End If

   Set xlWrkBk = xlApp.Workbooks.Open(FileExcelPath)

       xlApp.DisplayAlerts = False 'khong hien thong bao hoi "Co muon xoa khong?"'
       xlApp.Worksheets(SheetName).Delete
       xlApp.DisplayAlerts = True
       xlApp.Visible = True

   Set xlApp = Nothing
   Set xlWrkBk = Nothing

   XoaExcelSheet = True

Exit Function

XoaExcelSheet_Error:
   XoaExcelSheet = False
   If Err.Number = 9 Then   'Khong tim thay Sheet can xoa'
       MsgBox "Worksheet '" & SheetName & "' không tìm thay '" & FileExcelPath & "'", vbCritical
       Exit Function
   ElseIf Err.Number = 1004 Then   'Khong tim thay file Excel'
       MsgBox "Không tìm tháy Workbook '" & FileExcelPath & "'", vbCritical
       Exit Function
   Else
       'Các báo loi khác'
       MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
       Err.Number & vbCrLf & "Error Source: basExcel / XoaExcelSheet" & vbCrLf & _
       "Error Description: " & Err.Description, vbCritical, "An Error has Occured!"
       Exit Function
   End If
End Function 

• Bài trước Bài tiếp