• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Xuất dữ liệu ra excel

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Help] Xuất dữ liệu ra excel
• Xuất dữ liệu ra excel

• Xuất dữ liệu ra excel

  DoquangLam > 05-08-12, 05:24 PM

  Mình có vấn đề muốn xuất dữ liệu từ Table sang Excel, với một số điều kiện sau. Rất mong các bạn giúp đỡ và cho ý kiến nhé.
  
  Trong file đính kèm có Table tên là T-BKHDBan, mình muốn chuyển bảng này sang Excel như sau :
  - Cột STT trong bảng khi chuyển sang Excel được nằm ở cột A
  - Trong cột STT có dữ liệu là B1, B2, B3, B4, B5 (Số liệu ở các cột khác tương ứng với các B... này, Có B... có số liệu, có B... không có số liệu) Mình muốn khi chuyển sang Excel thì
  + B1 được nằm ngay vị trí ô A17 trên Excle
  + Các cột còn lại trong Table chuyển sang Excel bắt đầu từ cột C trở đi.
  + Khi chuyển sang cứ mỗi chỉ tiêu B (B1, B2... ) ở cuối chỉ tiêu đó chèn thêm cho 1 dòng trống và điền vào ô trên dòng trống đó ở cột B chữ Tổng.
  
  Nếu được như mẫu Excel đính kèm thì OK.
  
  Trước mắt như vậy đã. Mong các bạn hỗ trợ. Rất cám ơn !
  
  
  http://www.mediafire.com/download.php?5r4ds8cl4m6y7k5

• RE: Xuất dữ liệu ra excel

  DoquangLam > 05-08-12, 09:14 PM

  Mong các bạn giúp mình với,mình đang cần gấp. Cám ơn

• RE: Xuất dữ liệu ra excel

  Xuân Thanh > 06-08-12, 11:41 AM

  (05-08-12, 05:24 PM)DoquangLam Đã viết: Mình có vấn đề muốn xuất dữ liệu từ Table sang Excel, với một số điều kiện sau. Rất mong các bạn giúp đỡ và cho ý kiến nhé.
  
  Trong file đính kèm có Table tên là T-BKHDBan, mình muốn chuyển bảng này sang Excel như sau :
  - Cột STT trong bảng khi chuyển sang Excel được nằm ở cột A
  - Trong cột STT có dữ liệu là B1, B2, B3, B4, B5 (Số liệu ở các cột khác tương ứng với các B... này, Có B... có số liệu, có B... không có số liệu) Mình muốn khi chuyển sang Excel thì
  + B1 được nằm ngay vị trí ô A17 trên Excle
  + Các cột còn lại trong Table chuyển sang Excel bắt đầu từ cột C trở đi.
  + Khi chuyển sang cứ mỗi chỉ tiêu B (B1, B2... ) ở cuối chỉ tiêu đó chèn thêm cho 1 dòng trống và điền vào ô trên dòng trống đó ở cột B chữ Tổng.
  
  Nếu được như mẫu Excel đính kèm thì OK.
  
  Trước mắt như vậy đã. Mong các bạn hỗ trợ. Rất cám ơn !
  
  
  http://www.mediafire.com/download.php?5r4ds8cl4m6y7k5

  
  http://thuthuataccess.com/forum/thread-5233.html

