I would like to select multiple documents and upload them. These bunch of documents would all be like to a Document.Id etc.
Files: https://drive.google.com/file/d/1aC-...ew?usp=sharing
I would like to select multiple documents and upload them. These bunch of documents would all be like to a Document.Id etc.
Files: https://drive.google.com/file/d/1aC-...ew?usp=sharing
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba
What if you do something like specify the folder path that contains the documents you want to choose from, read those into a collection or similar, and then populate a multi-select listbox with the choices? Then you can select individual ones and use the .ItemsSelected collection of the listbox to process them one at a time (do whatever "loading" is... you'd just pass each file to some function/sub to do that).
Have you had a look at my DB? It is suppose to select multiple files with one click and read the file names and location into a table.
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba
I believe he is talking about selecting multiple files with the filedialog FilePicker
Code:Sub UseFileDialog() Dim lngCount As Long ' Open the file dialog With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show ' Display paths of each file selected For lngCount = 1 To .SelectedItems.Count MsgBox .SelectedItems(lngCount) Next lngCount End With End Sub
If this helped, please click the star * at the bottom left and add to my reputation- Thanks
That is what I thought, and the link explained how.I believe he is talking about selecting multiple files with the filedialog FilePicker
Code:Sub UseFileDialog() Dim lngCount As Long ' Open the file dialog With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Show ' Display paths of each file selected For lngCount = 1 To .SelectedItems.Count MsgBox .SelectedItems(lngCount) Next lngCount End With End Sub
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba