Open file from current Directory

[mathanraj76]

Hi..
I need help

I have a folder and inside this folder i have ms database and with all excel file which need to import into access database table



So what i want to do here is when i click the command button then ms access will upload the excel file into table from the current folder even though i move the whole folder into another computer..
still ms access able to upload the data from the current folder..

Thanks
Mraj

[ItsMe]

You can use the wizard to create an import procedure and save the procedure with a name. With that you can call the name using Docmd.

Here is some code I use to loop through a folder on a server and grab all of the text files it can find. It imports the text files using the procedure I created using the wizard. The name I gave the procedure is "CustomSpec". If your files are .txt or .CSV then DoCmd.TransferText will work. Otherwise you will need something like DoCmd.TransferSpreadsheet acImport.

Dim strFilename As String
Dim strPath As String

strPath = "\\ServerName\FolderName\"
strFilename = Dir(strPath + "*.txt", vbHidden) 'gets first txt file in path specified
Do While strFilename <> ""   'will cause to loop through all txt files in path
DoCmd.TransferText acImportFixed, "CustomSpec", _
"tblImportStuff", strPath & strFilename, 0
Kill strPath & strFilename
strFilename = Dir   'grabs next txt file
Loop

[mathanraj76]

I'm not using server but using desktop pc..
The whole folder is on my pc desktop and if i copy this folder and put into another pc desktop
still the ms access able to import the excel files from the current folder into table..

Thanks
Mraj

[ItsMe]

If it is networked, you can place the PC name or its IP in place of "ServerName". Maybe you can start by using the wizard to import a single file on your PC. Once you have that you can take more steps towards your ultimate goal.