Đánh giá chủ đề:
  • 6 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Export dữ liệu ra excel
#1
Không phải mọi thứ Access đều có thể giúp được bạn, đôi khi phải vận dụng linh hoạt với Excel.
Câu lệnh Export một đối tượng Access ra Excel

Mã:
DoCmd.OutputTo Kiểu đối tượng, "tên đối tượng", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0

Ví dụ bạn đẩy một query tên là DThutheothang ra excel:

DoCmd.OutputTo acQuery, "DThutheothang", "MicrosoftExcelBiff8(*.xls)", "", True, "", 0

Hoặc là:
Mã:
DoCmd.TransferSpreadsheet acExport, 8, "qryA", "c:\A.xls", False, ""

Trong trường hợp Export ra excel bị lỗi font Unicode. Bạn có thể tạo 1 macro với Action OutputTo
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Tester007 , Hạ Vàng , ngocham2001 , nhunguyet0103 , 321bca , kaise86 , hugox03 , vulhu06
#2
Mình có 1 chút thắc mắc, rất mong được giải đáp. Mình có 1 Cơ sở dữ liệu, sử dụng 1 query tổng hợp nhiều trường từ các bảng khác nhau, mình dùng query đó để tạo 1 subform.
Main form của mình chứa các combobox, textbox để nhập điều kiện (Tìm kiếm theo nhiều đkiện), mình dùng kết nối ADO để tạo kết nối tìm kiếm từ form chính để xem kết quả trên form phụ, sau đó mình dùng câu lệnh:
DoCmd.OutputTo acOutputForm, "frm_sub_tim_nhieudk", acFormatXLS, "" ', AutoStart:=-1
xuất dữ liệu từ subform sang excel, nhưng nó lại xuất tất cả dữ liệu chứ không chỉ là những cái mình đã tìm được trong subform sau khi nhấn nút Tìm kiếm
Mình phải làm sao bây giờ? Các bạn giúp mình với.
Cám ơn các bạn rất nhiều
Chữ ký của ngocham2001 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
Để đơn giản, bạn lập 1 query với các điều kiện lọc (where) tương tự điều kiện lọc cho form phụ và xuất query này ra excel!
Vì khi bạn xuất form, nó sẽ out tất cả những gì có trên form.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nhunguyet0103
#4
Cám ơn bạn rất nhiều, nhưng mà không phải lúc nào mình cũng lọc tất cả các điều kiện.
Có những lúc mình lọc 1 điều kiện, cũng có những khi mình lọc 2,3 điều kiện, như vậy nó không hiện lên bản ghi nào cả, mình phải làm sao bây giờ???
Chữ ký của ngocham2001 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
Mã:
like * & điều kiện & *
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ngocham2001 , nhunguyet0103
#6
Mình làm được rồi, cám ơn bạn rất nhiều, có vậy mà nghĩ mấy ngày trời không ra. Hic...
Bạn ở đâu vậy? nếu ở HN, khi nào rảnh mình mời bạn đi cafe nhé? Thanks, thanks, thanks...
Chữ ký của ngocham2001 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
(08-09-10, 02:40 AM)ngocham2001 Đã viết: Mình làm được rồi, cám ơn bạn rất nhiều, có vậy mà nghĩ mấy ngày trời không ra. Hic...
Bạn ở đâu vậy? nếu ở HN, khi nào rảnh mình mời bạn đi cafe nhé? Thanks, thanks, thanks...

Rất vui vì giúp được chi bạn! Mình hy vọng nơi này sẽ quy tụ được nhiều nhân tài cùng làm việc trên Access để trao đổi kỹ năng cùng nhau!
Mình ở TP.HCM nên thôi, có gì uống cafe online cho vui! big green
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nhunguyet0103 , khanhduycsgt
#8
chao ban minh dang thiet ke Main-Sub Form va 1 Combox minh muon xuat du lieu o SubForm sang Excel nho ban viet cho minh cau lenh
Chữ ký của dung Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
(02-10-10, 04:36 PM)dung Đã viết: chao ban minh dang thiet ke Main-Sub Form va 1 Combox minh muon xuat du lieu o SubForm sang Excel nho ban viet cho minh cau lenh

Bạn nên lập topic khác trong box Form để hỏi, nhớ gõ tiếng Việt có dấu và tiêu đề rõ ràng!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
Có một cách để bạn không cần phải sử dụng điều kiện đặt lọc ở query mà vẫn xuất ra được excel với các record bạn tìm được trong formsub bằng bắt cứ thao tác nào ( hộp search, lọc...) với đoạn mã
Mã:
FileCopy "D:\NS\Now\Temps4Export\temps.xls", "C:\output.xls" 'Su dung temps.xls nhu 1 mau excel co san
Me.fr_sub.SetFocus ' fr_sub: name cua form sub
DoCmd.GoToControl "ID" 'ID: Khoa cua formsub
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
'Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
Set xlapp = CreateObject("Excel.Application")
With xlapp
.Workbooks.Open ("C:\output.xls")
'.Workbooks.Add 'Neukhong su dung may temps xls
'.Range("a4").Select
.Range("a4").PasteSpecial Paste:=xlPasteValues
'_Link:=False, DisplayAsIcon:=False
.Cells.Select
'.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a5").Select
End With

Mình hay dùng phương pháp này hơn vì rất thoải máy trong việc xuất ra xls, có thể sử dụng mẫu temp xls và không bị ràng buộc vào truy vấn query như các của noname!
Chữ ký của The Wind [Hình: http://socializedsoftware.com/wp-content...ensuse.png]
Chờ đợi cũng là 1 nghệ thuật! Và người chờ đợi cũng là 1 nghệ sĩ!
Reply
Những người đã cảm ơn Noname , autokiss , ebot2006 , nhunguyet0103


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Demo Import/Export Excel + Hàm Liệt tên ALL Access maidinhdan 38 1,837 04-07-17, 02:16 PM
Bài mới nhất: maidinhdan
  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 3,695 29-04-17, 05:16 PM
Bài mới nhất: conmeocon
  Hướng Dẫn Export dữ liệu trong subform Godspear 3 254 03-04-17, 04:11 PM
Bài mới nhất: ongke0711
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 51 17,827 10-03-17, 10:49 PM
Bài mới nhất: nhatpc
  [Help] Xuất dữ liệu access sang excel doandinhtam 11 852 20-12-16, 10:10 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ơ