Modules & VBA :: Export Table / Query To Specific Location
Jun 25, 2015
I am trying to export a query or table to a location that the user selects. So each time the export button is clicked the folder will change. But I want to be able to select the folder.
The code I have below is saving but not to the folder I want it to.
Private Sub CommandBtn_Click()
Dim fileSelection As Object
Dim strPath As String
Set fileSelection = Application.FileDialog(4)
With fileSelection
.AllowMultiSelect = False
If .Show = True Then
In an Access 2010 form is it possible to export select records and fields in those records to a specific location?
Code: Set objDialog = Application.FileDialog(4) With objDialog .AllowMultiSelect = False .Title = "Please select a File" .InitialFilename = "C:" .Show If .SelectedItems.Count = 0 Then MsgBox ("Action Cancelled") Else
[code]....
The user can select the directory using the code above, but can specific fields in records be exported to a excel workbook in that selected directory?For example, if the are 5 records in the database can the fields LastName,FirstName,BirthDate in records 1,2,3 be exported to Setup.xlsx in that selected directory?
What I'm stuck on is the filepath. The file path changes everytime. So I would like to have either the open dialog box (I've tried many different versions that I found on the web.) or to search by the account name for the folder and place the text file in there.
Here is one that is closely working how I want it to:
This is a function that I found, that opens a dialog box for the user to select the folder location. It works, but I can't seem to get it to work properly.
It prompts, the location, then once you select it and press ok. It will add the folder name to the full file name, and place the file in the default root path. Not the selected folder path.
So in the end it will look like this:
D:1_MainMyFolderName_MyTextFileName.txt
I'm somehow stuck on getting to seperate the file path from the file name, so you it look like this:
D:1_MainMyFolderNameMyTextFileName.txt
Code:
Dim MSg As String Dim SelectedDir As String Dim SelectedDirFinal As String Dim SelectedDirName As String Dim StrFolder As String
[Code] ....
I think it should be something very easy, that I just need a pair of fresh eyes to look.
I've tried the Fileobject, FileFolder method, but can't get the quite work properly.
I need some simple code that will copy an Excel file or a table in Access to a specific location on an FTP server. I would think this would be a very simple task, but I have yet to find any sample code that is *simple*. I have seen lots of code that requires downloading this dll or that mda, but the examples don't work. There must be something built into MS Access 2010 that will allow a file to be uploaded to an FTP site.
All the variables are known:
The FTP location (it never changes) The FTP Username and Password (they never change) The destination folder on the FTP site (it never changes) The File type (it never changes) The File name (available from the form in Access from which this will be executed)
I can either produce an output file, then copy it to the FTP site, or I can export the table directly to the FTP site with the file name for that day.
This seems to be a very simple task with no simple solution. Currently I am using an FTP app to get the file to the FTP site, but I would like to automate this. The process that creates the output file is already automated, so I would just like to add this to the existing code as its own module.
just made all that above up and none of it is a real function/command in VBA, but is just the kind of thing I'm looking for.
I would think that since I can download and XML file from an FTP site that it should be child's play to upload a simple file to an FTP site, but I can't figure it out.
Im trying to export a query to specific columns in excel and im using this code.
Code:
Dim objXL As Object Dim xlWB As Object Dim xlWS As Object
[Code].....
I tried it on other querys and it works but doesn't work on this specific one. I get an error on the "set rst = currentDb" line. And to my knowledge it doesn't work because I have a between two dates filter in it. So when I run it, I get an error saying I have too few parameters, expecting 2.
Also it seems to be exporting the lookup id's not the value when exporting(on the query that it did work on)
I have a form with a list of names. When a specific name is selected from the list, a button is clicked and a query is run with the specific name as the criteria/filter.
I've written code to export these same query results to an Excel sheet, and I want the Excel file name saved with the name selected in the form.
Below is the code that I've written that doesn't work.
In VBA I have set a timer on a form to run a query and export to a specific folder as an excel file.
If I open the database as 'File Open' and open the form and let the timer run it exports perfectly.
As soon as I put the database into runtime - the Timer code kicks in and starts running but as soon as it hits the export line. It stops and then does nothing
I am trying to create a button on an access form that will prompt the user to enter a search month and then export to excel all records in that database that match that month.
So, if the user prompt "what month" is October, then THE 30 records in the field [receivedate] that are in october (10/XX/XXXX) are exported to excel.
So I press a button on my Form1 and my tbl_customers table is exported onto a specific sheet in a templated Excel file "customer-template" that I have created.
This file has formulas on another sheet that based on the imported data.
The file is then saved to a specific location C:AccessCustomersHistory with the file name based on a date that was criteria from my original form E.g. "customers 11-02-15"
I am trying to export a table in access based on a unique field called Group_Name. Say my table has 100 records. 10 of those records belong to Group1, 10 belong to Group 2, and so on. What I want to do is export those groups individually to an excel file and have that file named somting like Group1_Premium Detail Report.
Here is the Code I have so far. I have a feeling I am close. When I run the code it does not seem to like strrsql2
Dim strsql As String Dim strsql2 As String Dim strfilename As String Dim strpath As String strpath = "C:UsersDesktopHome"
For instance, first table export to EXCEL CELL A1 and then second table export to the same EXCEL but to CELL A5! I simply do not know the sytax to tell ACCESS to do the correct export!
e.g. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "EXPORTDATA", "c:EXCELSHEET.xls", True
what I would like to do if possible is for this to look at the first line in the table but I want to use this part of the code for 4 or 5 different paths Is it possible to modify the code so when I use it 5 times each code looks at different lines in the table
I have successfully put together some VBA code that will accept a user's input into a textbox on a form. A cmdFindprinter button is clicked and the query is ran. The user is asked via an inputbox for their login ID so that the query is exported to a text file on the desktop. The query then pops up in a new tab and also automatically exports the queried record to a text file on the desktop. I have upward of 30 users using this form at any given time and I need the following automated.
What I would like to do is to have the text file go into a specific format. For example:
IP address: Serial number: Location:
The name of one of the queries is "Xerox IP Query", the field names would be "IP Address", "SerialNumber", and "Site Name".
This is what comes up in the text file right now:
"CXF345946","157.229.243.58","123 Happy Ave"
I'd like to remove the quotes and have the info fall into place as shown in the example above.
This is the code so far:
Code: Private Sub cmdFindprinter_Click() On Error GoTo cmdFindprinter_Click_Err Dim strPath As String userNT = InputBox("Please enter your NT ID", "ServiceBase Xerox Printer Query", "Enter your NT ID") strPath = "C:Users" & userNT & "DesktopPrinterQuery.txt" If Heading = 0 Then Exit Sub
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?
I am after a script to change the linked table paths like the following.
It will only ever be the path that is changing not the file name and only ever linked tables
Code: for each table in tabledefs if table.path = c:Testing* then table.path = w:Testingfilename if table.path = c:Jobs* then table.path = w:Jobsfilename if table.path = c:Quotes* then table.path = w:QuotesNewfilename next table
would someone please tell me if it is possible to locate the form in a specific location on screen, e.g. starting from top left corner or basically have the form open in centre of screen?!
I have created my database in Access and now trying to make the forms appear on screen as neet as possible. I have a main form which is on screen all the time and it should cover the whole screen. I have set the size of the form but everytime i open it it doesnt cover the screen as it does not start from the top left corner!
i also have a few pop up forms which i want them to appear in the middle of screen. how can i do this?!!!
i would appreciate any help or suggestions on alternative soloutions!
I have the form (PROJECT DETAILS) that displays a specific record's information, one record at a time.I would like to click a button to export 5 specific fields (name, phone, address) of that form ("Project Details"), based on the PK "AssignNr", and then insert those fields in an already created Excel form that has those fields blank, but other fields filled in.
And then, as part of the same macro, I want to have the Print pop-up come up in the Excel form to select where/how that file will get printed.I've tried exporting from the Project Details form, but it exports all the records. And then I am not sure how / where to code the vlookup formula (if that's even necessary) to take the data from the exported file, into the existing Excel form that needs to be filled in.
Can this even be done in one macro, or do I need to create two - one to export data from Access to Excel. And then another in Excel to vlookup the details from the exported file, into the existing Excel file.
It would be nice if I didn't have to put in what the vlookup criteria is. (i.e. AssignNr (which is the PK)) - if it could just be taken from the PROJECT DETAILS form's current record selection.
I have created a stock control system where i put stock that come in into a specific location i can put the same item over several locations depending of the size of the location or i can can put more than one product in a location .
The problem im having is when i do a order that say remove half of all the stock in it is split over more than one location i cant seem to get it to remove the stock from the location to show space available.
I would like to create a form that allows me to search for a folder on my desk top, then once located i can transfer that file to a specific location on another drive, Similar to the Browse / upload function you see on many applications.I am using Access 2003. Is this possible??
I am writing some vba code in mymacros.mdb to try and export a table from otherdb to excel. I do this becuase there is a new copy of otherdb created on a daily basis.
I have tried using docmd.output and docmd.transferspreadsheet to achieve this but dont know how to specify that the table I am exporting is in the otherdb.mdb file.
I want to export my data in "Asset_Table" link table to another file store in "d:Database1.accdb" with table name "AssetList". The Code i used as below. But when i opening the "Database1" file, the Table "Assetlist" is a LINK table type (I want Local Table). How to export the Link table data to Local Table data on another Database file.
<<<<<<<<<<<<<<<<<<<<<< Private Sub Copy_Click() DoCmd.TransferDatabase transfertype:=acExport, _ databasetype:="Microsoft Access", _ databasename:="d:Database1.accdb", _ ObjectType:=ACTable, Source:="Asset_Table", _ Destination:="AssetList", structureonly:=False End Sub <<<<<<<<<<<<<<<<<<<
the access database is about contracts.Each contract has an ID. So starting from ID1 to ID250. Right now i export in via VBA to excel. I have to create before in the excel the 250 tables. If the ID10 is not existing anymore i still have the table 10 left and then i have to delete this table.
Code: Dim xlSheet As Object 'Excel.Worksheet Dim rstID As DAO.Recordset, tmpStr As String Dim rstGr As DAO.Recordset, strSQL As String
What I would like to achieve via code on a button. From the table orders
Code: orderDate orderID ref name amt vat 02/02/2014 56789 01 magdi 600 100 22/06/2014 12122 01 magdi 654 100 22/06/2014 65897 02 simon 250 159 22/06/2014 12345 02 simon 156 140 23/07/2014 56781 01 magdi 400 250 01/08/2014 12457 01 magdi 250 900 01/09/2014 56787 02 simon 126 500 02/09/2014 56781 04 peter 400 250 02/09/2014 12345 02 simon 450 122 02/09/2014 65897 04 peter 250 231 02/09/2014 12122 05 hargr 654 100 02/09/2014 79457 05 hargr 254 200
I need to create csv files from the above based on unique date and ref and with filename showing date and ref. So from the above we should get 9 csv files in this format
I'm attempting to export some table queries to excel using the code I have posted below as a module.I am getting an error saying it cannot find my query.I have used this code to do the above on 2 queries within the same table and it works fine. I don't understand why it would not work for a different query.
Option Compare Database Private Sub exportQueryToExcel() DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "CUSTOMER FOCUS", "C:Usersgareth.davies1DesktopTrainingSHAREPOI NT FEED MASTER.XLSM", True End Sub
