Help with copying from excel to extra? 1

[bigdubbe]

I was wondering if anyone can point me in the right direction.

I want to take the number in row 1 column 2 in excel and copy that number and paste it into extra and repeat this going down the row until the value of the cell equal 0.

I can get the right excel document open and have the right worksheet active. I just want to know what I have to do to copy the number and loop it until the cell equal zero.

Any help is appericated.

 

[vzachin]

i do something like this in vba

Sub Row()
Dim Sessions As Object
Dim System As Object
Dim Sess0 As Object
Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession

For i = 1 To ActiveSheet.Rows.Count
If Range("B" & i).FormulaR1C1 = "0" Then
MsgBox "done"
Exit Sub
End If
DataInput = Range("B" & i)
Sess0.Screen.PutString DataInput, 2, 11
Next
End Sub

While in Extra, it's something like this:

For i = 1 To 65536
If objWorkBook.Range("B" & i).FormulaR1C1 = "0" Then
MsgBox "done"
Exit Sub
End If
DataInput = objWorkBook.Range("B" & i)
Sess0.Screen.PutString DataInput, 2, 11
Next

Don't know if this is what you are looking for, but hope it helps

zach

 

[SkipVought]

Hi,

I'd run it from Excel VB with just a cupla tweeks...

Sub Row()
Dim Sessions As Object
Dim System As Object
Dim Sess0 As Object
dim r as range

Set System = CreateObject("EXTRA.System")
Set Sessions = System.Sessions
Set Sess0 = System.ActiveSession

for each r in range([b1], [b1].end(xldown))
  if r.value = 0 then exit for
  Sess0.Screen.PutString r.value, 2, 11
next
End Sub

Skip,
[sub]
[red][/red]
[/sub]

 

[bigdubbe]

Thanks for the help never thought about running excel to extra. It is much easier. Thank You

 

[SkipVought]

In the VB Editor you might need to set a reference to Attachmate Extra n.m Object Library.

Skip,
[sub]
[red][/red]
[/sub]

 

[vzachin]

hi Skip,

i just learned something new.

thanks

zach

 

[SkipVought]

That's why I'm here, because I often learn something new at Tek-Tips.

Skip,
[sub]
[red][/red]
[/sub]