Đánh giá chủ đề:
  • 5 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Xuất report ra Excel có định dạng
#1
Share by: hungtano
Tác Giả: hungtano
Site:khoahocphophong.net
Vui lòng giữ nguyên tên tác giả và site nếu bạn share hoặc sử dụng code này

---------------------

Có rất nhiều bạn hỏi làm sao xuất report ra Excel làm sao để giữ nguyên định dạng. Mình xin trả lời là không có cách nào cả. Có chăng là cách sau, tức là mình dùng code vẽ lại toàn bộ các ô trong Excel, sau đó chép dữ liệu vào. Các bạn xem demo , chú ý code và hy vọng rút ra được gì cho bản thân.
Mình xin không bình luận!


File đính kèm
.rar   xuatExcelCodinhdang.rar (Kích cỡ: 34.3 KB / Tải về: 1,263)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Cafe Via He , Hạ Vàng , domfootwear , nhunguyet0103 , trungn077 , bth8320
#2
Bài Noname sưu tầm được rất hay.
Nhưng mình có một chút vấn đề: nếu có nhiều report thì mỗi report lại phải lập code riêng.
Mình có ý tưởng: đưa các định dạng của report vào table, sau đó xuất report nào thì tìm đến report đó làm lấy thông tin từ table để định dạng. Chắc mất nhiều thời gian và công sức lắm. Noname xem thử xem có được không.
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
#3
(18-10-10, 09:40 PM)Noname Đã viết: Share by: hungtano
Tác Giả: hungtano
Site:khoahocphophong.net
Vui lòng giữ nguyên tên tác giả và site nếu bạn share hoặc sử dụng code này

---------------------

Có rất nhiều bạn hỏi làm sao xuất report ra Excel làm sao để giữ nguyên định dạng. Mình xin trả lời là không có cách nào cả. Có chăng là cách sau, tức là mình dùng code vẽ lại toàn bộ các ô trong Excel, sau đó chép dữ liệu vào. Các bạn xem demo , chú ý code và hy vọng rút ra được gì cho bản thân.
Mình xin không bình luận!

Cho mình hỏi, nếu y như code trên thay vì xuất từ Table mình cần xuất từ Query thì phải đổi code như thế nào? Mong mấy bạn giúp mình nhé! Cảm ơn rất nhiều!!!

Private Sub XuatDuLieu()
Dim rst As Recordset

'Xuat du lieu tu table sang excel
irow = 7
icol = 0
Set rst = CurrentDb.OpenRecordset("T_HamTonKho")
rst.MoveFirst
Do While Not rst.EOF
With objSht
For icol = 0 To 9
.Cells(irow, icol + 2).Value = rst.Fields(icol)
Next icol
.Cells(irow, 1).Value = irow - 6
End With
irow = irow + 1
rst.MoveNext
Loop
Chữ ký của escapv Xin chào, mình là escapv, Tham gia http://thuthuataccess.com/forum từ ngày 22-05 -11.
Reply
Những người đã cảm ơn
#4
bài viết rất hay. qua ví dụ này các anh/chị nào có thể xuất reports ra ms word giữ nguyên định dạng đó không?
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Cho mình hỏi, nếu y như code trên thay vì xuất từ Table mình cần xuất từ Query thì phải đổi code như thế nào? Mong mấy bạn giúp mình nhé! Cảm ơn rất nhiều!!!

Private Sub XuatDuLieu()
Dim rst As Recordset

'Xuat du lieu tu table sang excel
irow = 7
icol = 0
Set rst = CurrentDb.OpenRecordset("T_HamTonKho")
rst.MoveFirst
Do While Not rst.EOF
With objSht
For icol = 0 To 9
.Cells(irow, icol + 2).Value = rst.Fields(icol)
Next icol
.Cells(irow, 1).Value = irow - 6
End With
irow = irow + 1
rst.MoveNext
Loop

[/quote]

Chữ ký của trunglap Xin chào, mình là trunglap, Tham gia http://thuthuataccess.com/forum từ ngày 31-05 -11.
Reply
Những người đã cảm ơn
#6
cái này đẳng cấp thật, nhưng mỗi cái report mỗi vẽ bẳng code như thế này biết bao giờ xong. Có cách khác lẹ hơn không.
Trước đây mình thiết kế 1 cái file excell chuẩn rồi cho link dữ liệu từ file access xuất ra. làm nhanh, nhưng mà lỡ tay làm mất link hay người mới làm không quen thì không biết cách cập nhật dữ liệu kiểu này.
Chữ ký của gaubu117
Reply
Những người đã cảm ơn
#7
(18-09-11, 04:33 PM)trunglap Đã viết: Cho mình hỏi, nếu y như code trên thay vì xuất từ Table mình cần xuất từ Query thì phải đổi code như thế nào? Mong mấy bạn giúp mình nhé! Cảm ơn rất nhiều!!!

Private Sub XuatDuLieu()
Dim rst As Recordset

'Xuat du lieu tu table sang excel
irow = 7
icol = 0
Set rst = CurrentDb.OpenRecordset("T_HamTonKho")
rst.MoveFirst
Do While Not rst.EOF
With objSht
For icol = 0 To 9
.Cells(irow, icol + 2).Value = rst.Fields(icol)
Next icol
.Cells(irow, 1).Value = irow - 6
End With
irow = irow + 1
rst.MoveNext
Loop


[/quote]

(15-04-12, 12:32 PM)gaubu117 Đã viết: cái này đẳng cấp thật, nhưng mỗi cái report mỗi vẽ bẳng code như thế này biết bao giờ xong. Có cách khác lẹ hơn không.
Trước đây mình thiết kế 1 cái file excell chuẩn rồi cho link dữ liệu từ file access xuất ra. làm nhanh, nhưng mà lỡ tay làm mất link hay người mới làm không quen thì không biết cách cập nhật dữ liệu kiểu này.


File đính kèm
.zip   2Ex.zip (Kích cỡ: 73.11 KB / Tải về: 277)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , nhunguyet0103
#8
Ngiên cứu mãi mà làm chưa được, mình kém quá!
Chữ ký của nhattiensinh Hãy chia sẻ kinh nghiệm cùng mình trên HeartThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
sao của mình không thể export ra excel được vậy các bạn
của mình nút đó bị ẩn
mình dùng 2007
các bạn cho biết cách với
thanks all.
Chữ ký của cacomchethoc Xin chào, mình là cacomchethoc, Tham gia http://thuthuataccess.com/forum từ ngày 19-10 -12.
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
  [Chương trình] Quản lý xuất nhập tồn cho Kho Đá uronmapu 11 3,859 12-09-12, 12:25 AM
Bài mới nhất: uronmapu
  Có bác nào biết cách tạo Form theo dạng trang Web giúp em với ledangvan 0 1,119 05-12-11, 10:17 AM
Bài mới nhất: ledangvan

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ơ