Hướng dẫn em cách mờ Window Explorer từ VBA

[nguyendangkhoi]

Nhờ các cao thủ GPE chỉ em cách mở Window Explorer với đường dẫn cho trước.

Em ví dụ : Đường dẫn của em là C:\Window. Khi em nhấn vào nút coman thì hiện cửa sổ Window Explorer với đường dẫn là C:\Window. Nhờ các anh chị

 

[lxthanh8x]

hi,
bạn thử dùng hiperlink xem.

 

[Hai Lúa Miền Tây]

Nhờ các cao thủ GPE chỉ em cách mở Window Explorer với đường dẫn cho trước.

Em ví dụ : Đường dẫn của em là C:\Window. Khi em nhấn vào nút coman thì hiện cửa sổ Window Explorer với đường dẫn là C:\Window. Nhờ các anh chị

Bạn dùng code sau để mở C:\Windows nhé.

Sub OpenWindowsExplorer()
      On Error GoTo 1
      ActiveWorkbook.FollowHyperlink "C:\Windows", NewWindow:=True
      Exit Sub
1:       MsgBox Err.Description
End Sub

Nhân tiện đây tôi giới thiệu luôn cách mở các ứng dụng khác

1) Mở CleanUp Manager:

Sub StartCleanUpManager()
      Const WinXP = "C:\Windows\System32\cleanmgr.exe"
      Const Win98 = "C:\Windows\cleanmgr.exe"
      Dim FileSysObj
      Set FileSysObj = CreateObject("Scripting.FileSystemObject")
      On Error GoTo 1
      If FileSysObj.fileexists(WinXP) Then
            ActiveWorkbook.FollowHyperlink WinXP, NewWindow:=True
            Exit Sub
      ElseIf FileSysObj.fileexists(Win98) Then
            ActiveWorkbook.FollowHyperlink Win98, NewWindow:=True
            Exit Sub
      End If
1:       MsgBox Err.Description
End Sub

2) Chạy Defrag:

Sub StartDefrag()
      Const WinXP = "C:\Windows\System32\Defrag.exe"
      Const Win98 = "C:\Windows\Defrag.exe"
      Dim FileSysObj
      Set FileSysObj = CreateObject("Scripting.FileSystemObject")
      On Error GoTo 1
      If FileSysObj.fileexists(WinXP) Then
            ActiveWorkbook.FollowHyperlink WinXP, NewWindow:=True
            Exit Sub
      ElseIf FileSysObj.fileexists(Win98) Then
            ActiveWorkbook.FollowHyperlink Win98, NewWindow:=True
            Exit Sub
      End If
1:       MsgBox Err.Description
End Sub

3) Mở Word:

Sub OpenWord()
      On Error GoTo 1
      ActiveWorkbook.FollowHyperlink (ActiveWorkbook.Path & "\TestDoc.doc"), NewWindow:=True
      Exit Sub
1:       MsgBox Err.Description
End Sub

4) Mở Access:

Sub OpenDatabase()
      On Error GoTo 1
      ActiveWorkbook.FollowHyperlink ActiveWorkbook.Path & _
                                     "\Testdb.mdb", NewWindow:=True
      Exit Sub
1:       MsgBox Err.Description
End Sub

5) Mở Adobe Acrobat:

Sub OpenPDFdoc()
      MsgBox "Neu nhu ban khong cai phan mem Adobe Acrobat thi se khong mo duoc file nay :o)"
      On Error GoTo 1
      ActiveWorkbook.FollowHyperlink ActiveWorkbook.Path & _
                                     "\AA cover.pdf", NewWindow:=True
      Exit Sub
1:       MsgBox Err.Description
End Sub

6) Mở Web Giải Pháp Excel

Sub OpenWebPage()
      On Error GoTo 1
      ActiveWorkbook.FollowHyperlink & _
 "http://www.giaiphapexcel.com/forum/cmps_index.php", NewWindow:=True
      Exit Sub
1:       MsgBox Err.Description
End Sub

Bạn tham khảo thêm file đính kèm nhé.

Nhớ Giải nén xong rồi vào folder vừa giải nén test thử nhé.
Thân

 

[ndu96081631]

Nhờ các cao thủ GPE chỉ em cách mở Window Explorer với đường dẫn cho trước.

Em ví dụ : Đường dẫn của em là C:\Window. Khi em nhấn vào nút coman thì hiện cửa sổ Window Explorer với đường dẫn là C:\Window. Nhờ các anh chị

Code cho bạn đây:

Sub Test()
  Shell "Explorer.exe /e,  Đường dẩn cho trước", 1
End Sub

Ví dụ: muốn mở Windows Explorer tại đường dẩn C:\Windows thì:

Sub Test()
  Shell "Explorer.exe /e,  C:\Windows", 1
End Sub