Solved

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

Posted on 2013-12-22
7
4,494 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
0
Comment
Question by:mdstalla
[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
  • 3
  • 2
  • 2
7 Comments
 
LVL 30

Accepted Solution

by:
hnasr earned 500 total points
ID: 39735243
Try: This command for Office 2013.

Excel file: D:\xl.xlsx
Use sheet names not present in workbook.

CurrentDb.Execute "SELECT * INTO [Excel 12.0;DATABASE=" _
    & "D:\xl.xlsx" & "].[" & "InputT1" & "] FROM [" & "InputT1" & "]"

Repeat for other tables.

Access reported error when appending.

Check database.
Big-Test-1.accdb
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 39735415
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
0
 

Author Comment

by:mdstalla
ID: 39737223
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!
0
Does Your Cloud Backup Use Blockchain Technology?

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.

 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 39737299
@ mdstalla

what did not work ? what is the problem?
0
 
LVL 30

Expert Comment

by:hnasr
ID: 39737332
Try this version:
Added code to delete previous sheets.
Big-Test-2.accdb
0
 

Author Comment

by:mdstalla
ID: 39737335
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.
0
 
LVL 30

Expert Comment

by:hnasr
ID: 39737490
For the new requirement, you need to start a new question.
0

Featured Post

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
This article describes how to import an Outlook PST file to Office 365 using a third party product to avoid Microsoft's Azure command line tool, saving you time.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Suggested Courses

626 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question