XIN GIÚP ĐỠ: làm sao để lấy được tên thư mục (folder) chứa file? (1 người xem)

[VICOSACP]

Chào mọi người!

Mình có 1 file excel trong máy tính với đường dẫn như sau:

E:\OFFICE\INFORMATIONS\C3. STUDIO\DATA.XLS

VẦY PHẢI VIẾT CODE NHƯ THẾ NÀO (ĐẶT TRONG FILE DATA.XLS) ĐỂ KHI CHẠY THÌ HIỆN LÊN/ HOẶC LẤY ĐƯỢC CHUỖI "STUDIO" (TÊN FOLDER CHỨA DATA.XLS - NHƯNG BỎ ĐI 4 KÍ TỰ ĐẦU TIÊN)

THÊM 1 TÍ, NẾU VIẾT CODE CHO FILE WORD THÌ CÓ ĐƯỢC KHÔNG & NTN (VD:
E:\OFFICE\INFORMATIONS\C3. STUDIO\DATA.DOC) ?

MONG MỌI NGƯỜI GIÚP ĐỠ!

MANY TKS!

 

[Quang_Hải]

Code:

Sub ten_Folder()
dim Foldername
Foldername= Thisworkbook.Path
Msgbox Foldername
End sub

Lúc này bạn sẽ thấy được thông tin thư mục chứa file này, tiếp theo bạn muốn làm gì thì tuỳ ý

 

[VICOSACP]

Code:

Sub ten_Folder()
dim Foldername
Foldername= Thisworkbook.Path
Msgbox Foldername
End sub

Lúc này bạn sẽ thấy được thông tin thư mục chứa file này, tiếp theo bạn muốn làm gì thì tuỳ ý

Rất cảm ơn bạn! Tuy nhiên mình mới học về VBA nên cũng chưa ứng dụng được các code edit/ find & replace.
Bạn có thể giúp đỡ cho chót không?

Nếu code viết trong word thì có khác không?

Many tks!

 

[ndu96081631]

Chào mọi người!

Mình có 1 file excel trong máy tính với đường dẫn như sau:

E:\OFFICE\INFORMATIONS\C3. STUDIO\DATA.XLS

VẦY PHẢI VIẾT CODE NHƯ THẾ NÀO (ĐẶT TRONG FILE DATA.XLS) ĐỂ KHI CHẠY THÌ HIỆN LÊN/ HOẶC LẤY ĐƯỢC CHUỖI "STUDIO" (TÊN FOLDER CHỨA DATA.XLS - NHƯNG BỎ ĐI 4 KÍ TỰ ĐẦU TIÊN)

THÊM 1 TÍ, NẾU VIẾT CODE CHO FILE WORD THÌ CÓ ĐƯỢC KHÔNG & NTN (VD:
E:\OFFICE\INFORMATIONS\C3. STUDIO\DATA.DOC) ?

MONG MỌI NGƯỜI GIÚP ĐỠ!

MANY TKS!

Code chạy trên Excel:

Sub Test()
  Dim ParentFld As String
  With CreateObject("Scripting.FileSystemObject")
    ParentFld = .GetFolder([B][COLOR=#0000cd]ThisWorkbook[/COLOR][/B].Path).Name
  End With
  MsgBox ParentFld
End Sub

Code chạy trên Word:

Sub Test()
  Dim ParentFld As String
  With CreateObject("Scripting.FileSystemObject")
    ParentFld = .GetFolder([COLOR=#0000cd][B]ThisDocument[/B][/COLOR].Path).Name
  End With
  MsgBox ParentFld
End Sub

Chú ý chổ màu xanh là chổ phân biệt giữa Excel và Word
Code lấy tên thư mục chứa file, việc còn lại xử lý thế nào là tùy bạn nhé (dùng các hàm xử lý chuổi mà làm)

 

[Quang_Hải]

Rất cảm ơn bạn! Tuy nhiên mình mới học về VBA nên cũng chưa ứng dụng được các code edit/ find & replace.
Bạn có thể giúp đỡ cho chót không?

Nếu code viết trong word thì có khác không?

Many tks!

Trong Word thì thế này

Sub Ten_Folder()
  Dim Folder
   Folder = ThisDocument.Path
MsgBox Folder
End Sub