Expand|Select|Wrap|Line Numbers
- Public Sub TEST()
- Dim locationstring7 As String
- locationstring7 = "J:\Reports.xlsx"
- DoCmd.OpenQuery "QryMakeLoadID"
- DoCmd.Close acQuery, "QryMakeLoadID"
- DoCmd.OpenQuery "QryMakeLocAvailable"
- DoCmd.Close acQuery, "QryMakeLocAvailable"
- Set dbs = CurrentDb
- Set rsQuery = dbs.OpenRecordset("QryCapacityReport")
- Set excelapp = CreateObject("Excel.application", "")
- excelapp.Visible = True
- Set TargetWorkbook = excelapp.Workbooks.Open("J:\Reports")
- TargetWorkbook.Worksheets("data").Range("A3", "K8000").Clear
- TargetWorkbook.Worksheets("data").Range("A3").CopyFromRecordset rsQuery
- TargetWorkbook.Worksheets("Daily Summary").Range("A4:AC4").Copy
- TargetWorkbook.Worksheets("Daily Summary").[A1].Select
- TargetWorkbook.Worksheets("Daily Summary").Cells("A1107").paste
- TargetWorkbook.Save
- excelapp.Quit
- End Sub