From Newsgroup: comp.databases.ms-sqlserv

I create an Excel spreadsheet in VBA in Access the start of which is:
' Dim excelobj As Excel.Application
Dim excelobj As Object
Set excelobj = openExcel
With excelobj
.Workbooks.Add
.Visible = True

.ActiveWorkbook.Sheets(1).Select
.ActiveSheet.Name = "Invoice schedule"
.cells(1, 1).FormulaR1C1 = "Invoice Schedule Week Ending " & Format(Me.fromDate, "dd/mm/yyyy")
.cells(1, 1).Font.Bold = True

.cells(2, 1) = "Vehicle"
.cells(2, 2) = "Date"
.cells(2, 3) = "Contract number"
.cells(2, 4) = "Client"


All this works well. However I would like the Excel window to become the foreground window. How do I do this?

DoCmd.SelectObject does not handle this.
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.databases.ms-sqlserv

on 11/30/2021, Keith Tizzard supposed :

I create an Excel spreadsheet in VBA in Access the start of which is:
' Dim excelobj As Excel.Application
Dim excelobj As Object
Set excelobj = openExcel
With excelobj
.Workbooks.Add
.Visible = True

.ActiveWorkbook.Sheets(1).Select
.ActiveSheet.Name = "Invoice schedule"
.cells(1, 1).FormulaR1C1 = "Invoice Schedule Week Ending " & Format(Me.fromDate, "dd/mm/yyyy") .cells(1, 1).Font.Bold = True

.cells(2, 1) = "Vehicle"
.cells(2, 2) = "Date"
.cells(2, 3) = "Contract number"
.cells(2, 4) = "Client"

All this works well. However I would like the Excel window to become the foreground window. How do I do this?

DoCmd.SelectObject does not handle this.

I believe you can use the VBA command AppActivate to do this.

AppActivate Application.Caption

Rdub
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.databases.ms-sqlserv

On Tuesday, November 30, 2021 at 6:26:38 AM UTC-6, Keith Tizzard wrote:

I create an Excel spreadsheet in VBA in Access the start of which is:
' Dim excelobj As Excel.Application
Dim excelobj As Object
Set excelobj = openExcel
With excelobj
.Workbooks.Add
.Visible = True

.ActiveWorkbook.Sheets(1).Select
.ActiveSheet.Name = "Invoice schedule"
.cells(1, 1).FormulaR1C1 = "Invoice Schedule Week Ending " & Format(Me.fromDate, "dd/mm/yyyy")
.cells(1, 1).Font.Bold = True

.cells(2, 1) = "Vehicle"
.cells(2, 2) = "Date"
.cells(2, 3) = "Contract number"
.cells(2, 4) = "Client"

All this works well. However I would like the Excel window to become the foreground window. How do I do this?

DoCmd.SelectObject does not handle this.

Assuming you use "CreateObject" to open Excel.
i.e. Set excelobj = CreateObject("Excel.Application")

The only difference I see from my code is I set the spreadsheet visible to true at the end.
--- Synchronet 3.21d-Linux NewsLink 1.2

From Newsgroup: comp.databases.ms-sqlserv

Thanks. That works a treat. Just what I wanted


On Tuesday, 30 November 2021 at 14:42:15 UTC, Ron Weiner wrote:

on 11/30/2021, Keith Tizzard supposed :

I create an Excel spreadsheet in VBA in Access the start of which is:
' Dim excelobj As Excel.Application
Dim excelobj As Object
Set excelobj = openExcel
With excelobj
.Workbooks.Add
.Visible = True

.ActiveWorkbook.Sheets(1).Select
.ActiveSheet.Name = "Invoice schedule"
.cells(1, 1).FormulaR1C1 = "Invoice Schedule Week Ending " & Format(Me.fromDate, "dd/mm/yyyy") .cells(1, 1).Font.Bold = True

.cells(2, 1) = "Vehicle"
.cells(2, 2) = "Date"
.cells(2, 3) = "Contract number"
.cells(2, 4) = "Client"

All this works well. However I would like the Excel window to become the foreground window. How do I do this?

DoCmd.SelectObject does not handle this.

I believe you can use the VBA command AppActivate to do this.

AppActivate Application.Caption

Rdub

--- Synchronet 3.21d-Linux NewsLink 1.2