Blockchain technology has already revolutionized finance thanks to Bitcoin. Now it's disrupting other areas, including the realm of data protection. Learn how blockchain is now being used to authenticate backup files and keep them safe from hackers.
COURSE of the MONTH
10 days, 13 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Access VBA Browse Function
Posted on 2011-09-08
I have used this code hundreds of times -- for some reason when I browse no files appear for selection. I verified that the folder contains spreadsheets and other files. Any ideas?
Thanks.
Thanks.
Public Function BrowseForFile()
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Dim strLinkToFile As String
strLinkToFile = ""
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.Title = "Browse for Spreadsheet"
.Filters.Clear
.Filters.Add "Spreadsheets", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
strLinkToFile = varFile
LinkExcelSpreadsheet (strLinkToFile)
Next
Else
Exit Function
End If
End With
End Function
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
6-
6
3- +2
18 Comments
Active today
It works perfectly for me.
However, it DOES filter things down to only .XLS files.
If this is not your intent, then remove this line:
>>> .Filters.Add "Spreadsheets", "*.xls"
However, it DOES filter things down to only .XLS files.
If this is not your intent, then remove this line:
>>> .Filters.Add "Spreadsheets", "*.xls"
Active today
try doing a compact and repair
from VBA window do a DEBUG > Compile
correct any errors raised
your code looks ok
from VBA window do a DEBUG > Compile
correct any errors raised
your code looks ok
Works fine here.
I suggest you copy the code to a new module and delete it from its current module and then compile and try again.
I suggest you copy the code to a new module and delete it from its current module and then compile and try again.
Active today
Just a thought...
Are your spreadsheets .xls files or .xlsx ?
Again, your code flters to exclude files other than .xls files.
If you don't have any .xls files, your code will cause the browse window to display exactly what you described (folders only).
Are your spreadsheets .xls files or .xlsx ?
Again, your code flters to exclude files other than .xls files.
If you don't have any .xls files, your code will cause the browse window to display exactly what you described (folders only).
Active today
What happens if you manually remove the "Temp" from the filename box in the file dialog?
(I'm not sure where the code you posted would be getting 'Temp')
(I'm not sure where the code you posted would be getting 'Temp')
Active today
are you sure you are on the same path as the one which shows the .xls file?
click on the Look In drop down to verify..
also try to browse other directories..
click on the Look In drop down to verify..
also try to browse other directories..
I'll agree with @mbizup.
How and why you are getting TEMP in the filename box is what's queering it up.
Manually clear that, and move up a level / down a level and you should be good.
But now, where is TEMP coming from?
It's not from the code
How and why you are getting TEMP in the filename box is what's queering it up.
Manually clear that, and move up a level / down a level and you should be good.
But now, where is TEMP coming from?
It's not from the code
Active today
Explaining my comment at http:#a36503972... according to the picture you posted, it is looking for Temp.xls, and from the lower image it is not there.
If you remove the 'Temp' from the filename box, it should show all .xls files.
If you manually remove 'Temp' from the filename box, you'll have to click outside of the filename box for that change to be reflected in the filtered files.
If you remove the 'Temp' from the filename box, it should show all .xls files.
If you manually remove 'Temp' from the filename box, you'll have to click outside of the filename box for that change to be reflected in the filtered files.
Active today
<Where is that "Temp" coming from??? >
That's the mystery!
It does not look like it is coming from the code you posted.
Is the code in your original post *exactly* (a copy/paste of) what you have in this part of your database?
If you post your database (remove any sensitive data), we can take a look and see if it might be coming from somewhere else in your database...
That's the mystery!
It does not look like it is coming from the code you posted.
Is the code in your original post *exactly* (a copy/paste of) what you have in this part of your database?
If you post your database (remove any sensitive data), we can take a look and see if it might be coming from somewhere else in your database...
Active today
Or just a database file with just the form, code, etc necessary to illustrate this issue.
As a stopgap --since we don't know where TEMP is coming from -- you could force it to not have an initial value
Public Function BrowseForFile()
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Dim strLinkToFile As String
strLinkToFile = ""
Set fDialog = Application.FileDialog(mso
With fDialog
.AllowMultiSelect = False
.Title = "Browse for Spreadsheet"
.InitialFileName =""
.Filters.Clear
.Filters.Add "Spreadsheets", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
strLinkToFile = varFile
LinkExcelSpreadsheet (strLinkToFile)
Next
Else
Exit Function
End If
End With
End Function
Public Function BrowseForFile()
Dim fDialog As Office.FileDialog
Dim varFile As Variant
Dim strLinkToFile As String
strLinkToFile = ""
Set fDialog = Application.FileDialog(mso
With fDialog
.AllowMultiSelect = False
.Title = "Browse for Spreadsheet"
.InitialFileName =""
.Filters.Clear
.Filters.Add "Spreadsheets", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
strLinkToFile = varFile
LinkExcelSpreadsheet (strLinkToFile)
Next
Else
Exit Function
End If
End With
End Function
Active 2 days ago
Code is exact. The only thing named Temp is a temp table. Why that'd make a difference is odd.
I haven't tied the code to any form yet -- just working in a module right now.
I searched for "TEMP" in the code, and it's nowhere to be found.
I wonder if it's some Windows thing??
I haven't tied the code to any form yet -- just working in a module right now.
I searched for "TEMP" in the code, and it's nowhere to be found.
I wonder if it's some Windows thing??
It is weird that it puts TEMP in there unless you forced it to have nothing.
And that this is the only instance where the code does so.
But if you got it going, great
Going forward, I'd maybe change this line
.Filters.Add "Spreadsheets", "*.xls"
to
.Filters.Add "Spreadsheets", "*.xls*"
That way you cover xls, xlsm, and xlsx files
Sooner or later those are going to start showing up in your operation!
:)
And that this is the only instance where the code does so.
But if you got it going, great
Going forward, I'd maybe change this line
.Filters.Add "Spreadsheets", "*.xls"
to
.Filters.Add "Spreadsheets", "*.xls*"
That way you cover xls, xlsm, and xlsx files
Sooner or later those are going to start showing up in your operation!
:)
Featured Post
Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening. This article shows how to create and use them.
This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Suggested Courses
Course of the Month10 days, 13 hours left to enroll
765 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.