Lấy đường dẫn thư mục cha (1 người xem)

[USB1394]

Mình có tìm trên diễn đàn code lấy Đường dẫn thư mục cha và mình đã chỉnh lại 1 chút như sau:

Function GetLocalParentDirectory(Optional ByVal PathThuMucCon As String) As String
   With CreateObject("Scripting.FileSystemObject")
         If Len(PathThuMucCon) = 0 _
             Then GetLocalParentDirectory = .GetFolder(ThisWorkBook.Path).ParentFolder _
             Else GetLocalParentDirectory = .GetFolder(PathThuMucCon).ParentFolder
    End With   
End Function

thế nhưng khi chạy trên sheet thì không hoạt động đc . Mong các Bạn giúp mình sửa lại cho đúng, xin cám ơn

 

[dhn46]

Hàm này là hàm lấy thư mục cha với cấu trúc

=GetLocalParentDirectory(Đường dẫn đầy đủ thư mục con)

Ví dụ:

GetLocalParentDirectory("C:\My Documents\My Music\Unknown")

=> Kết quả là: C:\My Documents\My Music

Với cách diễn giải như trên thiết nghĩ liệu có cần hàm tự tạo hay không trong khi chỉ cần hàm sẵn có của Excel cũng có thể giải quyết như thế này.

 

[USB1394]

Bạn có thể chỉ ra Hàm nào trong MSE không . Mình đã thử Cell("FileName") nhưng kết quả không như ý . Xin cám ơn bạn

 

[dhn46]

Bạn có thể chỉ ra Hàm nào trong MSE không . Mình đã thử Cell("FileName") nhưng kết quả không như ý . Xin cám ơn bạn

Giả sử tại A1 của bạn là: C:\My Documents\My Music\Unknown
Và bạn muốn trả về thư mục cha (C:\My Documents\My Music\), thì bạn sử dụng công thức

=LEFT(A1,MAX(IF(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)="\",ROW(INDIRECT("1:"&LEN(A1))),"")))

Kết thúc Ctrl + Shift + Enter

 

[USB1394]

Xin cám ơn bạn đã chỉ cho mình công thức . Nhưng trong trường hợp của mình lại cần 1 hàm vì yếu tố đơn giản , dẽ nhúng vào công thức VD: HyperLink(Address,Tiêu đề) . Mong bạn giúp mình 1 ý tưởng nhé, xin cám ơn

 

[dhn46]

Xin cám ơn bạn đã chỉ cho mình công thức . Nhưng trong trường hợp của mình lại cần 1 hàm vì yếu tố đơn giản , dẽ nhúng vào công thức VD: HyperLink(Address,Tiêu đề) . Mong bạn giúp mình 1 ý tưởng nhé, xin cám ơn

Bạn sử dụng cái này cho vui

Function ToTiTe(Adr As String) As String
     ToTiTe = Left(Adr, InStrRev(Adr, "\") - 1)
End Function

 

[USB1394]

Xin cám ơn bạn đã chỉ cho mình công thức . Nhưng trong trường hợp của mình lại cần 1 hàm vì yếu tố đơn giản , dẽ nhúng vào công thức VD: HyperLink(Address,Tiêu đề) . Mong bạn giúp mình 1 ý tưởng nhé, xin cám ơn

 

[hoamattroicoi]

Xin cám ơn bạn đã chỉ cho mình công thức . Nhưng trong trường hợp của mình lại cần 1 hàm vì yếu tố đơn giản , dẽ nhúng vào công thức VD: HyperLink(Address,Tiêu đề) . Mong bạn giúp mình 1 ý tưởng nhé, xin cám ơn

Thực ra tôi thấy câu hỏi của bạn cũng chưa rõ lắm, vậy bây giờ tôi sẽ mô tả lại câu hỏi xem có đúng ý bạn không nhé! Theo tôi hiểu thì như sau :
Tôi có 1 file excel ví dụ tên là : Ham viet tat ten nằm trong ổ D của thư mục TAI LIEU, giả sử sau khi dùng hàm cell("Filename",A1) trong file đó tôi đuợc 1 đường dẫn thế này : D:\TAI LIEU\[Ham viet tat ten.xls]Sheet2. Va bây giờ yêu câù là tách được D:\TAI LIEU để đưa vào hàm Hyperlink(), vậy tôi sẽ làm với công thức như sau :

=HYPERLINK(LEFT(CELL("Filename",A1),LEN(CELL("Filename",A1))-(LEN(CELL("Filename",A1))-FIND("[",CELL("Filename",A1)))-2),"Den thu muc cha")

Bạn thử đọc và kiểm tra lại xem nhé!

P/s : Chú ý công thức này tôi đặt trong file Ham viet tat ten!

 

[USB1394]

Mình có tìm trên diễn đàn code lấy Đường dẫn thư mục cha và

Function GetLocalParentDirectory(Optional ByVal PathThuMucCon As String) As String
   With CreateObject("Scripting.FileSystemObject")
         If Len(PathThuMucCon) = 0 _
             Then GetLocalParentDirectory = .GetFolder(ThisWorkBook.Path).ParentFolder _
             Else GetLocalParentDirectory = .GetFolder(PathThuMucCon).ParentFolder
    End With   
End Function

thế nhưng khi chạy trên sheet thì không hoạt động đc . Mong các Bạn giúp mình sửa lại cho đúng, xin cám ơn

Mình tìm được nguyên nhân rùi : PathThuMucCon phải tồn tại . Nghĩa là ta không thể tự lấy đường dẫn nào đó không có mà bắt nó đi tìm cha của nó . Cám ơn mọi người , mình úp lên để mọi người xem có cần chỉnh gì không nhé