Sub HiddenSession_WORKSCHED()
Dim str_Get_String_From_Excel As String
Dim str_Get_String_From_Reflection As String
Dim obj_Excel_WorkBook As Excel.Workbook
Dim str_My_WorkBook_Path As String
str_My_WorkBook_Path = "C:\Documents and Settings\" & _
"Administrator.THOMAS-7610E5CC\Desktop\Book1.xls"
'you will need to set a reference to the proper Excel library
Set obj_Excel_WorkBook = GetObject(str_My_WorkBook_Path)
'read the contents of Sheet1 cell a1 into a variable
str_Get_String_From_Excel = _
obj_Excel_WorkBook.Sheets("Sheet1").Cells(1, 1).Value
'you will need some investigation into Reflections methods to
'figure out cursor placement if necc. After positioning
'the cursor, use the Transmit method to place the contents of
'the variable above
Session.Transmit str_Get_String_From_Excel
'you may need to append a return character on the end such as...
Session.Transmit str_Get_String_From_Excel & Chr(13)
'you will now need to use one of several methods available to read
'from the terminal screen into a variable. For the sake of this
'example, we'll use the GetText method. This assumes that we are looking
'for a string called "MyString" with these coordinates.
'BeginningRow = 3
'EndingRow = 3
'BeginningColumn = 1
'EndingColumn = 8
str_Get_String_From_Reflection = Session.GetText(3, 1, 3, 8)
'place the string in Sheet1 cell b1
obj_Excel_WorkBook.Sheets("Sheet1").Cells(2, 1).Value = _
str_Get_String_From_Reflection
'close and save the workbook
obj_Excel_WorkBook.Close True
'other code and cleanup code...
End Sub
For Each rng_Range_Constants_Col_A In _
obj_Excel_WorkBook.Sheets("Sheet1"). _
Columns(1).SpecialCells(xlCellTypeConstants + xlCellTypeFormulas)Sub HiddenSession_WORKSCHED()
Dim str_Get_String_From_Excel As String
Dim str_Get_String_From_Reflection As String
Dim obj_Excel_WorkBook As Excel.Workbook
Dim str_My_WorkBook_Path As String
Dim rng_Range_Constants_Col_A As Excel.Range
str_My_WorkBook_Path = "C:\Documents and Settings\blah\blahblah\book2.xls"
Set obj_Excel_WorkBook = GetObject(str_My_WorkBook_Path)
'thanks Ivan
Windows(obj_Excel_WorkBook.Name).Visible = True
'loop here
For Each rng_Range_Constants_Col_A In _
obj_Excel_WorkBook.Sheets("Sheet1"). _
Columns(1).SpecialCells(xlCellTypeConstants)
str_Get_String_From_Excel = rng_Range_Constants_Col_A.Value
Session.WaitForEvent rcEnterPos, "30", "0", 21, 13
Session.WaitForDisplayString "ITEMNO=>", "30", 21, 2
Session.Paste
Session.TransmitTerminalKey rcIBMEnterKey
'Session.WaitForSilence ?
'At this point, the cell data is entered and transmitted resulting
'in a screen full of info. I can figure out the column coordinates.
'I'm getting an object error at:
'place the results in column B
rng_Range_Constants_Col_A.Offset(0, 1).Value = _
str_Get_String_From_Reflection
Next
'stuff here
End Sub
