Sub TestExport()
Dim db As Database
Dim rst As Recordset
Dim objApp As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Dim strTemplatePath As String
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter

Set db = CurrentDb()
Set qdf = db.QueryDefs("qryInstructions_Actual")
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next prm

' strTemplatePath = CurrentProject.Path & "\DRR Weekly Buy.xlt"
strTemplatePath = CurrentProject.Path & "\" & "wkbTemp.xlsx"

Set objApp = New Excel.Application

'excel spreadsheet file goes here
Set objBook = objApp.Workbooks.Add(strTemplatePath)

'Name of sheet you want to export to
Set objApp = objBook.Parent
Set objSheet = objBook.Worksheets("Try")
objBook.Windows(1).Visible = True


'Opens the recordset and sets the variable

' Set rst = db.OpenRecordset("Send Weekly Buy for Campaign Query", dbOpenSnapshot)
Set rst = qdf.OpenRecordset()

With objSheet

.Activate
.Select
'Clears the current contents in the workbook range
.Range("A2:AP2000").ClearContents
'rst Copies the recordset into the worksheet
.Range("A9").CopyFromRecordset rst
rst.MoveFirst

.Range("H3").Value = rst![RoadName]
.Range("h4").Value = rst![SectionNumber]
.Range("h5").Value = rst![fName]
.Range("B8").Value = rst![ItemDescription]
.Range("C8").Value = rst![Chainage]
.Range("D8").Value = rst![ItemUnitMeasurement]
.Range("e8").Value = rst![StandardRate]
.Range("F8").Value = rst![PlannedQuanties]
.Range("G8").Value = rst![PlannedAmount]
.Range("H8").Value = rst![ActualQuantities]
.Range("I8").Value = rst![ActualAmount]
.Range("J8").Value = rst![Remarks]

End With

rst.Close
objApp.Visible = True
Set rst = Nothing
Set db = Nothing
Set objSheet = Nothing
Set objBook = Nothing
Set objApp = Nothing

End Sub