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

Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • 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
• Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  Xuân Thanh > 15-04-19, 03:48 PM

  (15-04-19, 01:09 PM)vietnc Đã viết: Mình làm theo code của bác Xuân Thanh nhưng nó báo lỗi này là sao nhỉ, các thư viện mình đã khai báo đầy đủ:
  https://drive.google.com/open?id=11Rz-bz...QVZV4wcJIz

  
  Bạn khai báo thư viện Microsoff Excel xxx Object Libary nhé

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  levanchon1801 > 14-12-20, 04:19 PM

  Nhờ quý anh chị chỉ giúp em code xuất excel ra cột stt những hàng có mã số nhân viên (đánh liên tục từ 1 cho đến mã cuối cùng cả công ty), bỏ trống các hàng là tổng cộng bộ phận và cộng tổng cả công ty ạ, Em có gửi file đính kèm ạ.
  https://drive.google.com/drive/folders/1...sp=sharing

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  ongke0711 > 15-12-20, 09:54 AM

  (14-12-20, 04:19 PM)levanchon1801 Đã viết: Nhờ quý anh chị chỉ giúp em code xuất excel ra cột stt những hàng có mã số nhân viên (đánh liên tục từ 1 cho đến mã cuối cùng cả công ty), bỏ trống các hàng là tổng cộng bộ phận và cộng tổng cả công ty ạ, Em có gửi file đính kèm ạ.
  https://drive.google.com/drive/folders/1...sp=sharing

  
  Có mấy vấn đề cần hỏi bạn là:
  - Cái Table trong file của bạn là kết quả từ Report cuối cùng hay bạn import từ nguồn nào? Tôi thấy nội dung của nó không phải là Table cơ sở dữ liệu.
  - Thứ tự tên field trong Table Access và tên cột trong Excel là tương đương nhau? vì bạn viết tắt nên mất thời gian đọc hiểu tên Field.

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  levanchon1801 > 15-12-20, 05:47 PM

  (15-12-20, 09:54 AM)ongke0711 Đã viết:

  (14-12-20, 04:19 PM)levanchon1801 Đã viết: Nhờ quý anh chị chỉ giúp em code xuất excel ra cột stt những hàng có mã số nhân viên (đánh liên tục từ 1 cho đến mã cuối cùng cả công ty), bỏ trống các hàng là tổng cộng bộ phận và cộng tổng cả công ty ạ, Em có gửi file đính kèm ạ.
  https://drive.google.com/drive/folders/1...sp=sharing

  
  Có mấy vấn đề cần hỏi bạn là:
  - Cái Table trong file của bạn là kết quả từ Report cuối cùng hay bạn import từ nguồn nào? Tôi thấy nội dung của nó không phải là Table cơ sở dữ liệu.
  - Thứ tự tên field trong Table Access và tên cột trong Excel là tương đương nhau? vì bạn viết tắt nên mất thời gian đọc hiểu tên Field.

  
  Em trả lời 2 ý của anh để nhờ anh dễ hỗ trợ em hơn ạ:
  1. Table đó là table tạm để chứa dữ liệu cần xuất ra excel, mỗi khi cần xuất ra excel thì em nạp dữ liệu vào cho nó bằng 1 query thêm
  2. Thứ tự các file trong table là đúng với cột trong excel
  Code xuất excel hiện tại em copy của Quý anh/chị đã shared, đánh stt 1 lèo từ dòng 1 đến dòng cuối luôn. Em muốn nhờ hiểu chỉnh lại đánh stt các dòng có mã nhân viên thôi ạ, bỏ trống các dòng tổng cộng

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  ongke0711 > 15-12-20, 06:16 PM

  (15-12-20, 05:47 PM)levanchon1801 Đã viết: Code xuất excel hiện tại em copy của Quý anh/chị đã shared, đánh stt 1 lèo từ dòng 1 đến dòng cuối luôn. Em muốn nhờ hiểu chỉnh lại đánh stt các dòng có mã nhân viên thôi ạ, bỏ trống các dòng tổng cộng

  
  Bạn sửa code lại chút như bên dưới:
  
  

  Mã PHP:

  ...
...
oSheet.Range("B8").CopyFromRecordset rs

    Dim lr As Long, i As Long, k As Long
    With oBook.Sheets("bltongmokinung")
        lr = .Range("B65000").End(xlUp).Row
        k = 0
        For i = 8 To lr
            If .Range("B" & i).Value <> "" Then
                k = k + 1
                .Range("A" & i).Value = k
            End If
        Next i
    End With

    rs.Close
...
... 


• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  levanchon1801 > 17-12-20, 08:55 AM

  (15-12-20, 06:16 PM)ongke0711 Đã viết:

  (15-12-20, 05:47 PM)levanchon1801 Đã viết: Code xuất excel hiện tại em copy của Quý anh/chị đã shared, đánh stt 1 lèo từ dòng 1 đến dòng cuối luôn. Em muốn nhờ hiểu chỉnh lại đánh stt các dòng có mã nhân viên thôi ạ, bỏ trống các dòng tổng cộng

  
  Bạn sửa code lại chút như bên dưới:
  
  

  Mã PHP:

  ...
