Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Nhờ giúp đỡ code chuyển Reports sang Excel
#1
Mình muốn xuất số liệu trong Reports có tên là "R_BKHDBan_Excel" sang Excel, với điều kiện :
Dòng đầu tiên trong Reports "1. Hàng hóa, dịch vụ không chịu thuế GTGT" khi xuất sang Excel thì nằm ngay dòng thứ 17 trên bảng Excel.
Chỉ điều kiện như vậy thôi, mong các bạn hướng dẫn nhé.
Mình gửi kèm file mẫu.

http://upfile.vn/62hx/XuatExcel.zip
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Có ai giúp mình với. Cám ơn !
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
Không biết bạn đã tìm ra đáp án chưa?

Để trả lời chính xác cần thêm một vài thông tin cụ thể như:
1-Bạn muốn xuất ra một file Excel mới hay ghi vào một file đã có dữ liệu?
2-Phiên bản Access < 2000, 2000-2003, hay >= 2007 ?
3-Sao y report (nguyên định dạng) hay chỉ xuất dữ liệu từ nguồn của repot?

Có nhiều cách đề xuất ra excel như dùng Macro, DoCmd.OutputTo, DAO,ADO

Mình đưa ra một vài ví dụ nhé:

1-Xuất ra file Excel mới:

-Với phiên bản >= 2007 :
Dùng DoCmd.OutputTo
Mã:
Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

    Dim xlApp As Excel.Application
    Dim wb As Workbook
    Dim strPath As String
    Dim i As Byte
    
    strPath = "C:\Vidu.xls"

     'DoCmd.RunMacro "Macro1"

    DoCmd.OutputTo acOutputReport, "R_BKHDBan_Excel", "MicrosoftExcelBiff8(*.xls)", strPath, False, "", , acExportQualityPrint
    
    Set xlApp = New Excel.Application
    Set wb = xlApp.Workbooks.Open(strPath)
    
    wb.Worksheets(1).Range("1:1").EntireRow.Delete  'Xóa dòng tiêu đề
    For i = 1 To 16
        wb.Worksheets(1).Rows("1:1").Insert Shift:=xlDown  'Chèn thêm vào 16 dòng
    Next i
    xlApp.Visible = True 'Hiện file excel lên
    Set wb = Nothing
    Set xlApp = Nothing

Exit_Command3_Click:
    Exit Sub

Err_Command3_Click:

    If Not xlApp Is Nothing Then
       xlApp.Quit
        Set xlApp = Nothing
    End If
    MsgBox Err.Description
    Resume Exit_Command3_Click
    
End Sub

-Access 2000,2003 không hỗ trợ Unicode khi dử dụng DoCmd.OutputTo nên bạn phải tạo một macro1 với Output file: C:\Vidu.xls sau đó thay DoCmd.OutputTo bằng DoCmd.RunMacro "Macro1"

2-Xuất ra file đã có dữ liệu:
VD dùng DAO:

Mã:
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
    
    Dim rs As DAO.Recordset
    Dim XL As Excel.Application
    Dim wb As Workbook

    Set rs = CurrentDb.OpenRecordset("QryBKHDBan_Excel", dbOpenSnapshot)
    Set XL = CreateObject("Excel.Application")
    Set wb = XL.Workbooks.Open("C:\Vidu.xls")
    With wb
        .Worksheets(1).Range("A17").CopyFromRecordset rs
        .Worksheets(1).Columns.EntireColumn.AutoFit
        .Save
        .Close False
    End With

    Set rs = Nothing    
    Set wb = Nothing
    XL.Quit
    Set XL = Nothing


Exit_Command4_Click:
    Exit Sub

Err_Command4_Click:
    Set rs = Nothing
    If Not XL Is Nothing Then
        XL.Quit
        Set XL = Nothing
    End If
    
    MsgBox Err.Description
    Resume Exit_Command4_Click
End Sub
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#4
Cám ơn : MatTroiNguQuen
Mình cũng không rành lắm về khoản này. Bạn có thể giúp mình demo được không ạ.


Để trả lời chính xác cần thêm một vài thông tin cụ thể như:
1-Bạn muốn xuất ra một file Excel mới hay ghi vào một file đã có dữ liệu? -> Ra file mới
2-Phiên bản Access < =2000, 2000-2003, hay >= 2007 ? -> Access 2003
3-Sao y report (nguyên định dạng) hay chỉ xuất dữ liệu từ nguồn của repot? -> Nguyên định dạng.

Cám ơn bạn rất nhiều !
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
File của bạn dây:

Demo XuatExcel.rar

Nhớ sửa Output file: C:\Vidu.xls của Macro1 và strPath = "C:\Vidu.xls" trong thủ tục nút nhấn theo ý bạn nhé 015
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#6
Không tải về được, bạn có thể gửi mail cho mình xin được không.
doquanglam.bli@gmail.com
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
Đã gởi qua mail doquanglam.bli@gmail.com
Mail của mình: mattroinguquen@yahoo.com
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn
#8
Cám ơn MatTroiNguQuen
Đúng theo yêu cầu rồi. Mình muốn thêm một chút nữa (Theo yêu cầu đã gửi lại mail cho bạn rồi)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
Ẹc, đừng cảm ơn suông vậy chứ! Mình chỉ thích cái nút Thanks thui 014

Mình cũng có hỗ trợ cho một số bạn qua mail nhưng nhận thấy bài của bạn không cần bảo mật riêng tư nên xin phép được đưa lên đây. Như vậy sẽ có giá trị chia sẻ tốt hơn. Chúng ta cùng bàn luận và đưa ra giải pháp tốt nhất.

Theo như ví dụ mẫu gởi cho mình thì bạn muốn thêm số thứ tự và tính tổng số mẫu tin (số dòng) có trong mỗi nhóm đồng thời hai cột này có font color màu đỏ?

Bạn xem ví dụ sau có đúng ý bạn không nhé:

http://www.mediafire.com/download/4r9c3m...Excel2.rar
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn DoquangLam
#10
Hì, màu đỏ để bạn biết là những gì mình cần thêm chứ không phải khi xuất sang Excel có chữ màu đỏ.
Ý của mình là sau mỗi chỉ tiêu sau khi xuất sang Excel rồi thì chèn thêm 1 dòng và điền chữ "Tổng" vào dòng vừa điền đó (trên cột B), không cần tính tổng số tiền. Đồng thời chỉ tiêu nào có số liệu thì đánh số thứ tự luôn.

Mục đích chuyển sang Excle đúng theo khuôn mẫu của Tổng cục thuế (Khỏi phải sửa lại) để đưa vào ứng dụng HTKK 007
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
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
  [Help] OBDC Xin giúp atula77 10 284 01-12-16, 06:26 PM
Bài mới nhất: atula77
  Hướng Dẫn Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được maidinhdan 18 2,791 20-10-16, 11:51 AM
Bài mới nhất: jeck09nt
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 355 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  [Hỏi] Xuất dữ liệu từ Access ra Excel bị ẩn cột Minh Tiên 0 134 02-09-16, 05:38 PM
Bài mới nhất: Minh Tiên
  Export dữ liệu sang Word ( Nhiều dòng trong sub) danhxetnghiem 26 3,091 01-08-16, 11:08 AM
Bài mới nhất: jeck09nt

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ơ