Date of the day

[djfa94]

Good evening, on my macro, I have the date of day to return manually to the everyday life(daily paper): is it possible that this macro takes into account automatically the date of day?




Sess0. Screen. SendKeys (" 11/2 [< Enter > ")

 

[SkipVought]

Hi,

Your requirements are VERY unclear.

Why are you doing this in Extra?

What YEAR? the Current year?

"to the everyday life(daily paper" What does than mean?

Please answer ALL these questions, clearly, concisely and completely.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[djfa94]

Hello, saddened I am not good in English and I use a translator.

Thus for my question I wish to make a search(research) but I have every day to change the date of the kind(genre) 11/02, 11/03 etc. etc.

I thought of making him(it) make with Excel it is possible?

Other question: how to capture a text of extra towards Excel?

 

[SkipVought]

11/02, 11/03 are not dates!

A date has YEAR, MONTH & DAY...
[tt]
2001/11/02, 2010/11/03
[/tt]

how to capture a text of extra towards Excel?

You have to be much more specific...

YourExcelObject.YourWorkbookObject.YourWorksheetObject.YourRangeObject.Value = YourExtraObject.YourExtraSessionObject.YourExtraScreenObject.GetString(YourScreenRow, YourScreenColumn, LengthOfString)

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[djfa94]

I made a recording with attachmate xtra,

I can check(control) xtra from Excel but I do not manage to copy information of xtra towards Excel. Eest-ce possible to make this recording?

" Aera " you understand?

 

[djfa94]

For date I found but to copy information of extra(special) towards Excel not.

 

[djfa94]

This is my code and afterafter i want to take information d' extra towards an Excel sheet, how to make? thank you.

Sub test()
Rem ' Cette macro a été créée par l'enregistreur de macros.
' Document de session : "C:\Users\Public\applications\sessions\Icones\AAA.edp"
' Date : Tuesday, February 08, 2011 13:50:07
' Utilisateur : test
'--------------------------------------------------------------------------------

' Déclarations des variables globales
'--------------------------------------------------------------------------------
' Cherche l'objet principal du système
    Dim Sessions As Object
    Dim System As Object
    Set System = CreateObject("EXTRA.System")   ' Cherche l'objet du système
    If (System Is Nothing) Then
        MsgBox "Impossible de créer l'objet du système EXTRA. L'exécution de la macro est interrompue."
        Stop
    End If
    Set Sessions = System.Sessions

    If (Sessions Is Nothing) Then
        MsgBox "Impossible de créer l'objet de la collection Sessions. L'exécution de la macro est interrompue."
        Stop
    End If
'--------------------------------------------------------------------------------
' Définir la valeur du délai d'attente par défaut
    g_HostSettleTime = 300      ' millisecondes

    OldSystemTimeout& = System.TimeoutValue
    If (g_HostSettleTime > OldSystemTimeout) Then
        System.TimeoutValue = g_HostSettleTime
    End If

' Cherche l'objet nécessaire pour la session
    Dim Sess0 As Object
    Set Sess0 = System.ActiveSession
    If (Sess0 Is Nothing) Then
        MsgBox "Impossible de créer l'objet Session. L'exécution de la macro est interrompue."
        Stop
    End If
    If Not Sess0.Visible Then Sess0.Visible = True
    Sess0.Screen.WaitHostQuiet (g_HostSettleTime)