Lấy giá trị của 1 ô bằng tên của folder (1 người xem)

[giangleloi]

Chào các anh chị và các bạn!!!
Có đoạn code nào có thể lấy tên của folder vào 1 ô giá trị của 1 file excel không ạ. Ví dụ như có 2 file excel tên A.xls, B.xls nằm trong folder có tên TongHop. Sau khi mở các file A, B lên, lấy tât cả các giá trị A1=TongHop trong 2 file A và B tiếp theo là save và đóng file.
Chúc các anh chị và các bạn có 1 ngày cuối tuần vui vẻ bên gia đình và bạn bè.

 

[kuldokk]

Chào các anh chị và các bạn!!!
Có đoạn code nào có thể lấy tên của folder vào 1 ô giá trị của 1 file excel không ạ. Ví dụ như có 2 file excel tên A.xls, B.xls nằm trong folder có tên TongHop. Sau khi mở các file A, B lên, lấy tât cả các giá trị A1=TongHop trong 2 file A và B tiếp theo là save và đóng file.
Chúc các anh chị và các bạn có 1 ngày cuối tuần vui vẻ bên gia đình và bạn bè.

Không biết có đúng ý bạn không vì không có file ở đây, nên cứ thử code này xem:
Code sẽ ghi tên thư mục đang chứa workbook vào ô A1.

Private Sub Workbook_Open()
    [A1] = FileNameFromPath(CurDir())
    '[A1] = FileNameFromPath(Thisworkbook.path)
    '[A1] = FileNameFromPath(Activeworkbook.path)
End Sub
Function FileNameFromPath(strFullPath As String) As String
    FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\"))
End Function

P.S: Code này chỉ hoạt động với các phiên bản excel chạy trên Windows.

 

[giangleloi]

Không biết có đúng ý bạn không vì không có file ở đây, nên cứ thử code này xem:
Code sẽ ghi tên thư mục đang chứa workbook vào ô A1.

Private Sub Workbook_Open()
    [A1] = FileNameFromPath(CurDir())
    '[A1] = Thisworkbook.path
    '[A1] = Activeworkbook.path
End Sub
Function FileNameFromPath(strFullPath As String) As String
    FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\"))
End Function

P.S: Code này chỉ hoạt động với các phiên bản excel chạy trên Windows.

Đúng ý của em rồi ạ. Cám ơn anh nhiều nhé. Mà cho em hỏi xíu. Cái link youtube anh để bên dưới anh là người hướng dẫn phải không ạ

 

[kuldokk]

Đúng ý của em rồi ạ. Cám ơn anh nhiều nhé. Mà cho em hỏi xíu. Cái link youtube anh để bên dưới anh là người hướng dẫn phải không ạ

Đúng rồi bạn, mình có làm vài video cho mọi người tham khảo

 

[giangleloi]

Đúng rồi bạn, mình có làm vài video cho mọi người tham khảo

Em hỏi bài này để kết hợp với code trong video về VBA số 11 của anh đấy. Trong bài đó anh copy các cột không liên tục thì viết code mỗi cột 1 dòng rồi copy nhưng nếu là các cột liên tục có thể viết gọn hơn được không ạ. Một lần nữa cảm ơn anh về những video bổ ích đó

 

[kuldokk]

Em hỏi bài này để kết hợp với code trong video về VBA số 11 của anh đấy. Trong bài đó anh copy các cột không liên tục thì viết code mỗi cột 1 dòng rồi copy nhưng nếu là các cột liên tục có thể viết gọn hơn được không ạ. Một lần nữa cảm ơn anh về những video bổ ích đó

Các cột liên tục thì kết hợp lại càng dễ bạn ah, code sẽ còn ngắn hơn nhiều. Ở trên diễn đàn cũng có nhiều bài nói về vấn đề này rồi đấy, bạn thử tìm xem sao.