Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách xử lý khi xuất dữ liệu ra excel
#1
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
Chữ ký của duynghiep89 duynghiep89,gia nhập Thủ Thuật Access từ 17-12 -15.
Reply
Những người đã cảm ơn
#2
(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ả...
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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
Chữ ký của duynghiep89 duynghiep89,gia nhập Thủ Thuật Access từ 17-12 -15.
Reply
Những người đã cảm ơn
#4
(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

[Hình: demoxuatfile%20sang%20Access.png]

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
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Che_Guevara
#5
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?
Chữ ký của duynghiep89 duynghiep89,gia nhập Thủ Thuật Access từ 17-12 -15.
Reply
Những người đã cảm ơn
#6
Hàm xóa 1 sheet của Excel từ code VBA access.

Mã PHP:
Function XoaExcelSheet(FileExcelPath As StringSheetName 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.DescriptionvbCritical"An Error has Occured!"
       Exit Function
   End If
End Function 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] cách lọc nhân viên làm việc ở 2 phòng ban? hoanghai902 1 57 27-11-16, 04:49 PM
Bài mới nhất: Noname
  [Hỏi] cách lọc giá trị trên 2 trường khác nhau? hoanghai902 1 70 18-11-16, 09:27 AM
Bài mới nhất: vulhu06
  Xóa dữ liệu ở các bảng ChiMai 6 126 17-11-16, 05:12 PM
Bài mới nhất: Trần Linh
  [Hỏi] Cách lọc trong query trungdv007 10 364 11-10-16, 08:30 AM
Bài mới nhất: trungdv007
  {Hỏi] Cách Tạo Truy Vấn % Giảm Giá Trong kỳ bán hàng thangbomdethuong2000 6 269 03-10-16, 01:27 PM
Bài mới nhất: thangbomdethuong2000

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