Problem in exporting access table data to an excel file

JFKJr

Hi! I have exported an access table data into an excel file using the following code. However, the code exported all the data to the excel sheet starting from 'A' cell (first column). But I want to export all the data into the excel starting from cell B (second column) and include the heading "Extract Policy" followed by checkboxes in 'A' cell.

Can anyone suggest me how to do this? Thanks a million in advance.

Expand|Select|Wrap|Line Numbers

 Function ExportTableToExcel()

'Export function

'EXPORTS TABLE IN ACCESS DATABASE TO EXCEL

'REFERENCE TO DAO IS REQUIRED
 
Dim strExcelFile As String

Dim strWorksheet As String

Dim strDB As String

Dim strTable As String

Dim objDB As Database
 
strExcelFile = "C:\ExtractPolicyList.xls"

strWorksheet = "WorkSheet1"

strDB = "C:\Example1.mdb"

strTable = "ImportedData"
 
Set objDB = OpenDatabase(strDB)
 
'If excel file already exists, you can delete it here

If Dir(strExcelFile) <> "" Then Kill strExcelFile
 
objDB.Execute _

"SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _

"].[" & strWorksheet & "] FROM " & "[" & strTable & "]"

objDB.Close

Set objDB = Nothing

End Function

PianoMan64

You want to check from:

Expand|Select|Wrap|Line Numbers

 
objDB.Execute _

"SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile & _

".[" & strWorksheet & "] FROM " & "[" & strTable & "]"

TO:

Expand|Select|Wrap|Line Numbers

 
objDB.Execute _

"SELECT <<Name the fields that you want to select>> INTO [Excel 8.0;DATABASE=" & strExcelFile & _

".[" & strWorkSheet & "] FROM [" & strTable & "]"

Replace <<Name the fields that you want to select>> with the actual names of the fields that you want to export separating each field name with a comma ","

example

select Name, address, Phone From TableName

Hope that helps,

Joe P.

Problem in exporting access table data to an excel file

Post your reply

Similar topics