Đá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] Hỏi cách sum tổng 3 điều kiện thanhtungces 1 84 24-10-17, 12:21 AM
Bài mới nhất: maidinhdan
  [Help] Cách ghép chuỗi có dấu phẩy ngăn giữa vietcnttit 4 188 23-10-17, 01:30 PM
Bài mới nhất: vietcnttit
  [Help] Giúp đỡ về lọc dữ liệu tieu_ngao 1 99 03-10-17, 08:42 PM
Bài mới nhất: ongke0711
  Tính lại giá xuất kho theo PP Bình quân gia quyền sau mỗi lần nhập ledangvan 43 2,097 27-08-17, 10:37 PM
Bài mới nhất: ledangvan
  [Help] Hỏi về phương pháp lọc dữ liệu sau khi joins từ bảng khác sang HoangManh 2 383 20-06-17, 08:19 PM
Bài mới nhất: tranthanhan1962

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ơ