Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hướng dẫn] Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
#11
Mình hiểu rồi bạn, lỗi là do mình chưa tạo file excel và tên sheet. Bạn cho mình hỏi là xuất query sang excel thì câu lệnh xuất như thế nào bạn?
Chữ ký của ndthanh29 Xin chào, mình là ndthanh29, Tham gia http://thuthuataccess.com/forum từ ngày 08-10 -12.
Reply
Những người đã cảm ơn
#12
Mã PHP:
Function ExAcEx(qryQueryName As StringstrFile As StringshSheet As StringCll As String)
    
Dim Ex As New Excel.Application
    Dim fileEx 
As Workbook
    Set fileEx 
Ex.Workbooks.Open(strFile)
    
Dim Ws As Worksheet
    Set Ws 
fileEx.Worksheets(shSheet)
    
Dim rs As Recordset
    Dim qr 
As QueryDef
    Set qr 
CurrentDb.OpenQueryDefs(qryQueryName)
    
Set rs qr.OpenRecordset()
    
Ws.Range(Cll).CopyFromRecordset rs
    fileEx
.SavefileEx.CloseSet Ex Nothingrs.Close
End 
Function 
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#13
báo lỗi đoạn lệnh đầu tiên đó bạn? bạn test thử chưa? mình giữ nguyên file excel, chỉ thay đổi tên Table bằng tên Query thôi
Chữ ký của ndthanh29 Xin chào, mình là ndthanh29, Tham gia http://thuthuataccess.com/forum từ ngày 08-10 -12.
Reply
Những người đã cảm ơn
#14
Bạn đọc kỹ lại #1 trong topic này và làm theo
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hungle2006
#15
Chào bác XuanThanh em làm theo hwongs dẫn của bác nhưng báo lỗi dòng này, bác xem lại giúp em nhé.
Set fileEx = Ex.Workbooks.Open(strFile)
Chữ ký của hungle2006 hungle2006,gia nhập Thủ Thuật Access từ 10-10 -15.
Reply
Những người đã cảm ơn
#16
(18-04-16, 11:41 PM)hungle2006 Đã viết: Chào bác XuanThanh em làm theo hwongs dẫn của bác nhưng báo lỗi dòng này, bác xem lại giúp em nhé.
Set fileEx = Ex.Workbooks.Open(strFile)

Xem Demo tại link này: 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

Thông tin về demo:

1. Xuất từ table ra file Excel theo mẫu Excel có sẳn và tự đặt tên;
2. Xuất từ Query có đặt điều kiện ra file Excel theo theo mẫu Excel có sẳn và tự đặt tên.
3. Xuất từ nhiều table/query ra nhiều Sheet Excel



[Hình: demoxuatfile%20sang%20Access.png]
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
#17
(19-04-16, 09:50 AM)maidinhdan Đã viết:
(18-04-16, 11:41 PM)hungle2006 Đã viết: Chào bác XuanThanh em làm theo hwongs dẫn của bác nhưng báo lỗi dòng này, bác xem lại giúp em nhé.
Set fileEx = Ex.Workbooks.Open(strFile)

Xem Demo tại link này: 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

Thông tin về demo:

1. Xuất từ table ra file Excel theo mẫu Excel có sẳn và tự đặt tên;
2. Xuất từ Query có đặt điều kiện ra file Excel theo theo mẫu Excel có sẳn và tự đặt tên.
3. Xuất từ nhiều table/query ra nhiều Sheet Excel



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

Cám ơn bạn maidinhdan rat nhiều. Nhờ có những bài viết của bạn mà mình và mọi người học được rất nhiều điều.
Chữ ký của tvn_hut Xin chào, mình là Dameaccess, Tham gia http://thuthuataccess.com/forum từ ngày 06-06 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,295 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 181 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  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 maidinhdan 18 2,787 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,854 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Ứng dụng đổi tên file trong windows hàng loạt tranthanhan1962 7 1,211 19-09-16, 04:16 PM
Bài mới nhất: maidinhdan

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ơ