Code lấy tên thư mục đang chọn.

[TrungChinhs]

Nhờ các bạn viết giúp Code lấy tên thư mục đang chọn.
Khi mở một file, tôi muốn lấy tên thư mục cuối cùng chứa file đó ra một ô trên bảng tính (vd ô D3 của Sheet1) thì viết code như thế nào ?
Thanks !

 

[Po_Pikachu]

Không hiểu ý bác nên viết vài ví dụ như sau:
Lấy đường dẫn thư mục:

MsgBox (Replace(ActiveWorkbook.FullName, ActiveWorkbook.Name, ""))

Lấy cái tên thư mục cuối cùng thôi.

Dim arr() As String
arr() = Split((Replace(ActiveWorkbook.FullName, ActiveWorkbook.Name, "")), "\")
MsgBox (arr()(UBound(arr()) - 1))

Muốn gán cho 1 ô nào đó như D3 thì chỉ cần đổi Msgbox thành [D3]= là được.
Thân.

 

[huuthang_bd]

Nhờ các bạn viết giúp Code lấy tên thư mục đang chọn.
Khi mở một file, tôi muốn lấy tên thư mục cuối cùng chứa file đó ra một ô trên bảng tính (vd ô D3 của Sheet1) thì viết code như thế nào ?
Thanks !

Bạn dùng thử câu lệnh này xem.

Right(ActiveWorkbook.Path, InStr(StrReverse(ActiveWorkbook.Path), "\") - 1)

 

[ndu96081631]

Trong VBA có hàm Dir chuyên để làm vụ này:
Nếu ta có đường dẩn: "D:\Excel\Download"
Thì Dir("D:\Excel\Download", vbDirectory) sẽ trả về giá trị = Download
Ví dụ code sau:

Sub Test()
 With ThisWorkbook
   MsgBox IIf(Right(.Path, 1) = ":", .Path, Dir(.Path, 16))
 End With
End Sub