Skip to content

Instantly share code, notes, and snippets.

@DuongAQ
Created November 12, 2018 09:08
Show Gist options
  • Save DuongAQ/313c1697fb42b2d1e0f6640eb442412b to your computer and use it in GitHub Desktop.
Save DuongAQ/313c1697fb42b2d1e0f6640eb442412b to your computer and use it in GitHub Desktop.
Sub ChonMoFileVBA()
Dim TenFile As Long
'Mo thuoc tinh File Open
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show
' Hien thi duong dan cua file duoc chon
For TenFile = 1 To .SelectedItems.Count
MsgBox .SelectedItems(TenFile)
Next TenFile
End With
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment