Xin chào các anh chị GPE. Em dùng code này để hiện FileDialog
Em muốn các anh chị giúp em khi dùng code này thì FileDialog mở ra sẽ đi đến địa chỉ của Folder của lần mở gần nhất (Giống khi tải file trên internet về máy tính, nó sẽ hiện ra địa chỉ Folder mở gần nhất).
Em xin chân thành cảm ơn !
Mã:
Sub Test()
Dim fldr, xlApp
Dim foldername
On Error Resume Next
Set xlApp = CreateObject("Excel.Application")
Set fldr = xlApp.FileDialog(4)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = msoFileDialogViewList
If .Show = -1 Then foldername = .SelectedItems(1)
End With
Set fldr = Nothing
End Sub
Em xin chân thành cảm ơn !