Đánh giá chủ đề:
  • 6 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Export dữ liệu ra excel
#11
(04-10-10, 11:44 AM)The Wind Đã viết: 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!

Có file demo nào kèm dữ liệu mẫu không bạn! Đoạn code này nếu được áp đúng thì giúp mọi người giải quyết được nhiều việc lắm!
Tks for sharing
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
uh! để mình làm 1 cái demo! noname đã giúp đỡ mình rất nhiều, sao từ chối được.
Mình làm trên access 2007 và tạo csdl của 2003, test thử OK, nhưng vì hok có máy acess 2003 nên hok biết máy bạn có chạy được hok?
Click here


vì là demo nên mình làm cho nhanh để mọi người chạy thử thôi, chứ mấy cái chưa lỗi kiểu như nếu tìm kiếm trả về số record = 0 thì export 2 xls >> false: error. nên nếu dùng nhớ chú ý fix lỗi này bằng cách kiểm tra số lượng record trả về sau khi tìm kiếm có > 0 nhé! hoặc = on error: hiện lên thông báo là ok'
3 dòng lệnh, hok lười nữa, fix luôn rồi!
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
#13
Tạo nút lệnh Output có điều kiện
Tôi có thiết kế Form với các điều kiện lọc (có gửi theo file đính kèm) nhờ các Bạn giúp dùm tôi tạo nút lệnh Output để xuất các điều kiện ở trong SubForm ra Excel. Tôi xin cám ơn rất nhiều./.
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
#14
(04-10-10, 11:11 PM)dung Đã viết: Tạo nút lệnh Output có điều kiện
Tôi có thiết kế Form với các điều kiện lọc (có gửi theo file đính kèm) nhờ các Bạn giúp dùm tôi tạo nút lệnh Output để xuất các điều kiện ở trong SubForm ra Excel. Tôi xin cám ơn rất nhiều./.

Bạn có thể chuyển các điều kiện lọc của bạn thành các query có điều kiện là where like * & [điều kiện] &*
Sau Áp dụng thủ thuật trên bình thườ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
#15
Tôi đang thiết kế Form với các điều kiện lọc (gởi file đính kèm) Tôi muốn tạo một lệnh dạng Output sang Excel, nhưng không xuất dữ liệu đã lọc ra được. Vậy mong các bạn giúp đỡ tôi. Tôi cám ơn rất nhiều


File đính kèm
.rar   HD.rar (Kích cỡ: 325.69 KB / Tải về: 162)
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 hugox03
#16
Tôi cũng thử tạo Query như Bạn nói nhưng nó không hiểu dấu >=, =, <= (songaylai). Vậy bạn giúp dùm tôi nhé tôi đã gởi file đính kèm.
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
#17
Tôi cũng đã xem bài của bạn. Cũng chưa có giải pháp tốt nhất cho bạn.
Theo tôi, sau khi chọn các điều kiện lọc, bạn đặt lại rowsource của S_F4 = select * from Q_SKDN where điều kiện lọc. và requery.
Tôi chưa làm thử, nhưng hướng xử lý của tôi là như vậy. Bạn nghiên cứu thử xem.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#18
Hôm qua kiểm tra cái demo ở máy 2003 rồi, chạy ngon lành, nhưng cái xls làm mẫu thì bị lỗi do tạo = excel 2007. sửa lại cái xls cùng thư mục = các khác là được.
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
#19
Tôi có tạo chương trình trên Acceess, để người dùng link các file từ Excel vào, tôi đã thay thế công cụ Main Menu bằng My Menu do đó khi thoát chương trình, người dùng biết hoặc không thể biết nén CT lại bằng Compact and Repair Database, do đó dung lượng CT rất lớn. Nhờ các bạn giúp tôi khi thoát CT thì tự động nén các file lại (cũng có bạn trả lời trên diễn đàn, nhưng tôi chưa hiểu)
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
#20
(05-10-10, 11:58 AM)dung Đã viết: Tôi có tạo chương trình trên Acceess, để người dùng link các file từ Excel vào, tôi đã thay thế công cụ Main Menu bằng My Menu do đó khi thoát chương trình, người dùng biết hoặc không thể biết nén CT lại bằng Compact and Repair Database, do đó dung lượng CT rất lớn. Nhờ các bạn giúp tôi khi thoát CT thì tự động nén các file lại (cũng có bạn trả lời trên diễn đàn, nhưng tôi chưa hiểu)

Bạn nên tập thói quen những chủ đề khác nhau không nên thảo luận chung trong 1 topic, nhằm giùp sau này mọi người dễ tìm lại để tham khảo.

Mời xem thêm:
http://thuthuataccess.com/forum/thread-275.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
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
  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,790 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 352 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  [Hỏi] Xuất dữ liệu từ Access ra Excel bị ẩn cột Minh Tiên 0 133 02-09-16, 05:38 PM
Bài mới nhất: Minh Tiên
  Export dữ liệu sang Word ( Nhiều dòng trong sub) danhxetnghiem 26 3,085 01-08-16, 11:08 AM
Bài mới nhất: jeck09nt
  Export Table từ access sang 1 file word có sẵn! cong_agribankPT 50 14,975 02-05-16, 10:52 PM
Bài mới nhất: kuzinhy

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ơ