Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Let user choose multiple files?
I am looking for an easy way to let users choose
multiple files all at once. Is the built-in FileDialog() function my only choice?? I am curious if there are other options for letting users drag and drop multiple files into a form or dialog box?? Please let me know. Thanks! Robert. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Let user choose multiple files?
hi Robert,
Sub sDialogFilePicker() Dim fd As FileDialog Dim oFile As String Dim sFileName As String Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = True .Show On Error Resume Next If Err.Number < 0 Then Err.Clear: Exit Sub For i = 1 To .SelectedItems.Count Debug.Print .SelectedItems(i) Next End With End Sub isabelle Le 2013-01-30 03:07, Robert Crandal a écrit : I am looking for an easy way to let users choose multiple files all at once. Is the built-in FileDialog() function my only choice?? I am curious if there are other options for letting users drag and drop multiple files into a form or dialog box?? Please let me know. Thanks! Robert. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Let user choose multiple files?
Thank you Isabelle. You're always very helpful! 8)
"isabelle" wrote in message ... hi Robert, Sub sDialogFilePicker() Dim fd As FileDialog Dim oFile As String Dim sFileName As String Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = True .Show On Error Resume Next If Err.Number < 0 Then Err.Clear: Exit Sub For i = 1 To .SelectedItems.Count Debug.Print .SelectedItems(i) Next End With End Sub isabelle Le 2013-01-30 03:07, Robert Crandal a écrit : I am looking for an easy way to let users choose multiple files all at once. Is the built-in FileDialog() function my only choice?? I am curious if there are other options for letting users drag and drop multiple files into a form or dialog box?? Please let me know. Thanks! Robert. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Let user choose multiple files?
"Robert Crandal" wrote:
I am looking for an easy way to let users choose multiple files all at once. I do it this way. Dim fnames As Variant fnames = Application.GetOpenFilename(MultiSelect:=True) If TypeName(fnames) = "Boolean" Then Exit Sub For i = 1 To UBound(fnames) Debug.Print fnames(i) Next i |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Let a user choose a folder? | Excel Programming | |||
dropdownlist- I want user to choose a # but can I add definition | Excel Discussion (Misc queries) | |||
User Input to open multiple files | Excel Programming | |||
ask user to choose | Excel Programming | |||
ask user to choose | Excel Programming |