Giúp code lấy đường dẫn thu mục Trong cùng thư mục của FIle đang mở

[minhtuan55]

Chào cả nhà GPE. Em đang đoạn code này
Range("a1") = ThisWorkbook.Path

Code chạy lấy đường dẫn trùng với File đang mở. Nhưng em muốn lấy trước đó 1 thư mục thì phải làm sao



Xin chân thành cảm ơn

 

[nhnn1986]

Thử code sau

Sub nhnn()
  Dim str As String
  str = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
  str = Left(str, InStrRev(Left(str, Len(str) - 1), "\"))
  ActiveSheet.Range("A1").Value = str
End Sub

Bài đã được tự động gộp: 25/2/19

Code khác cũng hay, dùng object có Function getparent:

Sub nhnn1986()

Dim fso As Object
Dim str As String
Set fso = CreateObject("Scripting.FileSystemObject")
str = fso.GetParentFolderName(ThisWorkbook.Path)
ActiveSheet.Range("A1").Value = str
End Sub

Bài đã được tự động gộp: 25/2/19

Code khác cũng hay, dùng object có Function getparent:

Sub nhnn1986()

Dim fso As Object
Dim str As String
Set fso = CreateObject("Scripting.FileSystemObject")
str = fso.GetParentFolderName(ThisWorkbook.Path)
ActiveSheet.Range("A1").Value = str
End Sub

 

[minhtuan55]

Thử code sau

Sub nhnn()
  Dim str As String
  str = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
  str = Left(str, InStrRev(Left(str, Len(str) - 1), "\"))
  ActiveSheet.Range("A1").Value = str
End Sub

Bài đã được tự động gộp: 25/2/19

Code khác cũng hay, dùng object có Function getparent:

Sub nhnn1986()

Dim fso As Object
Dim str As String
Set fso = CreateObject("Scripting.FileSystemObject")
str = fso.GetParentFolderName(ThisWorkbook.Path)
ActiveSheet.Range("A1").Value = str
End Sub

Bài đã được tự động gộp: 25/2/19

Code khác cũng hay, dùng object có Function getparent:

Sub nhnn1986()

Dim fso As Object
Dim str As String
Set fso = CreateObject("Scripting.FileSystemObject")
str = fso.GetParentFolderName(ThisWorkbook.Path)
ActiveSheet.Range("A1").Value = str
End Sub

RẤT HAY. cảm ơn bạn nhiều. Trường hợp sau 2 hoặc 3 thư mục thì sửa code chổ nào anh. ANh có thể cho công thức tổng quát để em đưa sữa 2 hoặc 3