Noname > 04-10-10, 12:00 PM
(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!
The Wind > 04-10-10, 05:09 PM
dung > 04-10-10, 11:11 PM
Noname > 04-10-10, 11:18 PM
(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./.
dung > 04-10-10, 11:26 PM
dung > 05-10-10, 12:01 AM
haquocquan > 05-10-10, 12:49 AM
The Wind > 05-10-10, 08:35 AM
dung > 05-10-10, 11:58 AM
Noname > 05-10-10, 12:36 PM
(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)