Tùy chọn
Xuất dữ liệu ra exel và đặt tên file theo ý
- Xuất dữ liệu ra exel và đặt tên file theo ý
-
Xuất dữ liệu ra exel và đặt tên file theo ý
dungnvl08 > 04-08-11, 10:50 PM
Bác noname và các mem giúp mình đoạn code xuất dữ liệu từ Access ra exel 2003 đặt tên file exel theo ý.
Đây là demo của minh.
Xin cảm ơn.
-
RE: Xuất dữ liệu ra exel và đặt tên file theo ý
quanghoasla > 06-08-11, 10:51 AM
thông thường thì người ta toàn xuất từ table hoặc query ra thôi.Bạn nên tham khảo và thảo luận thêm tại đây:
http://thuthuataccess.co.cc/forum/thread-23.html -
RE: Xuất dữ liệu ra exel và đặt tên file theo ý
loihhec > 08-08-11, 04:23 PM
(04-08-11, 10:50 PM)dungnvl08 Đã viết: Bác noname và các mem giúp mình đoạn code xuất dữ liệu từ Access ra exel 2003 đặt tên file exel theo ý.
Đây là demo của minh.
Xin cảm ơn.
Em tao 1 macro. Chọn output to. Chọn table hoặc query cần xuất tiếp đến chọn kiểu xuất là Microsoft excel. sau đó gán lệnh click cho nút đó là macro đó là o ke !
(04-08-11, 10:50 PM)dungnvl08 Đã viết: Bác noname và các mem giúp mình đoạn code xuất dữ liệu từ Access ra exel 2003 đặt tên file exel theo ý.
Đây là demo của minh.
Xin cảm ơn.
file đã có code. xuất query của em ra file Excel! -
RE: Xuất dữ liệu ra exel và đặt tên file theo ý
dungnvl08 > 10-08-11, 02:51 AM
Chân thành cảm ơn các bạn. Mình đã làm được. -
RE: Xuất dữ liệu ra exel và đặt tên file theo ý
cannguyen > 15-08-11, 12:14 PM
Mình muốn sử dụng chức năng xuất dữ liệu từ report của access sang excel. Bạn nào biết giúp mình nhé
Mình đã có 2 cách đễ xuất ra nhưng chưa hoàn hảo:
Cách 1: Dùng chức năng Oficelinks
Cách 2: Dùng đoạn mã code
Function ExPortActRpt2Excel()
'
Dim Tentailieu As String, GetAppDir As String
GetAppDir = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir$(CurrentDb.Name)))
Tentailieu = Screen.ActiveReport.Name
DoCmd.OutputTo acOutputReport, Tentailieu, acFormatXLS, GetAppDir & Tentailieu & ".XLS"
MsgBox "Da xuat Bao bieu hien hanh thanh File " & GetAppDir & Tentailieu & ".XLS"
End Function
Nhưng xuất ra bị lỗi font, nhờ các bạn giúp GẤP NHÉ