read from excel write into Extra! 1

[shawwallace]

Hi!
i new this forum
i have received excel sheet from client as attachment i saved it in share drive
from share drive with different excel sheet how do i open the excel, read from excel write it in Extra!
could you provide the code
I appreciate your help.

 

[SkipVought]

hi,

    Set oSystem = CreateObject("Extra.System")
    
    Set oSess = oSystem.Sessions.Open([i]yourpathandextraclient[/i])

    With oSess
        .Visible = True
        .WindowState = xNORMAL
    End With

    Set oScrn = oSess.SCREEN

    oScrn.Area(1,1,1,80).Value = ActiveSheet.cells(1,1).Value

    Set oScrn = Nothing
    Set oSess = Nothing
    Set oSystem = Nothing

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[shawwallace]

Hi Skip
thank you! is it possible can i grab each cell from excel to multiple screen. do you have example code for that.
thanks in advance

 

[SkipVought]

What code do you have so far in that attempt?

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[shawwallace]

Skip
i copy in one screen everything copied my concern is
if i have vt session from home is t possible can i copy from cell column f4
for example form home
vtc,[copy from excel f4], [copy from excel d4} UTAC
HOW DO I DO THAT
i just entr manually whatever in f4 screen in vtsession.
but i need automatically enter. do you have example for that.
please. thanks

 

[SkipVought]

You can loop thru values in column F

dim r as range, lRowOut as long
for each r in activesheet.range(activesheet.[F4], activesheet.[F4].end(sldown))
  oScrn.Area(lRowOut ,1,lRowOut ,80).Value = r.value
  lRowOut = lRowOut +1
next

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[SkipVought]

oops, sorry

.end([b]x[/b]ldown)

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[shawwallace]

Hi!
i have another requirment
i have excel cell e5 - date
can i put it
IF cell e5. value = "current month"
oscrn.area(15,5,8).value = "PM"
ELSE
oscrn.area(15,5,8).value = "CM"
END IF
I KNOW SOMEHTING WRONG THERE
HOW IT WILL IDENTIFY CURRENT MONTH OR PREVIOUS MONTH
DATE WOULD BE FOR EXAMPLE 02/27/08
PLEASE LET ME KNOW

 

[SkipVought]

You never stated exactly what "current month" is.

Is it the NUMERIC value of the month, like 2?

IF cell e5.value = month(date)

Is it the Single character value of the month, like "2"?

IF cell e5.value = format(date, "m")

Is it the TWO character value of the month, like "02"?

IF cell e5.value = format(date, "mm")

Is it the THREE character value of the month, like "Feb"?

IF cell e5.value = format(date, "mmm")

Is it the character value of the month, like "February"?

IF cell e5.value = format(date, "mmmm")

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}