xin code vba tự động mở file excell

[hai_tdhk52_utc]

bác nào cho e xin code vba tự động mở file excell trong thư mục có sẵn sau đó điền dữ liệu lần lượt vào các hàng sau mỗi lần mở dc ko ạ.e cảm ơn!

 

[Hoàng Tuấn 868]

bác nào cho e xin code vba tự động mở file excell trong thư mục có sẵn sau đó điền dữ liệu lần lượt vào các hàng sau mỗi lần mở dc ko ạ.e cảm ơn!

Điều chỉnh lại tiêu đề đi bạn, ngắn gọn, đủ ý chính.
Ví dụ: Giúp code lấy dữ liệu trong file excel.
Còn nội dung chi tiết trình bày trong bài viết.

 

[Ngày mai trời lại sáng]

bác nào cho e xin code vba tự động mở file excell trong thư mục có sẵn sau đó điền dữ liệu lần lượt vào các hàng sau mỗi lần mở dc ko ạ.e cảm ơn!

Bạn thử code có sẵn:

Sub codevba_tudongmofile_excel_cosan_saudo_dienlanluot_vaocachangsau_moilanmo()
    Dim file_excel_cosan As Workbook, duLieu_cosan As Worksheet, cachangsau As Long
    Const excel_cosan = "odaucosan\excel_cosan"
    Set file_excel_cosan = Workbooks.Open(Filename:=excel_cosan)
    Set duLieu_cosan = excel_cosan.Worksheets(1)
    cachangsau = duLieu_cosan.Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row
    duLieu_cosan.Cells(cachangsau + 1) = "dienlanluot"
End Sub

 

[hai_tdhk52_utc]

Điều chỉnh lại tiêu đề đi bạn, ngắn gọn, đủ ý chính, đúng chính tả (ví dụ: Giúp code lấy dữ liệu trong file excel), còn nội dung chi tiết trình bày trong bài viết. Không thì sẽ sớm bị xóa bài thôi.

Bạn thử code có sẵn:

Sub codevba_tudongmofile_excel_cosan_saudo_dienlanluot_vaocachangsau_moilanmo()
    Dim file_excel_cosan As Workbook, duLieu_cosan As Worksheet, cachangsau As Long
    Const excel_cosan = "odaucosan\excel_cosan"
    Set file_excel_cosan = Workbooks.Open(Filename:=excel_cosan)
    Set duLieu_cosan = excel_cosan.Worksheets(1)
    cachangsau = duLieu_cosan.Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row
    duLieu_cosan.Cells(cachangsau + 1) = "dienlanluot"
End Sub

vg. cảm ơn bác đã gợi ý . để e thử xem sao