Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Course Of The Month
1 day, 15 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
VBA Code to Export an Access Query to Excel without the Header Row
Posted on 2010-11-18
I am trying to export an Access query to Excel, but I would like to exclude the header row from being exported. I am using the TransferSpreadsheet command below in VBA and I have the "has field names" option set to False, but the command is still exporting the header row to my Excel spread.
Does anyone know how to accomplish this using the TransferSpreadsheet command or is there another line of code that can accomplish this? I've read from several sources that there might be a way to run the TransferSpreadsheet command first and then in the next line of code open the Excel spreadsheet and send a command to delete the first row with the header information. However, no one has been able to provided the code to do such an action.
Any help would be greatly appreciated.
Does anyone know how to accomplish this using the TransferSpreadsheet command or is there another line of code that can accomplish this? I've read from several sources that there might be a way to run the TransferSpreadsheet command first and then in the next line of code open the Excel spreadsheet and send a command to delete the first row with the header information. However, no one has been able to provided the code to do such an action.
Any help would be greatly appreciated.
DoCmd.TransferSpreadsheet acExport, 8, "qry_ExportData", "C:\401k Export.xls", False
[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
7-
2
9 Comments
Active 7 days ago
From VBA Help on the TransferSpreadsheet method
Use True (–1) to use the first row of the spreadsheet as field names when importing or linking. Use False (0) to treat the first row of the spreadsheet as normal data. If you leave this argument blank, the default (False) is assumed. When you export Access table or select query data to a spreadsheet, the field names are inserted into the first row of the spreadsheet no matter what you enter for this argument.
Options include doing as you mention to delete the first row in the spreadsheet or creating the spreadsheet using Excel automation instead of using the TransferSpreadsheet method.
OM Gang
Use True (–1) to use the first row of the spreadsheet as field names when importing or linking. Use False (0) to treat the first row of the spreadsheet as normal data. If you leave this argument blank, the default (False) is assumed. When you export Access table or select query data to a spreadsheet, the field names are inserted into the first row of the spreadsheet no matter what you enter for this argument.
Options include doing as you mention to delete the first row in the spreadsheet or creating the spreadsheet using Excel automation instead of using the TransferSpreadsheet method.
OM Gang
Active 7 days ago
Sample Access function to delete first row in an Excel Spreadsheet. You'll need to add a reference to the Microsfoft Excel X.X Object Library.
Public Function DeleteRowInExcel()
On Error GoTo Err_DeleteRowInExcel
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim MyFileName As String
MyFileName = "c:\temp\MyOutputFile.xls"
Set xlApp = CreateObject("Excel.Applic
Set wb = xlApp.Workbooks.Open(MyFil
Set ws = wb.Sheets(1)
ws.Cells(1, 1).EntireRow.Delete
wb.Save
Exit_DeleteRowInExcel:
'Close Excel
wb.Close savechanges:=False
xlApp.Quit
Set xlApp = Nothing
Set wb = Nothing
Set ws = Nothing
Exit Function
Err_DeleteRowInExcel:
MsgBox Err.Number & ", " & Err.Description, , "Error"
Resume Exit_DeleteRowInExcel
End Function
Public Function DeleteRowInExcel()
On Error GoTo Err_DeleteRowInExcel
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim MyFileName As String
MyFileName = "c:\temp\MyOutputFile.xls"
Set xlApp = CreateObject("Excel.Applic
Set wb = xlApp.Workbooks.Open(MyFil
Set ws = wb.Sheets(1)
ws.Cells(1, 1).EntireRow.Delete
wb.Save
Exit_DeleteRowInExcel:
'Close Excel
wb.Close savechanges:=False
xlApp.Quit
Set xlApp = Nothing
Set wb = Nothing
Set ws = Nothing
Exit Function
Err_DeleteRowInExcel:
MsgBox Err.Number & ", " & Err.Description, , "Error"
Resume Exit_DeleteRowInExcel
End Function
Active 7 days ago
Actaully don't need the
wb.Close savechanges:=False
In the Exit statement. Left over from the module I started with.
OM Gang
wb.Close savechanges:=False
In the Exit statement. Left over from the module I started with.
OM Gang
OM Gang,
Thanks for the clarificaiton on the True/False options using the TransferSpreadsheet method. Do you have any examples of the Excel automation method that you can share with me? To answer your question I am outputting 26 fields to my Excel spreadsheet.
Matt
Thanks for the clarificaiton on the True/False options using the TransferSpreadsheet method. Do you have any examples of the Excel automation method that you can share with me? To answer your question I am outputting 26 fields to my Excel spreadsheet.
Matt
Active 7 days ago
Should be
Exit_DeleteRowInExcel:
'Close Excel
wb.Close
xlApp.Quit
Set xlApp = Nothing
Set wb = Nothing
Set ws = Nothing
Exit Function
OM Gang
Exit_DeleteRowInExcel:
'Close Excel
wb.Close
xlApp.Quit
Set xlApp = Nothing
Set wb = Nothing
Set ws = Nothing
Exit Function
OM Gang
Active 7 days ago
See if what I've posted works for you. If not, I can also supply a sample function to create the Excel workbook, without header row, using automation.
OM Gang
OM Gang
Active 7 days ago
I guess I should have added
to use the function to delete the first row from the newly created spreadsheet you can call it from your existing procedure that is using the TransferSpreadsheet method. Modify my sample function to accept the file path/name as an input parameter
Public Function DeleteRowInExcel(MyFileNam
On Error GoTo Err_DeleteRowInExcel
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Then you can call it like this
DoCmd.TransferSpreadsheet acExport, 8, "qry_ExportData", "C:\401k Export.xls", False
Call DeleteRowInExcel("c:\401k Export.xls")
OM Gang
to use the function to delete the first row from the newly created spreadsheet you can call it from your existing procedure that is using the TransferSpreadsheet method. Modify my sample function to accept the file path/name as an input parameter
Public Function DeleteRowInExcel(MyFileNam
On Error GoTo Err_DeleteRowInExcel
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Then you can call it like this
DoCmd.TransferSpreadsheet acExport, 8, "qry_ExportData", "C:\401k Export.xls", False
Call DeleteRowInExcel("c:\401k Export.xls")
OM Gang
Featured Post
To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
Microsoft Access is a place to store data within tables and represent this stored data using multiple database objects such as in form of macros, forms, reports, etc. After a MS Access database is created there is need to improve the performance and…
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you!
In this Micro Tutorial, you'll learn yo…
- Microsoft Applications
- Windows 10
- Windows OS
- Fonts Typography
- Windows 7, Microsoft Word
Suggested Courses
Course of the Month1 day, 15 hours left to enroll
Earn Certification
Managing Projects with Microsoft Project 2013 (Exam 74-343)
$49.00$44.10
717 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.