How to use TransferSpreadsheet to transfer query data to Excel Template selected rows

[sheikhsab]

Hi Team,

This is the code i am using to transfer data to a excel template, the data is pasted from cell A1. i wanted the data transferred from row 11 and onward.

Private Sub Command18_Click()

Dim filepath As String
Dim sSheetName As String

sSheetName = InputBox("Enter Sheet Name")
filepath = "C:\Users\msheikh\Documents\Fremont Maintenance Support\DB\CSP_Template.xlsx"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "CSP_Data_Query", filepath, True, sSheetName


MsgBox (" CSP Data is Successfully Exported ")


End Sub