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!

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.

(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

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?

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]

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.

(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.

Ngiên cứu mãi mà làm chưa được, mình kém quá!

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.

(16-04-12, 08:40 AM)domfootwear Đã viết:

(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

(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.

[/quote]bác ơi mình có 2 report cấu trúc khác với report bác làm, mình đã thử sửa lại nhưng ko đc, bác có thể giúp mình với đc ko ạ