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

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

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

(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

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

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

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

(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

(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

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