• RE: Xuất dữ liệu ra excel

  DoquangLam > 06-08-12, 10:44 PM

  Cám ơn bạn Xuân Thanh đã quan tâm.
  Mình đã làm theo
  http://thuthuataccess.com/forum/thread-5233.html của bạn cho, nhưng chưa đạt yêu cầu, chỉ mới đạt được các nội dung :
  
  - Cột STT trong bảng khi chuyển sang Excel được nằm ở cột A
  - Trong cột STT có dữ liệu là B1, B2, B3, B4, B5 (Số liệu ở các cột khác tương ứng với các B... này, Có B... có số liệu, có B... không có số liệu) Mình muốn khi chuyển sang Excel thì
  + B1 được nằm ngay vị trí ô A17 trên Excle
  + Các cột còn lại trong Table chuyển sang Excel bắt đầu từ cột C trở đi.
  
  Nội dung quan trọng là :
  + Khi chuyển sang cứ mỗi chỉ tiêu B (B1, B2... ) ở cuối chỉ tiêu đó chèn thêm cho 1 dòng trống và điền vào ô trên dòng trống đó ở cột B chữ Tổng thì chưa được.
  
  Rất mong các bạn tiếp tục quan tâm tiếp. Cám ơn.
  

  ---

  Cám ơn bạn Xuân Thanh đã quan tâm.
  Mình đã làm theo
  http://thuthuataccess.com/forum/thread-5233.html của bạn cho, nhưng chưa đạt yêu cầu, chỉ mới đạt được các nội dung :
  
  - Cột STT trong bảng khi chuyển sang Excel được nằm ở cột A
  - Trong cột STT có dữ liệu là B1, B2, B3, B4, B5 (Số liệu ở các cột khác tương ứng với các B... này, Có B... có số liệu, có B... không có số liệu) Mình muốn khi chuyển sang Excel thì
  + B1 được nằm ngay vị trí ô A17 trên Excle
  + Các cột còn lại trong Table chuyển sang Excel bắt đầu từ cột C trở đi.
  
  Nội dung quan trọng là :
  + Khi chuyển sang cứ mỗi chỉ tiêu B (B1, B2... ) ở cuối chỉ tiêu đó chèn thêm cho 1 dòng trống và điền vào ô trên dòng trống đó ở cột B chữ Tổng thì chưa được.
  
  Rất mong các bạn tiếp tục quan tâm tiếp. Cám ơn.
  
  Đây là file của mình :
  
  http://www.mediafire.com/?hk0gkn4vpgdrndl

• RE: Xuất dữ liệu ra excel

  Xuân Thanh > 08-08-12, 11:07 AM

  1/ Thêm một table để hiển thị tên tươngb ứng với các B
  2/ Trong hàm muốn xuất ra excel từ ô nào thì thay Cll bằng ô đó(trong trường hợp này là A17)
  3/ Sau khi xuất xong, mở file Ex và làm thủ công để chèn thêm dòng tổng cộng
  4/ Nếu muốn VBA thì phải viết thêm lệnh cho nó
  Thân mến

