Noname > 18-10-10, 09:40 PM
haquocquan > 18-10-10, 11:56 PM
escapv > 23-05-11, 04:37 PM
(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!
quanghoasla > 24-05-11, 10:43 AM
trunglap > 18-09-11, 04:33 PM
gaubu117 > 15-04-12, 12:32 PM
domfootwear > 16-04-12, 08:40 AM
(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.
nhattiensinh > 17-07-12, 11:30 AM
cacomchethoc > 19-10-12, 10:43 AM
trying58 > 01-08-20, 11:47 PM
(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.[/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 ạ
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.