...
oSheet.Range("B8").CopyFromRecordset rs

    Dim lr As Long, i As Long, k As Long
    With oBook.Sheets("bltongmokinung")
        lr = .Range("B65000").End(xlUp).Row
        k = 0
        For i = 8 To lr
            If .Range("B" & i).Value <> "" Then
                k = k + 1
                .Range("A" & i).Value = k
            End If
        Next i
    End With

    rs.Close
...
... 


  
  Em rất cám ơn sự chia sẽ của anh.

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  jason > 22-05-21, 03:42 PM

  xin chào cả nhà,
  code dưới e xuất ra excel ok rồi ạ. Vấn đề e muốn hỏi là muốn định dạng những cột ngày tháng theo kiểu dd/mm/yyyy thì chỉnh sửa như thế nào ạ ?
  e xin cảm ơn
  
  Private Sub cmdXuatExcel_Click()
  
     
      FileCopy "D:\HRSoftware\HoSoNhanVien.xls", "D:\HRSoftware\XuatExcel\ThongtinNV\Output.xls" 'Su dung temps.xls nhu 1 mau excel co san
      Me.F00_thongtin_sub.SetFocus ' fr_sub: name cua form sub
      DoCmd.GoToControl "Sothe" 'ID: Khoa cua formsub
      DoCmd.RunCommand acCmdSelectAllRecords
      DoCmd.RunCommand acCmdCopy
      'Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
      Set xlapp = CreateObject("Excel.Application")
      With xlapp
      .Workbooks.Open ("D:\HRSoftware\XuatExcel\ThongtinNV\Output.xls")
      '.Workbooks.Add 'Neukhong su dung may temps xls
      '.Range("a4").Select
      .Range("a4").PasteSpecial Paste:=xlPasteValues
      '_Link:=False, DisplayAsIcon:=False
      .Cells.Select
      '.Cells.EntireColumn.AutoFit
      .Visible = True
      .Range("a5").Select
      End With
     
  End Sub

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  ongke0711 > 23-05-21, 06:34 PM

  (22-05-21, 03:42 PM)jason Đã viết: ...
  

  
  
  Private Sub cmdXuatExcel_Click()
      ...
      .Range("A5").Select
      .Range("A5").NumberFormat = "dd/mm/yyyy"
  
      End With
     
  End Sub

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  jason > 24-05-21, 11:09 AM

  (23-05-21, 06:34 PM)ongke0711 Đã viết:

  (22-05-21, 03:42 PM)jason Đã viết: ...
  

  
  
  Private Sub cmdXuatExcel_Click()
      ...
      .Range("A5").Select
      .Range("A5").NumberFormat = "dd/mm/yyyy"
  
      End With
     
  End Sub

  e thử như hướng dẫn. các cột ngày tháng vẫn như cũ không đúng dạng "dd/mm/yyyy" ạ 
  Private Sub cmdXuatExcel_Click()   
      FileCopy "D:\HRSoftware\HoSoNhanVien.xls", "D:\HRSoftware\XuatExcel\ThongtinNV\Output.xls" 'Su dung temps.xls nhu 1 mau excel co san
      Me.F00_thongtin_sub.SetFocus ' fr_sub: name cua form sub
      DoCmd.GoToControl "Sothe" 'ID: Khoa cua formsub
      DoCmd.RunCommand acCmdSelectAllRecords
      DoCmd.RunCommand acCmdCopy
      'Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
      Set xlapp = CreateObject("Excel.Application")
      With xlapp
      .Workbooks.Open ("D:\HRSoftware\XuatExcel\ThongtinNV\Output.xls")
      '.Workbooks.Add 'Neukhong su dung may temps xls
      '.Range("a4").Select
      .Range("a4").PasteSpecial Paste:=xlPasteValues
      '_Link:=False, DisplayAsIcon:=False
      .Cells.Select
      '.Cells.EntireColumn.AutoFit
      .Visible = True
      .Range("a5").Select
      .Range("a5").NumberFormat = "dd/mm/yyyy"
   
      End With   
  End Sub

• RE: Demo tổng hợp xuất Table, Query sang Excel có điều kiện ở vị trí nào cũng được

  ongke0711 > 24-05-21, 11:52 AM

  (24-05-21, 11:09 AM)jason Đã viết: e thử như hướng dẫn. các cột ngày tháng vẫn như cũ không đúng dạng "dd/mm/yyyy" ạ 
  ..
      .Range("a5").NumberFormat = "dd/mm/yyyy"
   
  ...

  
  Bạn sửa Range("A5") thành cái range nào mà bạn Paste value vô. Như code bạn thì là "A4".
  Nếu muốn định dạng nguyên cột thì thay cái Range thành ("A4: A500") -> cột A, 500 dòng tính từ A4.
  Tôi hướng dẫn bạn dùng thuộc tính .NumberFormat, còn bạn thì phải tìm hiểu thêm và khai báo cái Range nào cần Format thôi. Làm ăn sẵn thì sau học hỏi nhanh được.
• Bài trước Bài tiếp