Skip to content

Instantly share code, notes, and snippets.

@DuongAQ

DuongAQ/ChonMoFileVBA.bas

Created November 12, 2018 09:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DuongAQ/313c1697fb42b2d1e0f6640eb442412b to your computer and use it in GitHub Desktop.
Save DuongAQ/313c1697fb42b2d1e0f6640eb442412b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ChonMoFileVBA.bas
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