Access Query With Links To Excel / Export To XML And Back Into Excel
Apr 25, 2013
I am using Excel and Access 2010.
I have an excel spreadsheet with 8 tabs. They are all in the same format and column order. They are employees grouped by region. My ultimate goal is to merge all of these onto one excel tab, relatively instantly. I created a master tab and tried doing array formulas and Vlookups, it worked but my spreadsheet was way too slow.
My solution? Import and link them to an Access database, step complete. Create an XML export then import into Excel.
My problem? The only way to update the excel tab with the combined tabs is to save the excel file after changes, go back into Access, re-export to XML, then go back into excel and refresh the data.
My questions, is there any way to automate this process to the point that I can change excel, save, then hit refresh on my excel tab with the XML import to auto-update?
View Replies
ADVERTISEMENT
Apr 17, 2014
I have a question about the best way to go about linking an excel workbook to an ms access table? I have researched hyperlinks and attachments and ole objects and I am not sure what is the best option. I believe hyperlinks will be best, because the attachments will bloat the database, but I am not sure how to go about doing that in vba? My process is such:
1)Users enter project information
2)Users enter the sample information for each project
3)The project and sample information is combined by a query
4)The user clicks a button to print forms, which runs the query and opens an excel workbook template.
5)The data is exported to a specific sheet in the workbook
6)Using vba in excel, the data is used to populate cells in different sheets depending on critera.
After all of this is accomplished, I need the user to SAVE AS the excel workbook and it needs to be "attached" to the ms access 'project' table. I am not sure what is the best way to link this back to the database. I would like to automate it with vba if possible.
View 1 Replies
View Related
Dec 20, 2005
Hi,
I would like to set up a form in Access that accepts the input of an Excel spreadsheet file (browse for file) and then creates a pivot table on one of the sheets, and appends that data to an Access database table..
can you give me some ideas on how i should approach the problem?
Many thanks :)
View 1 Replies
View Related
Dec 31, 2005
Folks,
I have a form with combo box (cboProjForRptSeltn ) and two command buttons. The combo box is filled with name of the reports. The combo box has two columns, column 1 is the name of the report and column 2 is the bound column which also is the link field (primary key) to limit the records.
When the user selects an item from cbo box and click the "Preview Risk Table" command button it will open a report in preview mode. The report's "Record Source" property is set to a UNION query (qryRprtRskTbl) which pull the records from several tables. The report's "Filter" property is set to the following criteria:
“qryRprtRskTbl.P.intProjectId=Forms!frmReportSelec tionBlrR1!cboProjForRptSeltn”
The above criteria is nothing but filter based on the value of the cbo box.
The click event procedure is as follows:
Private Sub cmdPreviewRprt_Click()
Dim strDocName As String
strDocName = "rptRskTblProjectWise"
DoCmd.OpenReport strDocName, acPreview, "qryRprtRskTblFilter_r1"
End Sub
"qryRprtRskTblFilter_r1" is another query out of the UNION query I mentioned above (qryRprtRskTbl). qryRprtRskTblFilter_r1 is pulling all the records from qryRprtRskTbl which meets the projectID field selected in cbo box, which is also the same as the "Filter" property value of the report as indicated above.
Everything works fine with cbo box and "Preview Risk Table" command button. It just pull all the records for the project selected under cbo box and display it as report in preview mode. Looks great!!
Here's my problem. I wanted to export the same report that was previewed by the user to Excel. For this I am using, another command button called “Export to Excel”. The click event of this procedure is as shown below:
Private Sub cmdExportToExcel_Click()
On Error Resume Next
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlWorkbook As Excel.Workbook
Dim acQuery As QueryDef
Dim objRST As Recordset
Dim strQueryName As String
Dim strSearch As String
'Dim strSQL As String
'strSearch = Me![cboProjForRptSeltn]
strQueryName = "qryRprtRskTblFilter_r1"
'strQueryName = "qryEffcyAllProjtsForRprt"
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWorkbook = xlApp.Workbooks.Add
Set objRST = Application.CurrentDb.OpenRecordset(strQueryName)
'Loop through the fileds collection and make each field name a column heading in Excel
Set xlSheet = xlWorkbook.Sheets(1)
For lvlColumn = 0 To objRST.Fields.Count - 1
xlSheet.Cells(1, lvlColumn + 1).Value = objRST.Fields(lvlColumn).Name
Next
'Change the font to bold for header row
xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, objRST.Fields.Count)).Font.Bold = True
' I have some codes here for formatting Excel cells …
'Send data from Recordset out to Excel
With xlSheet
.Range("A2").CopyFromRecordset objRST
.Name = Left(strQueryName, 31)
End With
Set xlSheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing
End Sub
When I click the command button, it loads an instance of Excel and adds a workbook under the query name "qryRprtRskTblFilter_r1", but no data.
If I use another query say, "qryEffcyAllProjtsForRprt", which has no connection to cbo box value then it is cool, exports all the data to Excel without any problem.
I guess, you folks understand what I am trying to achieve here. Basically, I wanted to give the user some flexibility, either they can view the data as Access report or Export to Excel with same formatting feature and add more later if they want after exporting, as they see on Access report preview.
I have attached some of the query files I have described here. May be I can clarify more down the road, if necessary.
My bottom line question is: why the “qryRprtRskTblFilter_r1” query runs perfectly on Access reports but not when I want to run to export to Excel?
I don’t want to use the TransferSpreadsheet or outputTo method of docmd object, because I wanted to do some formatting before I export to excel.
Any help is greatly appreciated.
Thanks
ShanVel
View 7 Replies
View Related
Jun 21, 2012
How to export a MS Access table or Query to and Excel file and it works great. How to make this code Export multiple table into one Excel file/
here is the Function:
HTML Code:
Sub ExportData_Sheet_Basic()
On Error GoTo ExportData_Error
'DAO objects to get the data
Dim db As DAO.Database
Dim rs As DAO.Recordset
[code]....
View 5 Replies
View Related
May 21, 2015
I have a basic access query (MACs Report Template) that I need to export into multiple excel files based on the 1st field (Plan ID).
Example:
PLAN ID
Number
Amount
Status
AM141
12345
100
Disconnected
AM141
54321
5000
Active
AM142
11122
2000
Disconnected
AM155
22334
500
Disconnected
I need this to create a spreadsheet for each unique PLAN ID. Ideally i want it to export the following:
MACs Report AM141 20150521.xls (both records above should be in this report)
MACs Report AM142 20150521.xls
MACs Report AM155 20150521.xls
View 3 Replies
View Related
Nov 12, 2014
I want to export a query into a specific worksheet in Excel. Have tried DoCmd.TransferSpreadsheet acExport, but it appears you can't specify an existing worksheet or cell range with a query. Some have said tables only. I want to assign this export task to a command button.
The variables are:
Query name = TrainingDataQ
Excel workbook path & name = C:UsersmeDesktop2015AccessExportTest.xlsm
Desired Excel worksheet = RawData
I think thats all you will need to know. The data in the query varies but would be no more than about 500 rows.
Also for the next time i want to run the export, some code to open that same excel file and delete the data in the RawData worksheet so that i can export new data from Access?
View 7 Replies
View Related
Feb 26, 2014
I have an access program that is stored on a SharePoint site. I want to be able to export report to the computer even if I just open the access program as read only. Here's my code:
Code:
Private Sub btnExport_Click()
On Error GoTo btnExport_Click_Err
Dim db As DAO.Database
Dim strSQL As String
Dim qdfTemp As DAO.QueryDef
Dim qryFilter As DAO.QueryDef
[code]...
View 2 Replies
View Related
Oct 21, 2012
how i can export the data from Access to excel using Access VBA for the specified sheet using data linkage with access database. Like we used to do it manually in excel as external data from access.Like we have some codes for linking excel file to database mentioned below;
DoCmd.TransferSpreadsheet acLink, , "region", "F:DB PracticeBook1.xlsx", False, "region"
Can we have something like this to link database table in excel file automatically.So that the excel size won't be that big and also it saves processing time.
View 5 Replies
View Related
Jul 10, 2013
The time difference in access query works very fine in 18:00 (Short Time) format , but when i export to excel it came out with "########" and the value is -0.14679132479
How to solve this problem , i keep trying but it doesn't work ....
View 14 Replies
View Related
Aug 25, 2013
i want to export a table to excel , open this file and execute a macro from another file.
the code i have now is :
Code:
DoCmd.OpenTable "Overzichtaanwezigheid", acViewNormal
DoCmd.RunCommand acCmdExportExcel
DoCmd.Close acTable, "Overzichtaanwezigheid"
Dim XL As Object
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open ("C:UsersErwinDocumentsOverzichtaanwezigheid.xlsx")
XL.Visible = True
XL.Run "d: est.xlsm!Macro3"
Opening the excel file goes ok, running the macro however not.
View 1 Replies
View Related
Nov 23, 2007
What can be the reason ?
i'm doing it through a regular "Import Spreadsheet Wizard", and get a message "an error occured trying to import file"
File is not open. Made a copy under a different name; still can't import..
View 4 Replies
View Related
May 18, 2005
I would like to export a access report to excel. All rows and columns exported correctly except from text fields (missing or change to a strange number). I've also think about to write a vb script to export the result recordset of the report to the excel. But the report is a report of Sales which containing a grand total amount of the group of records. Is there a way to write a script to achieve this (the grand total amount is not include in the recordset)?
Thanks!
View 2 Replies
View Related
Dec 16, 2005
Good morning all,
First, I know there have been a lot of posts on this topic already, and I've printed out several of them to try to help me solve my problem. However, I'm having a problem getting mine to work.
Here's what I want to do, I am trying to export four different queries into one workbook, separate worksheets in Excel. For example, I have qryControl, qryLocal, qryPar and qryNasco. I want to export qryControl into the CONTROL worksheet in General Ledger.xls, qryLocal into the LOCAL worksheet in General Ledger.xls, and so on and so forth. Can this be done?
I started a practice form and added a command button based on some of the information I read before, just to see if I can get a query to transfer period and I ran into some problems. Here is the code I used:
Private Sub Command0_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "qryWorldWideClaims", "C: emp.xls", True
'Create Excel Instance
Dim xlObj As Object
Set xlObj = CreateObject("Excel.Application")
'Open the template file
xlObj.workbooks.Open "C:mytemplatefile.xls"
'Save the template file with another name
xlObj.activeworkbook.savesas "C:mynewfile.xls"
'Open the temp file we exported from Access
xlObj.workbooks.Open "C: emp.xls"
'Select and copy all the data
xlObj.activeworkbook.cells.select
xlObj.activeworkbook.selection.copy
'Re-activate the destination file
xlObj.workbooks("mynewfile.xls").Activate
'Select cell A1 on the first sheet
xlObj.activeworkbook.sheets(1).range("A1").select
'Paste the data
xlObj.activesheet.paste
'Save and close the file
xlObj.activeworkbook.Save
xlObj.activeworkbook.Close
'Close the other file - assumes no other Excel files are open
xlObj.activeworkbook.Save
xlObj.actoveworkbook.Close
xlObj.Quit
Set xlObj = Nothing
End Sub
I get an error message at the following line:
xlobj.activeworkbook.saveas "C:mynewfile.xls"
The error is:
'Runtime Error 438' Object doesn't support this property or method.
Can somebody please tell me if I can export to four different worksheets in the same workbook and also what I need to do to resolve my error.
Thanks every body!
View 2 Replies
View Related
Jul 19, 2005
Dear Access Experts:
I am using Access 2000. I have created a command button on a form that when pressed, it exports a file to Excel using the TransferSpreadsheet command. It exports names, degree type, graduation date starting in cell A1. It works well.
What I wish to do is this: Can I have this data exported starting in cell A5 instead of A1? AND in the export cell A1 will have "College", A2 will have "School" and A3 will have "Dean".
Any help is appreciated.
Regards,
Dion
View 1 Replies
View Related
Oct 26, 2007
Hello all...I'm having a problem when exporting some text from Access 2000/XP to Excel using the EXPORT function. The reason why report is used to export is b'cos I need certain layout & to be ported over to Excel.
Text like '00133484-001' or '00130898-001' will be changed to another number after EXPORT, can anyone help me in this ? How can I set these numbers so that they remain the same ?
View 3 Replies
View Related
Apr 24, 2014
I have 260 access files (12 data tables in each file). I want to extract table with name of "Borrower" and "Ledger Recovery" from DB to excel. The end result i need is to consolidate all 260 tables of "Borrower" in one excel sheet and all 260 tables of "Ledger Recovery" in one excel sheet.
View 1 Replies
View Related
Jul 9, 2013
I am looking to export a table to excel from access. I would like to order the transaction category column in a specific order(round trip air far, parking, lodging etc),. I have a button that runs a make query table and exports it to excel. I would like the rows to be in the order of transactions category. What code would I need in the button to make this order correct?
I have attached some code below.
Private Sub ExportDebitsButton_Click()
Dim oApp As Excel.Application
Dim oWB As Excel.Workbook
Dim i As Integer
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
[code]....
View 1 Replies
View Related
Jul 30, 2006
Hi,
Does anyone know how to export a pivot table to Ms Excel without using the specific button in the Pivot Table View of the form?
Thanks for the help:confused:
View 5 Replies
View Related
Sep 13, 2005
Hello,
I have a table in Access and would like to export it using code into specific fielfs of a template in Excel.
My table has 3 fields:
SSN
FIRSTNAME
LNAME
I would like to export the recorsed to a template named MyTemplate. This template has a workbook named MyWorkbook.
The only problem is that I need to copy the active recorset (meaning the one which I will select) in a column and not into a row.
Example: I will select a record using a combo and then data will be copied from my Table into the cells B1 (ssn), B2 (FIRSTNAME), B3 (LASTNAME)
Any idea or help? Thanks
View 3 Replies
View Related
Oct 11, 2005
Hello, I am here back in the forum because would like some help to define a code.
Meloncolly has already helped me but I think that I have mixed up two pieces of code and cannot find the solution.
I need to export my access data to a document in excel.
I will select the recorset of the data to export, using a combo box on a form named MENU.
The excel file is a template named MASTER. Before the recorset is copied, I need to make a copy of the template via code. The copy will be the document into which copy the data. Once the data is copies, I would like an input box asking users if they would like to save the new excel file and be able to name it with the name they will type in the input box.
My last problem is that the database is used by 20 users and what happens if are all exporting to the template? Will this automatically name itselft, MASTER1, MASTER 2, etc?
This is the code that I am using and tried to put together. It does copy the data into master 1 but leaves the template opened. It also tells me that there is something missing.
THanks:
Private Sub ExportToExcel_Click()
Dim myid
Dim obj As Object
Set obj = GetObject("C: estMaster.xls")
'Dim mypath
obj.Application.Visible = True
obj.Windows(1).Visible = True
obj.Application.ScreenUpdating = False
myid = Me.[MyCombo]
'grab the three field values from the table
Dim mySSN, myFirstname, myLname
mySSN = DLookup("[WESSN]", "[MASTER]", "[id]=" & myid)
myFirstname = DLookup("[WEFN]", "[MASTER]", "[ID]=" & myid)
myLname = DLookup("[WELN]", "[MASTER]", "[ID]=" & myid)
'open excel and the required file
Dim appXL3 As Excel.Application
Dim blnStartXL3 As Boolean
On Error Resume Next
' Check if Excel is already running
Set appXL3 = GetObject(, "Excel.Application")
If appXL3 Is Nothing Then
blnStartXL3 = True
'Else
' We have to start Excel ourselves
Set appXL3 = CreateObject("Excel.Application")
If appXL3 Is Nothing Then
MsgBox "Can't start Excel", vbExclamation
GoTo exit_handler
End If
End If
With appXL3
'.Visible = True
On Error GoTo Err_Handler
'open the excel file
'mypath = "C: estMaster.xls"
'.Workbooks.Open mypath
.ActiveWorkbook.SaveAs "c: estMaster1.xls"
.Sheets("Data").Select
'enter variable values into cells
.Range("B6") = mySSN
.Range("B3") = myFirstname
.Range("B5") = myLname
'do some other stuff
'save the workbook
.ActiveWorkbook.Save
'close it too
.ActiveWorkbook.Close
.ActiveWorkbook.Close
'exit and tidy up
exit_handler:
On Error Resume Next
If blnStartXL3 = True Then
'We must quit Excel
appXL3.Quit
End If
Set appXL3 = Nothing
Exit Sub
Err_Handler:
MsgBox Err.Description, vbExclamation
DoCmd.SetWarnings True
Resume exit_handler
MsgBox "The tables have been successfully exported to " & txtExportFile & "."
Exit Sub
End With
End Sub
View 3 Replies
View Related
May 5, 2013
i have access 2013 and when i try to export data to excel with "Analyze data in excel" when the file is open i excel i get this error message file error: some data may have been lost". (and a whole row has not been export)
i tried to fix this file with excel open and repair option and i click on "extract data" but then i got this message;
Excel attempted to recover your formulas and values, but some data may have been lost or corrupted.
Excel found errors that may cause some recovered data to be put in the wrong cells.
View 10 Replies
View Related
Oct 27, 2013
It only happens once in a while a few times in a row and then, without changing anything, it's all fine again. It does happen on other pcs as well. (It happens on Office10 and Office13)
I'm not exporting tons of data to excel just two normal-sized querys.
This is some of the VBA code:
Code:
Set qdf = CurrentDb.CreateQueryDef(tmpAbfrageLehrgaenge, SQL_Lehrgaenge)
Set qdf2 = CurrentDb.CreateQueryDef(tmpAbfrageKunde, SQL_Kunde)
DoCmd.TransferSpreadsheet acExport, , tmpAbfrageLehrgaenge, ExcelDateiName, True
[Code]......
View 5 Replies
View Related
Sep 3, 2013
I've got a table with data about a contract. Each contract has his own ID. For each contract i have Information from SAP, Information from a System called geris and a System called pauschale. No I would like to Export that to Excel. With VBA, I would like to transfer the data for each ID to each spreadsheet.
View 6 Replies
View Related
Jun 22, 2014
I have Query call "export to excel" these are columns in my query
employee id
total ex
date of ex
first name
surname
which I would like to export to excel file name "access data"
columns in excel
A
employee id
b
total ex
c
date of ex
d
first name
e
surname
now my problem is I cant manage to export the data to existing sheet within excel when I export it opens the existing file but create a new sheet / tab but I just want to delete the data in columns A,B,C,D only refresh the data in these columns when the user hits the command button in access on my form and takes the data from my query
View 14 Replies
View Related
May 16, 2013
I have a TEXT field in a report which contents "0" at begin (ex. 01234). When export the Report to excel file, the digit "0" deleted automatically.
View 2 Replies
View Related
