• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 738
  • Last Modified:

msaccess VBA import file path - must it be physical path?

Hi all, here's a straighforward question.

I've got a form in Access 2000, with a command button, on a Windows machine.

Click the buttton and an Excel spreadsheet is imported.

My question: Do I HAVE to use a physical path? Can I not use a relative path?

When I use no path at all -only the name of the Excel file-, and simply place the Excel file in the same directory as the Access file, Access searches the MyDocuments folder for the Excel file.

Right now the code to import the spreadsheet is:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblMyTable", "C:\data\MyFile.xls", True

Why doesn't this work:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblMyTable", "MyFile.xls", True ?
0
tom_burkhardt
Asked:
tom_burkhardt
  • 3
  • 2
  • 2
  • +1
2 Solutions
 
jefftwilleyCommented:
>>Access searches the MyDocuments folder for the Excel file.

What makes you say that?

When Access is installed, you are asked what to use for a default file location. This is of course as you've already found, not the same as the "relative" path.

To answer your question directly, yes...you can use the relative path, but you will need to determine what the setting is for your App. OTherwise, use the DB's current directory.
J
0
 
jerryb30Commented:
it probably does work, but you expect to see it where  it isn't.
".\MyFile.xls"
will put it in current working path, which may not be database path.

add this to top of code:
Dim strpath As String
strpath = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\") )
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblMyTable", strpath & "myfile.xls" ,true


0
 
jerryb30Commented:
debug.print curdir will give default location Jeff mentioned.
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
tom_burkhardtAuthor Commented:
thanks to both of you for the quick response!

Jeff, when I saw your answer of course I did a "Doh!" forehead slap.

JerryB30, thanks for the code, much appreciated, and it works beautifully. Now I have to look up InStrRev(). That's a new one to me, I've only been exposed to InStr().

 I increased the pointage to give Jeff 50 for making me think, and JerryB an extra 50 because he gave me a working code example I hadn't asked for.
0
 
jerryb30Commented:
instrrev:New since Access 2000. Especially useful for extracting a full path when given a path\filename.
I personally change  my default location in Tools-Options-General to ".\"
Then I can easily invoke it when doing imports, exports. But being able to find currentdb path dynamically is more flexible.

Thanks.
Welcome back Jeff.
0
 
jefftwilleyCommented:
Thanks Jerry, good to be back! and...Glad it's sorted out Tom. Love these quick and informative ones :o)
J
0
 
genaughtonCommented:
>When I use no path at all -only the name of the Excel file-, and simply place the >Excel file in the same directory as the Access file, Access searches the >MyDocuments folder for the Excel file.

I assume it's using the value from the Tools\Options menu, under the General tab -- the "Default database folder:" setting.

When I'm designing forms where I'm dealing with outside files, I use an unbound textbox (i.e., txtFileLocation) that you can populate via a command button with the GetOpenFile routine attached to it's OnClick event.  That code's available at my SECOND favorite Access site:

http://www.mvps.org/access/api/api0001.htm

Then you use:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblMyTable", Me!txtFileLocation, True

Regards,
JN
0
 
tom_burkhardtAuthor Commented:
holy smokes, you guys ...  just checked my email and saw all these notifications from EE. Thank you so much not only for your help, but the generous spirit it was given in! Very much appreciated. Always love learning something new. I've been self-taught in VBA, VBScript/ASP, Access and MySQL since an early retirement a few years ago, and there's a real satisfaction when the old grey cells light up in understanding a new concept (rare yet satisfying).

I like that suggestion to make my default location in Tools-Options-General to ".\"  They say the sign of true genius is the ability to see the obvious! That had simply never occured to me.

And genaughton, thanks, I've bookmarked that site. The more resources the better, and I'm never ashamed to ask for help.

Thanks again, all.
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
  • 2
  • 2
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now