code mở file excel khi thay đổi nơi lưu folder

[ducdinh1987]

Chào anh chị.
em có đoạn code sau:
Sub moxlsfile()
With CreateObject("Shell.Application")
.Open ("D:\bmg\vuonct.xls")
End With
End Sub

nhưng mình đã mặc định mở file D:\bmg\vuonct.xls, khi em copy folder bmg tại ổ D sang ổ E hoặc bất khì đâu thì vẫn mở được file vuonct.xls.
vậy mình sửa lại code làm sao anh chị giúp em với.
cảm ơn anh chị.

 

[ndu96081631]

Chào anh chị.
em có đoạn code sau:
Sub moxlsfile()
With CreateObject("Shell.Application")
.Open ("D:\bmg\vuonct.xls")
End With
End Sub

nhưng mình đã mặc định mở file D:\bmg\vuonct.xls, khi em copy folder bmg tại ổ D sang ổ E hoặc bất khì đâu thì vẫn mở được file vuonct.xls.
vậy mình sửa lại code làm sao anh chị giúp em với.
cảm ơn anh chị.

Hỏi lại cho rõ: Cái file chứa code trên nó nằm ở đâu? Có nằm trong thư mục bmg không?

 

[ducdinh1987]

file em nằm trong thư mục con của thưc mục bmg (D:\bmg\data)

cho em hỏi thêm luôn: nếu nó không nằm trong thư mục thì mình làm sao, hay là mình phải search hết cả computer.

cảm ơn.

 

[ndu96081631]

file em nằm trong thư mục con của thưc mục bmg (D:\bmg\data)

Nói lại lần nữa:
- Bạn có thư mục \bmg\data
- File chưa code nằm trong thư mục data
- File cần mở tên là vuonct.xls nằm trong thư mục bmg
Đúng không?
Nếu vậy thì dùng code này:

Sub moxlsfile()
  Dim fld As String
  With CreateObject("Scripting.FileSystemObject")
    fld = .GetFolder(ThisWorkbook.Path).ParentFolder
  End With
  With CreateObject("Shell.Application")
   .Open (fld & "\vuonct.xls")
  End With
End Sub

cho em hỏi thêm luôn: nếu nó không nằm trong thư mục thì mình làm sao, hay là mình phải search hết cả computer.

Thì chắc phải vậy rồi, nhưng lở trong máy tính có nhiều file trùng tên với file cần tìm thì sao? Vì vậy tốt nhất nên tạo cấu trúc thư mục cho chuẩn, dù có dời đi đâu thì thằng vuonct.xls cũng nằm trong thư mục bmg và file chưa code cũng phải nằm trong thư mục data

 

[ducdinh1987]

sorry anh nha. file chứa code nằm trong thư mục bmg, còn file vuonct.xls nằm trong \bmg\data.

 

[ndu96081631]

sorry anh nha. file chứa code nằm trong thư mục bmg, còn file vuonct.xls nằm trong \bmg\data.

Vậy càng dễ:

Sub moxlsfile()
  With CreateObject("Shell.Application")
    .Open (ThisWorkbook.Path & "\Data\vuonct.xls")
  End With
End Sub