We help IT Professionals succeed at work.

MS Access 2013:  Export Multiple Access Tables to Same Excel Spreadsheet (Multiple Sheets)

6,018 Views
Last Modified: 2013-12-24
MS Access 2013:  I have a database with 6 tables.  It would be very useful to me if I could get a code that, upon the click of a Control Button (Command15), would automatically export each of these tables to an MS Excel Spreadsheet (each Table is placed into a separate sheet).  Attached is my Database and the 6 tables I would like exported are:

InputT1
InputT2
SentenceOptionT1
SentenceOptionT2
NotesT1
NotesT2

The Excel Spreadsheet (Path) is:  
C:\Users\Matt\Desktop\Access Table Dump.xlsx

Can anyone help with this one?
Big-Test.accdb
Comment
Watch Question

Retired IT Professional
CERTIFIED EXPERT
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
CERTIFIED EXPERT
Top Expert 2016

Commented:
using a click event of a button

private sub cdmExport_click()

docmd.transferspreadsheet acexport,10, "InputT1", "C:\Users\Matt\Desktop\Access Table Dump.xlsx", True, "InputT1"

docmd.transferspreadsheet acexport,10, "InputT2", "C:\Users\Matt\Desktop\Access Table Dump.xlsx", True, "InputT2"

docmd.transferspreadsheet acexport,10, "SentenceOptionT1", "C:\Users\Matt\Desktop\Access Table Dump.xlsx", True, "SentenceOptionT1"

docmd.transferspreadsheet acexport,10, "SentenceOptionT2", "C:\Users\Matt\Desktop\Access Table Dump.xlsx", True, "SentenceOptionT2"

docmd.transferspreadsheet acexport,10, "NotesT1", "C:\Users\Matt\Desktop\Access Table Dump.xlsx", True, "NotesT1"

docmd.transferspreadsheet acexport,10, "NotesT2", "C:\Users\Matt\Desktop\Access Table Dump.xlsx", True, "NotesT2"


end sub

Author

Commented:
Capricorn1.  Your codes did not work.

Hnasr:  You codes worked-- however, I would like it if every time Access Exports data to that Spreadsheet, it replaces any/all data that my already exist (say, from a previous export).

Could you take a look at it and adjust your coding?  You are the MAN!
CERTIFIED EXPERT
Top Expert 2016

Commented:
@ mdstalla

what did not work ? what is the problem?
Hamed NasrRetired IT Professional
CERTIFIED EXPERT

Commented:
Try this version:
Added code to delete previous sheets.
Big-Test-2.accdb

Author

Commented:
I don't know... I plugged them in, hit the Control Button, opened the Spreadsheet and; Nada!

Regardless, it ends up that there's some refining to do with the ultimate function I had in mind.  If you've got time and are willing to put up with me; let me ask you this question (related):

I'd still like to do what you were helping me out with before… only, the sheets within Excel cannot be brand new every time.  My spreadsheet (and its sheets) are already made, and any Access exports to them should only re-write data, not create entirely new spreadsheets.

Now here's the real kicker:  Upon exporting from Access to Excel, I would like the layout of Column’s and Rows to be reversed.  Example:  Records exported from Access that would normally be displayed as Column’s:  'A, B, C and D etc.' should show up as Rows in Excel: 1, 2, 3 and 4, etc.
Buddy, if you can give me direction on how to do this; I will give you accolades for the next 3 weeks straight!  Shit, I’ll Western Union you $50!

Thanks.
Hamed NasrRetired IT Professional
CERTIFIED EXPERT

Commented:
For the new requirement, you need to start a new question.

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.