• RE: Xuất dữ liệu ra excel

  DoquangLam > 27-09-14, 09:02 PM

  On Error GoTo Err_ChuyenSangExcel_Click
  
  Dim xlApp As Excel.Application
  Dim wb As Workbook
  Dim Tong As String, strPath As String
  Dim i As Long, j As Long, n As Long
  Dim FinalRow As Long
  Dim B_i
  
  strPath = "D:\KeToan\Excel\BKMua.xls"
  
  DoCmd.RunMacro "BKMua_Excel"
  Tong = Forms![F-BKHDMua_XemBK]!lblTong.Caption
  Set xlApp = New Excel.Application
  Set wb = xlApp.Workbooks.Open(strPath)
  
  With wb.Worksheets(1)
  .Select
  '§Õm sè dßng cã d÷ liÖu trong cét B
  n = .Columns("B:B").SpecialCells(xlCellTypeConstants).Count
  '§Õm sè dßng cã trong c¸c Group
  FinalRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
  'Thªm ch÷ "Tæng" vµo dßng cuèi cïng
  .Cells(FinalRow + 1, 2).Value = Tong
  
  j = 1
  
  For i = 3 To FinalRow + n
  B_i = .Cells(i, 2).Value
  
  If .Cells(i, 3).Value <> "" Then 'NÕu dßng thø i trong cét C cã d÷ liÖu th×:
  .Cells(i, 2).Value = j '§¸nh sè thø tù vµo cét B
  BValue = ""
  Else
  If B_i <> BValue And B_i <> "" And B_i <> Tong Then
  .Rows(i).EntireRow.Insert Shift:=ilDown 'ChÌn thªm dßng
  .Cells(i, 2).Value = Tong 'Thªm ch÷ "Tæng" vµo dßng võa chÌn
  BValue = B_i
  End If
  j = 0
  End If
  j = j + 1
  Next i
  .Rows("1:15").Insert Shift:=xlDown 'ChÌn vµo 15 dßng trªn ®Çu trang
  .Columns.EntireColumn.AutoFit 'Tù ®éng ®iÒu chØnh chiÒu réng c¸c cét
  .Columns.EntireRow.AutoFit 'Tù ®éng ®iÒu chØnh chiÒu cao c¸c dßng
  .Columns(3).NumberFormat = "@" '§Þnh d¹ng cét C kiÓu Text
  .Columns(4).NumberFormat = "d/M/yyyy" '§Þnh d¹ng cét D kiÓu "d/M/yyyy"
  .Columns(6).NumberFormat = "@" '§Þnh d¹ng cét F kiÓuText
  
  End With
  
  xlApp.Visible = True 'HiÖn file excel lªn
  xlApp.Visible = True 'HiÖn file excel lªn
  
  Set wb = Nothing 'Hñy biÕn ®èi tîng vµ gi¶i phãng bé nhí
  Set xlApp = Nothing
  
  Exit_ChuyenSangExcel_Click:
  Exit Sub
  
  Err_ChuyenSangExcel_Click:
  
  If Not xlApp Is Nothing Then
  xlApp.Quit
  Set xlApp = Nothing
  End If
  MsgBox Err.Description
  Resume Exit_ChuyenSangExcel_Click
  
  ---------------
  Chào các bạn !
  Cho mình hỏi đoạn code trên dùng để chuyển sang Excel, mình vướng 1 vấn đề đó là câu lệnh dưới đây khi chuyển sang Excel vẫn không giữ được như bên access
  
  .Columns(3).NumberFormat = "@"
  
  Cụ thể trên Report có cột định dạng kiểu Texl nhưng khi chuyển sang Excel thì lại không giữ nguyên được như vậy. Ví dụ như 000123 khi chuyển sang Excel nó lại thành 123. Mình muốn khi chuyển sang Excel thì nó vẫn giữ nguyên là 000123
  Rất cám ơn các bạn.

• RE: Xuất dữ liệu ra excel

  DoquangLam > 28-09-14, 03:52 PM

  Có bạn nào giúp mình với. Cám ơn

• RE: Xuất dữ liệu ra excel

  DoquangLam > 02-10-14, 10:05 AM

  Có cao thủ nào giúp mình với...

• RE: Xuất dữ liệu ra excel

  MTNQ > 04-10-14, 04:21 PM

  (27-09-14, 09:02 PM)DoquangLam Đã viết: Chào các bạn !
  Cho mình hỏi đoạn code trên dùng để chuyển sang Excel, mình vướng 1 vấn đề đó là câu lệnh dưới đây khi chuyển sang Excel vẫn không giữ được như bên access
  
  .Columns(3).NumberFormat = "@"
  
  Cụ thể trên Report có cột định dạng kiểu Texl nhưng khi chuyển sang Excel thì lại không giữ nguyên được như vậy. Ví dụ như 000123 khi chuyển sang Excel nó lại thành 123. Mình muốn khi chuyển sang Excel thì nó vẫn giữ nguyên là 000123
  Rất cám ơn các bạn.

  Đoạn code trên do mình viết trong chủ đề về xuất Report ra Excel, vì lúc đó bạn yêu cầu định dạng kiểu text, còn nếu theo kiểu như 000123 thì đơn giản là sửa "@" thành "000000"
  

  Mã:

  .Columns(3).NumberFormat = "000000"

  
  -Có một vấn đề mà mấy lần mình muốn góp ý thêm nhưng bận quá lại quên, đó là không nên đặt tên các đối tượng bằng Tiếng Việt (TV) có dấu vì các phiên bản AC và VBA hiện tại vẫn chưa hỗ trợ tốt vấn đề này. (VD Report "R_BKHDBan_Excel" bạn đặt tên các control bằng TV như [Mã số thuế],[Mặt hàng],[Doanh số],...)
  Việc đặt tên các đối tượng có dấu làm ứng dụng phát sinh các lỗi không xác định, có khi rất vô duyên như không chạy được các hàm rất cơ bản (Date, Time,...) làm bạn mất cả ngày, thậm chí cả tháng cũng chưa mò ra lỗi do đâu
  
  -Vậy câu hỏi sẽ là "Làm sao xuất ra Excel để tiêu đề các cột là TV có dấu?"
  Cách của mình thường sử dụng cho vấn đề này là dùng một bảng (VD: tblTiengViet) để lưu các từ TV sau đó chèn vào những nơi cần sử dụng (VD như các thông báo MsgBox hay trường hợp này là file Excel)
  
  Bạn tham khảo file ví dụ sau:
  
  Demo XuatReportSangExcel.rar
  
  

  Code: (Click to View)

  Mã:

  Private Sub Command0_Click()
