Transfer Spreadsheet Method

[JimP]

I'm transferring data to an Excel spreadsheet, and I only want the Excel
column labels (A, B, C...) to appear as labels. I can't seem to suppress the
mdb column labels from the table.

 

[Kenny G]

Export the data from a query instead of a table using only the fields you
want in your spreadsheet export.

 

[Ken Snell]

You cannot suppress the field names being exported by ACCESS. That is how
TransferSpreadsheet is designed to work for exports.

 

[Dirk Goldgar]

You cannot suppress the field names being exported by ACCESS. That is how
TransferSpreadsheet is designed to work for exports.

I suppose you could use automation to open the workbook afterward in Excel
and delete the header row.

 

[mcescher]

I'm transferring data to an Excel spreadsheet, and I only want the Excel
column labels (A, B, C...) to appear as labels. I can't seem to suppress the
mdb column labels from the table.

CopyFromRecordset doesn't include the column labels.

'Air Code - Not Tested
Dim db as DAO.Database
Dim rs as DAO.Recordset
Dim xlaReport As Excel.Application
Dim xlbReport As Excel.Workbook
Dim xlsReport As Excel.Worksheet
Set xlaReport = Excel.Application
Set xlbReport = xlaReport.Workbooks.Open("C:\Path\YourFile.xls")
Set xlsReport = xlbReport.Worksheets("Sheet1")
Set db = CurrentDb()
Set rs = db.OpenRecordset("YourQuery", dbOpenDynaset)

xlsReport.Range("A1").CopyFromRecordset rs

Set xlsReport = Nothing
Set xlbReport = Nothing
Set xlaReport = Nothing
Set rs = Nothing
Set db = Nothing

Hope this helps,
Chris M.

 

[tom_willpa]

high quality Soccer jerseys NBA Jersey tracksuit and jackets, GHD
hairstraightener supplier from www.willpa.com

Are you a Retail businessman who bother by the purchase price? China
Cheapest TOP wholesale website can help you

we are specialize in replica sport goods manufacturing in china, we can
offer you all kinds of soccer jersey, NBA jersey,shoes and so on. they are
the best brand replica goods whih are look the same as the original goods.
excellent quality and steady supply for them. we have been marketed in Europe
and American for 3 year. all the goods we offer are AAA quality. our soccer
jersey are Thailand style. If any goods you buy from my company have problem,
we will refund or resend them again. Most of ourProducts have no minimum
order requirements,soyou can shop retail goods at wholesale prices. if you
can buy more than 300usd. We offer free shipping. The more you buy the more
discount for you.

National soccer jerseys: http://www.willpa.com
Club soccer jerseys: http://www.willpa.com
NBA Jerseys: http://www.willpa.com
T-shirt and shirt: http://www.willpa.com
Tracksuit: http://www.willpa.com
Hoody & Jackets: http://www.willpa.com
UGG boots: http://www.willpa.com
Hair style: http://www.willpa.com
shopping Index: http://www.willpa.com

EMS shipping. 7days arrive, paypal accept

want more information pls contact us or check our website: www.willpa.com