from variable to excel

Printable View

Dec 8th, 2009, 05:48 PM
kamakshi

from variable to excel

i ahve created as array and get the values from the screen Extra!
and how do i get min in cell
for exampel 45,30,40, 50 in the variable
and from that i need 30 into cell
Dec 9th, 2009, 02:34 AM
westconn1

Re: from variable to excel

try
range("A1").value = application.worksheetfunction.min(myarray)
where myarray is a variant array
Dec 9th, 2009, 05:42 PM
kamakshi

Re: from variable to excel

westconn
i am sorry grabing value from screen Attachmate

worksheet funciton is not working from teh screen value
it works only with ranges. the value store it in one cell. only
this is the code
---------------------------------------
//For j = 1 To 14
prev = Trim(MyScreen.GetString(1, 19, 8))
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart1 = Trim(MyScreen.GetString(MyRw, 2, 5))
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd1 = Trim(MyScreen.GetString(MyRw, 2, 5))

MyScre en.SendKeys ("<PF3>")

New1=Trim(MyScreen.GetString(1, 19, 8))
If New1 <> prev Then

MyScreen.WaitHostQuiet (g_HostSettleTimE1)

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myStart1 = myStart2 Then
myStart1 = myStart3
ElseIf myStart1 < myStart2 Then
myStart1 = myStart3
ElseIf myStart2 < myStart1 Then
myStart2 = myStart3
End If
End If
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myEnd = myEnd2 Then
myEnd = myEnd3
ElseIf myEnd > myEnd2 Then
myEnd = myEnd3
ElseIf myEnd < myEnd2 Then
myEnd2 = myEnd3
End If

' End If
End If

Next j
MyScreen.SendKeys ("<pf3>")
If Cells(i, "B").Value = "s" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol) = TimeSerial(Left(myStart3, 2), Right(myStart3, 2), 0)
ElseIf Cells(i, "B").Value = "f" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol + 1) = TimeSerial(Left(myEnd3, 2), Right(myEnd3, 2), 0)
End If

//
Dec 10th, 2009, 03:18 AM
westconn1

Re: from variable to excel

without reading all your code, hard to read, use code or highlight tags,

you can perform worksheet functions on variable arrays, so if you have read all your data into and array you should be able to get a return value as above
Dec 10th, 2009, 12:23 PM
kamakshi

Re: from variable to excel

<tag>
//For j = 1 To 14
prev = Trim(MyScreen.GetString(1, 19, 8))
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart1 = Trim(MyScreen.GetString(MyRw, 2, 5))
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd1 = Trim(MyScreen.GetString(MyRw, 2, 5))

MyScre en.SendKeys ("<PF3>")

New1=Trim(MyScreen.GetString(1, 19, 8))
If New1 <> prev Then

MyScreen.WaitHostQuiet (g_HostSettleTimE1)

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myStart1 = myStart2 Then
myStart1 = myStart3
ElseIf myStart1 < myStart2 Then
myStart1 = myStart3
ElseIf myStart2 < myStart1 Then
myStart2 = myStart3
End If
End If
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myEnd = myEnd2 Then
myEnd = myEnd3
ElseIf myEnd > myEnd2 Then
myEnd = myEnd3
ElseIf myEnd < myEnd2 Then
myEnd2 = myEnd3
End If

' End If
End If

Next j
MyScreen.SendKeys ("<pf3>")
If Cells(i, "B").Value = "s" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol) = TimeSerial(Left(myStart3, 2), Right(myStart3, 2), 0)
ElseIf Cells(i, "B").Value = "f" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol + 1) = TimeSerial(Left(myEnd3, 2), Right(myEnd3, 2), 0)
End If <tag>
Dec 10th, 2009, 12:30 PM
kamakshi

Re: from variable to excel

[/QUOTE]
For j = 1 To 14
prev = Trim(MyScreen.GetString(1, 19, 8))
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart1 = Trim(MyScreen.GetString(MyRw, 2, 5))
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd1 = Trim(MyScreen.GetString(MyRw, 2, 5))

MyScre en.SendKeys ("<PF3>")

New1=Trim(MyScreen.GetString(1, 19, 8))
If New1 <> prev Then

MyScreen.WaitHostQuiet (g_HostSettleTimE1)

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myStart1 = myStart2 Then
myStart1 = myStart3
ElseIf myStart1 < myStart2 Then
myStart1 = myStart3
ElseIf myStart2 < myStart1 Then
myStart2 = myStart3
End If
End If
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myEnd = myEnd2 Then
myEnd = myEnd3
ElseIf myEnd > myEnd2 Then
myEnd = myEnd3
ElseIf myEnd < myEnd2 Then
myEnd2 = myEnd3
End If

' End If
End If

Next j
MyScreen.SendKeys ("<pf3>")
If Cells(i, "B").Value = "s" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol) = TimeSerial(Left(myStart3, 2), Right(myStart3, 2), 0)
ElseIf Cells(i, "B").Value = "f" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol + 1) = TimeSerial(Left(myEnd3, 2), Right(myEnd3, 2), 0)
End If [/QUOTE]
Dec 10th, 2009, 12:37 PM
kamakshi

Re: from variable to excel

[QUOTE]For j = 1 To 14
prev = Trim(MyScreen.GetString(1, 19, 8))
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart1 = Trim(MyScreen.GetString(MyRw, 2, 5))
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15
MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd1 = Trim(MyScreen.GetString(MyRw, 2, 5))

MyScre en.SendKeys ("<PF3>")

New1=Trim(MyScreen.GetString(1, 19, 8))
If New1 <> prev Then

MyScreen.WaitHostQuiet (g_HostSettleTimE1)

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "STARTED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row
myStart2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myStart1 = myStart2 Then
myStart1 = myStart3
ElseIf myStart1 < myStart2 Then
myStart1 = myStart3
ElseIf myStart2 < myStart1 Then
myStart2 = myStart3
End If
End If
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyScreen.Moveto 2, 15

MyScreen.SendKeys ("F")
MyScreen.SendKeys (" '" + "ENDED - TIME=" + "'")
MyScreen.SendKeys ("<Enter>")
MyScreen.WaitHostQuiet (g_HostSettleTimE1)
MyRw = MyScreen.Row

myEnd2 = Trim(MyScreen.GetString(MyRw, 2, 5))
If myEnd = myEnd2 Then
myEnd = myEnd3
ElseIf myEnd > myEnd2 Then
myEnd = myEnd3
ElseIf myEnd < myEnd2 Then
myEnd2 = myEnd3
End If

' End If
End If

Next j
MyScreen.SendKeys ("<pf3>")
If Cells(i, "B").Value = "s" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol) = TimeSerial(Left(myStart3, 2), Right(myStart3, 2), 0)
ElseIf Cells(i, "B").Value = "f" Then
Cells(i, Mycol).NumberFormat = "h:mm"
Cells(i, Mycol + 1) = TimeSerial(Left(myEnd3, 2), Right(myEnd3, 2), 0)
End If /QUOTE]