Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
problem of moving focused cell by arrow key | Excel Discussion (Misc queries) | |||
Closing the current focused sheet | Excel Discussion (Misc queries) | |||
New user with focused direction! Will Excel and VBA do it? | New Users to Excel | |||
Repost:replacing data on a non focused worksheet with calculated data from the same sheet | Excel Programming | |||
Starting a userform upon starting the file | Excel Programming |