Mở Folder bằng VBA và chọn 1 File được định trước trong Folder mới mở (1 người xem)

[namhn_vn]

Em có xuất ra 1 file "Phieu1.PDF" vào thư mục "D:\Phieu Giao Hang" , giờ e muốn nhờ Anh Chị mở đường dẫn "D:\Phieu Giao Hang" lên và tự động chọn vào file "Phieu1.PDF" bằng VBA được không ạ. Em cảm ơn Anh, Chị nhiều

 

[phulien1902]

Em có xuất ra 1 file "Phieu1.PDF" vào thư mục "D:\Phieu Giao Hang" , giờ e muốn nhờ Anh Chị mở đường dẫn "D:\Phieu Giao Hang" lên và tự động chọn vào file "Phieu1.PDF" bằng VBA được không ạ. Em cảm ơn Anh, Chị nhiều

Bạn thử:

Sub Test()
ThisWorkbook.FollowHyperlink "D:\Phieu Giao Hang\Phieu1.PDF"
End Sub

 

[huuthang_bd]

Bạn thử:

Sub Test()
ThisWorkbook.FollowHyperlink "D:\Phieu Giao Hang\Phieu1.PDF"
End Sub

Có lẽ không phải vậy. Yêu cầu là mở thư mục và chọn file được chỉ định, như hình sau.

 

[snow25]

Có lẽ không phải vậy. Yêu cầu là mở thư mục và chọn file được chỉ định, như hình sau.

View attachment 224113

Em nghĩ là bạn này muốn mở luôn File PDF của mình vừa tạo được đấy.

 

[namhn_vn]

Bạn thử:

Sub Test()
ThisWorkbook.FollowHyperlink "D:\Phieu Giao Hang\Phieu1.PDF"
End Sub

cảm ơn bạn vì bạn đã trả lời

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

Em nghĩ là bạn này muốn mở luôn File PDF của mình vừa tạo được đấy.

không bạn ạ, mình chỉ cần nó được chọn như hình của anh huuthang_bd thôi ạ

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

Có lẽ không phải vậy. Yêu cầu là mở thư mục và chọn file được chỉ định, như hình sau.

View attachment 224113

đúng ý em rồi đó anh. mong anh giúp

 

[HeSanbi]

Đơn giản vày thôi
---------------------------

Sub test_ShowExr()
  'ShowExr ToPath, Inside , IsMaximize 
  'ShowExr 'Đường dẫn Folder / file, Bên trong Folder Hoặc mở File thì để True, Full cửa sổ thì để True'
  ShowExr ThisWorkbook.FullName
  ShowExr ThisWorkbook.Path
  ShowExr ThisWorkbook.Path, True
End Sub
Sub ShowExr( _
  Optional ByVal ToPath$, _
  Optional ByVal Inside As Boolean, _
  Optional ByVal IsMaximize As Boolean)
    ToPath = IIf(ToPath = "", ThisWorkbook.FullName, ToPath)
    Dim str$: str = IIf(Inside, "explorer.exe ", "explorer.exe /select,")
    On Error Resume Next
    Shell str & Chr(34) & ToPath & Chr(34), IIf(IsMaximize, vbMaximizedFocus, vbNormalFocus)
End Sub

 

[namhn_vn]

Đơn giản vày thôi
---------------------------

Sub test_ShowExr()
  ShowExr 'Đường dẫn Folder / file, Bên trong Folder thì để True, Full cửa sổ thì để True'
  ShowExr ThisWorkbook.Path
  ShowExr ThisWorkbook.Path, True
End Sub
Sub ShowExr( _
  Optional ByVal ToPath$, _
  Optional ByVal Inside As Boolean, _
  Optional ByVal IsMaximize As Boolean)
    ToPath = IIf(ToPath = "", ThisWorkbook.FullName, ToPath)
    Dim str$: str = IIf(Inside, "explorer.exe ", "explorer.exe /select,")
    On Error Resume Next
    Shell str & Chr(34) & ToPath & Chr(34), IIf(IsMaximize, vbMaximizedFocus, vbNormalFocus)
End Sub

cảm ơn bạn, để mình test thử

 

[namhn_vn]

Đơn giản vày thôi
---------------------------

Sub test_ShowExr()
  ShowExr 'Đường dẫn Folder / file, Bên trong Folder thì để True, Full cửa sổ thì để True'
  ShowExr ThisWorkbook.Path
  ShowExr ThisWorkbook.Path, True
End Sub
Sub ShowExr( _
  Optional ByVal ToPath$, _
  Optional ByVal Inside As Boolean, _
  Optional ByVal IsMaximize As Boolean)
    ToPath = IIf(ToPath = "", ThisWorkbook.FullName, ToPath)
    Dim str$: str = IIf(Inside, "explorer.exe ", "explorer.exe /select,")
    On Error Resume Next
    Shell str & Chr(34) & ToPath & Chr(34), IIf(IsMaximize, vbMaximizedFocus, vbNormalFocus)
End Sub

rất cảm ơn bạn nhưng mà vẫn chưa đúng ý mình. mình chỉ cần nó mở thư mục lên và chọn vào tận tin thôi chứ không muốn nó mở luôn tập tin đó lên. thank you

 

[HeSanbi]

Bỏ True, bạn đọc lại chỉ dẫn một lần nữa. Không biết bạn test kiểu gì mà suy ra "chưa đúng ý".

ShowExr "D:\file.pdf"

Chắc phải Code cao siêu hơn nữa chăng.

 

[LamNA]

rất cảm ơn bạn nhưng mà vẫn chưa đúng ý mình. mình chỉ cần nó mở thư mục lên và chọn vào tận tin thôi chứ không muốn nó mở luôn tập tin đó lên. Cảm ơn

Bạn đọc kỹ sẽ giải quyết được, thật ra @HeSanbi viết thêm nhiều lựa chọn sau

Sub test_ShowExr()
  ShowExr "D:\Phieu Giao Hang\Phieu1.PDF"
End Sub
Sub ShowExr( _
  Optional ByVal ToPath$, _
  Optional ByVal Inside As Boolean, _
  Optional ByVal IsMaximize As Boolean)
    ToPath = IIf(ToPath = "", ThisWorkbook.FullName, ToPath)
    Dim str$: str = IIf(Inside, "explorer.exe ", "explorer.exe /select,")
    On Error Resume Next
    Shell str & Chr(34) & ToPath & Chr(34), IIf(IsMaximize, vbMaximizedFocus, vbNormalFocus)
End Sub

 

[namhn_vn]

Bỏ True, bạn đọc lại chỉ dẫn một lần nữa. Không biết bạn test kiểu gì mà suy ra "chưa đúng ý".

ShowExr "D:\file.pdf"

Chắc phải Code cao siêu hơn nữa chăng.

Xin Lỗi vì mình quên không thử bỏ True, cảm ơn bạn nhiều

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

Bạn đọc kỹ sẽ giải quyết được, thật ra @HeSanbi viết thêm nhiều lựa chọn sau

Sub test_ShowExr()
  ShowExr "D:\Phieu Giao Hang\Phieu1.PDF"
End Sub
Sub ShowExr( _
  Optional ByVal ToPath$, _
  Optional ByVal Inside As Boolean, _
  Optional ByVal IsMaximize As Boolean)
    ToPath = IIf(ToPath = "", ThisWorkbook.FullName, ToPath)
    Dim str$: str = IIf(Inside, "explorer.exe ", "explorer.exe /select,")
    On Error Resume Next
    Shell str & Chr(34) & ToPath & Chr(34), IIf(IsMaximize, vbMaximizedFocus, vbNormalFocus)
End Sub

cảm ơn bạn