iMPORTING DATA FROM EXCEL TO ACCESS

[Rameez]

I am importing a table from excel to access. It works fine...but my code has certain limitations. I am a novice in Access and Please for God sake help me out...My queries are.
1. I am hardcoding the name of the mdb file in my vba code.so if someone changes its name, it won't work. can u plz specify what I can add instead of the code below.
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.Path & "\Tool.mdb;"
tool.mdb is the hardcoding...how to remove it...?????
2. I am hardcoding the location, where the excel file to be uploaded is present. so my list box populates only excel files from that location. If i want some kind of open folder icon, so that the user can select file anywhere in the computer and populate the list box with it...
strLocation = "C:\mdrr\"
Call FillList(ctl, strLocation)


I don't want to hardcode the location...the listbox should populated excel files from any location, the user choses from a open folder icon.

PLEASE HELP ME OUT....

[RuralGuy]

I use this API to dynamically locate and select a file.

[Rameez]

I saw it in one of ur previous posts....but when i used it...some error is propping up with ahtAddFilterItem "ahtAddFilterItem"

Thanks for prompt reply...

[RuralGuy]

Did you import everything from START CODE to END CODE? in that link? It should be in a separate module of its own and name the module basFunc for now.

[Rameez]

Thanks Rural Guy...It worked perfectly...i missed a few things when I first checked it....



In the msgbox the location C:\ is hardcoded...

MsgBox "You selected: " & ahtCommonFileOpenSave(InitialDir:="C:\", _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Hello! Open Me!")

will this mean if i select from another drive...say D:\ it won't work...???

[RuralGuy]

It should work just fine. It just starts on "C:\" but you can move anywhere you want.

[Rameez]

oh Thanks...

I didn't have another drive on my machine...so just asked you...thanks a lot....

[RuralGuy]

You're welcome. Glad you got everything sorted. Thanks for marking this thread as Solved as well.