On Error GoTo Err_Command0_Click

    Dim ExlApp As Excel.Application, wb As Workbook
    Dim tong As String, strPath As String
    Dim i As Long, j As Long, n As Long, B_i As Variant
    Dim FinalRow As Long
    Dim strTieuDe As String, Arr As Variant
    
    strPath = "C:\Vidu.xls"

    DoCmd.RunMacro "Macro1"
    Set ExlApp = New Excel.Application
    Set wb = ExlApp.Workbooks.Open(strPath)
    
    strTieuDe = DLookup("[ND1]", "[tblTiengViet]", "[ID] = 'R_BKHDBan_Excel' ")
    Arr = Split(strTieuDe, ",")
    
    tong = Arr(UBound(Arr))
    With wb.Worksheets(1)
        .Select
        'Sua tieu de cac cot
        For i = LBound(Arr) To UBound(Arr) - 1
            .Cells(1, i + 1).Value = Arr(i)
        Next
        'Dem so dong co du lieu trong cot B
        n = .Columns("B:B").SpecialCells(xlCellTypeConstants).Count
        'Dem so dong da su dung
        FinalRow = .UsedRange.Row + .UsedRange.Rows.Count - 1
        'Them chu "To^ng:" vao dong cuoi cung
        .Cells(FinalRow + 1, 2).Value = tong
        
        j = 1
        
        For i = 3 To FinalRow + n
            B_i = .Cells(i, 2).Value
        
            If .Cells(i, 3).Value <> "" Then 'Neu dong thu i trong cot C co du lieu thi:
                .Cells(i, 2).Value = j 'Danh so thu tu vao cot B
                BValue = ""
            Else
                If B_i <> BValue And B_i <> "" And B_i <> tong Then
                    .Rows(i).EntireRow.Insert Shift:=ilDown 'Chen them dong
                    .Cells(i, 2).Value = tong 'Them chu "Tong:" vao dong vua chen
                    BValue = B_i
                End If
                j = 0
            End If
            j = j + 1
        Next i
        .Rows("1:16").Insert Shift:=xlDown  'Chèn vào 16 dòng tren dau trang
        .Columns.EntireColumn.AutoFit       'Tu dong chinh chieu rong cac cot
        .Columns.EntireRow.AutoFit          'Tu dong chinh chieu cao cac dong
        .Columns(3).NumberFormat = "@"
        .Columns(5).NumberFormat = "000000"
        .Columns(6).NumberFormat = "d/M/yyyy"
        
    End With
    ExlApp.Visible = True 'Hien file excel lên
    
    Set wb = Nothing 'Huy bien doi tuong va giai phong bo nho
    Set ExlApp = Nothing
    
Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:

    If Not ExlApp Is Nothing Then
       ExlApp.Quit
        Set ExlApp = Nothing
    End If
    MsgBox Err.Description
    Resume Exit_Command0_Click
    
End Sub
• Bài trước Bài tiếp