Search results for query: Filedialog

...code really has the double quotes and forward slashes then you've copied it incorrectly and it won't compile. It should read Dim F As FileDialog Set F = Application.FileDialog(msoFileDialogFilePicker) BTW it would help others help you if you had provided a link. Obviously I know my...

Hi. I could be wrong, but I think a FileDialog can only have Open/Cancel or Save/Cancel. What exactly are you trying to accomplish? You may have to do it in steps.

...at the destination? Option Compare Database Private Sub Command37_Click() Dim FileSelection As Object Set FileSelection = Application.FileDialog(3) Dim varFile As Variant Dim newFCL As String With FileSelection .AllowMultiSelect = False .Title = "Please Select a Figure." .InitialFileName...

You could do a forum or web search for FileDialog. The code is widely used and easy to understand. Here's another thread on the same topic that I answered recently https://www.access-programmers.co.uk/forums/showthread.php?t=308879&highlight=Filedialog It includes an example app with code you...

where? how? :) Please

That's pretty cool. not exactly sure it would be usefull here. When a new project is started, the system creates a set of Folders and Subfolders for that project. It then creates a linked record to each subfolder. that way it the project manager has direct access to that folder. 95% percent...

I don't have any more time tonight so will leave you to check what I uploaded. Do a forum or web search for FileDialog. The code is widely used and easy to understand. Here's another thread on the same topic I answered recently...

...Private Sub cmdSelectFiles2_Click() ' Make sure under Tools Reference- Microsoft Office 15.0 or 16.0 Object Library is checked Dim fd As FileDialog Dim item As Variant Set fd = Application.FileDialog(msoFileDialogOpen) With fd .AllowMultiSelect = False .Title = "Please select an Excel...

...and readability. If you want user to select only one folder, then AllowMultiSelect must be =False. Dim sFolder As String Dim fd As FileDialog Dim strFile As String Dim booResult As Boolean Set fd = Application.FileDialog(msoFileDialogFolderPicker) fd.AllowMultiSelect = False fd.Title =...

...my long text as is . Public Function Import() DoCmd.SetWarnings False Dim td As TableDef Dim db As DAO.Database Dim Name As String 'FileDialog Set f = Application.FileDialog(3) 'msoFileDialogFilePicker With f .InitialFileName = Application.CurrentProject.Path & "\" .Show Dim...

yes, just give me a step by step proceedure on it (open/cancel ) but if is possible to add save to it

So I am looking for VBA code to allow me to select a file using filedialog Dim dlg As FileDialog Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg .Title = "Select the Excel file to import" .AllowMultiSelect = False .Filters.Clear .Filters.Add "Excel Files", "*.xlsx", 1...

...Sub LoopAllExcelFilesInFolder() Dim wb As Workbook Dim myPath As String Dim myFile As String Dim myExtension As String Dim FldrPicker As FileDialog 'Retrieve Target Folder Path From User Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title...

...on how I can make a file default on form open. Here is my 'on click' event for my button: Private Sub cmdBrowse_Click() Dim file As FileDialog Set file = Application.FileDialog(msoFileDialogFilePicker) file.AllowMultiSelect = False If file.Show Then...

...input new items to be added to the database. On the screen the is 6 image objects, each with a unique name such as image1 to 6. I use a fileDialog window for the user to pick which image individually to be assigned to the relevant image object. AS the will be a few hundred thousand images...

...really understand the second question. This has been discussed here.... https://www.access-programmers.co.uk/forums/threads/filter-in-msofiledialogsaveas.283645/ And here.... https://www.access-programmers.co.uk/forums/threads/filters-for-save-as-filedialog-probably-revisited.203721/...

...try. Public Function ImportXL() As Boolean 'thedbguy@gmail.com '10/9/2020 Dim fd As Object Dim strFile As String Set fd = Application.FileDialog(3) With fd .AllowMultiSelect = False .Filters.Clear .Filters.Add "Excel Files", "*.xls*" If .Show Then strFile =...

You probably need to set a reference to the correct library for the FileDialog.? Do you compile your code?, as that would normally tell you it knows nothing about an object which means you need to add the correct reference.? A quick google shows...

could this be used to select a folder too?

Hi. Check out the FileDialog object and try to use the Folder Picker.