Tạo đường dẫn mặc định khi open

[anktdn]

Em thử tạo đường dẫn mặc định là ổ D:\KETOAN EXCEL\ nhưng vẫn không hiện ra đường dẫn mặc định, mà chỉ hiện ra đường dẫn bất kỳ khi mình chọn, nhờ các cao thủ giúp em sữa đoạn code trong TH này. Em cảm ơn.

Sub Opener()
On Error Resume Next
Dim Dialogs As String
Dialogs = "D:\KETOAN EXCEL\"
      Application.Dialogs(xlDialogOpen).Show
      Application.ActiveWindow.Caption = ActiveWorkbook.FullName
      
   End Sub

Sub

 

[Châu Bá Thông]

Các hạ không cần code dài vậy đâu. Chỉ 1 chiêu là đủ:

Sub Opener() 
Application.Dialogs(xlDialogOpen).Show "D:\KETOAN EXCEL\"
End Sub

 

[anktdn]

Cảm ơn Châu Bá Thông, tui khoái ông Châu Bá Thông này trong phim TĐĐH , chắc CBT cũng có nét gì đó hao hao nhỉ ! Thân .