Starting Inputbox focused?
 

I am running scripts from SPSS to manipulate Excel
worksheets. At one point I am running a macro in
Excel that brings up an Inputbox

Since I am running from SPSS the Inputbox is not focused
when it opens and I have to hit ALT-TAB to bring it into
focus. Is there a way to have it automatically open
focused?



Sub CreateExcel()
Set objExcelApp = GetObject(,"Excel.Application")
objExcelApp.Visible = True
objExcelApp.Run "addnewsheetifneeded"
End Sub




Sub AddNewSheetIfNeeded()
'Call function to check for any data in active sheet
If Not GetBottomRow = 0 Then
Application.ScreenUpdating = False
'If necessary, add new sheet before the current sheet.
Worksheets.Add after:=ActiveSheet, Count:=1
On Error Resume Next
'Name the sheet
ActiveSheet.Name = Application.InputBox("Enter Worksheet Name", Type:=2)
On Error GoTo 0
Application.ScreenUpdating = True
End If
End Sub
Private Function GetBottomRow() As Long
On Error GoTo NoRow
'Search the entire sheet for any data ("*" is a wildcard)
GetBottomRow = Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Exit Function
NoRow:
GetBottomRow = 0
End Function

Starting Inputbox focused?
 

Lance,

See if this does it...
AppActivate "Microsoft Excel"

Regards,
Jim Cone
San Francisco, CA

"Lance Hoffmeyer" wrote in message ...
I am running scripts from SPSS to manipulate Excel
worksheets. At one point I am running a macro in
Excel that brings up an Inputbox
Since I am running from SPSS the Inputbox is not focused
when it opens and I have to hit ALT-TAB to bring it into
focus. Is there a way to have it automatically open
focused?
Sub CreateExcel()
Set objExcelApp = GetObject(,"Excel.Application")
objExcelApp.Visible = True
objExcelApp.Run "addnewsheetifneeded"
End Sub

-snip-