Condividi:        

Dati da Borsaitaliana

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Dati da Borsaitaliana

Postdi Gianca532011 » 21/11/24 18:05

Ciao, questa e' la continuazione di viewtopic.php?f=26&p=667765#p667765
Mi è sopraggiunto un ulteriore problema ovvero con la macro, grazie a voi elaborata, scarico parte dei dati dalla Scheda di B.ita.na , che però non riporta la Scadenza del titolo. Ergo ho replicato la macro utilizzando una seconda origine dei dati : Dati completi , sia sul TLX che sul Mot, però la seconda macro (test2) non mi funziona ovvero non scarica l'unico dato che mi serve . Sbaglio metodo oppure ...
Allego file e codice .

Codice: Seleziona tutto
Option Explicit
Public Sub Test2()    '
    Dim Html As Object
    Dim CollA As Object
    Dim N As Long, i As Integer
    Dim dati As Variant
    Dim dati1 As Variant
    Dim intest As Variant, Intest2 As Variant
    Dim MyIsin As String
    Dim uR As Long
    Dim R
    Dim Ws1 As Worksheet
    Set Ws1 = Sheets("Isin")
    Ws1.Select
    Ws1.Activate
    Application.EnableEvents = False

    ' stessa intestazione + Scadenza del titolo
    intest = Array("Isin", "Descrizione", "Ultimo", "Chiusura", "Variazione % ", "Valuta", "Lotto", "Cedola Periodale", "Cedola annua", "Rendimento a scadenza Lordo", "Rendimento a scadenza netto", _
                   "Rateo Lordo %", "Rateo Netto %", "Duration", "Mkt", "Scadenza")
    Range("A1:P1") = intest
    uR = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
   ' Ws1.Range("B2:P" & uR).Clear
   
    ' codifica come stringa
    Set Ws1 = Sheets("Isin")
    Ws1.Select
    Ws1.Activate
    Application.EnableEvents = False
    '
     
    ' codifica come stringa
    With Ws1
        .Range("C2:P" & uR).NumberFormat = "@"

        ' --------------converti isin a maiuscolo-------------------------------
        Dim X As Object
        For Each X In Range("A2:A" & uR)
            X.Value = UCase(X.Value)
        Next

        '----------------------------------->>>>>>>>>>>>>>>>---------------------------
        Set Html = CreateObject("htmlfile")
        With CreateObject("WINHTTP.WinHTTPRequest.5.1")

            For N = 2 To uR
                MyIsin = Cells(N, 1)
                If MyIsin <> "" Then

                    'Provo su Mot >> Dati Completi
                    .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/mot/euro-obbligazioni/dati-completi.html?isin=" & Cells(N, 1) & " lang=it", False  ' Mot
                    .send
                    Html.body.innerHTML = .responseText
                    Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi
                   
                    Set CollA = Html.getElementsByClassName("t-text -right")
                   
                    If Not CollA Is Nothing Then
                        If CollA.Length > 5 Then    '+++
                            'trovato su Mot
                            'gestisci i dati da Mot
                            On Error Resume Next    '   questo non è possibile toglierlo
                            dati1 = Array(0, 0, , , , , , , , , , , , , , , 25)
                            For i = 2 To 17
                                Cells(N, i) = CollA(dati1(i)).innerText
                            Next i
                            'On Error GoTo 0

                            'Debug.Print N, MyIsin, "Su Mot"
                        End If
                    End If
                    'Prova  su TLx ?
                    If Cells(N, 15) <> "MOT" Then    '.condizione per attivare la ricerca tlx.

                        .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/eurotlx/dati-completi.html?isin=" & Cells(N, 1) & "lang = it", False     ' tlx"
                        .send
                        Html.body.innerHTML = .responseText
                        Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi
                        Set CollA = Nothing
                        'On Error Resume Next
                        Set CollA = Html.getElementsByClassName("t-text -right")
                        ' On Error GoTo 0
                        If Not CollA Is Nothing Then
                            If CollA.Length > 5 Then    '+++
                                'trovato su tlx
                                'gestisci i dati da tlx
                                'On Error Resume Next
                                dati = Array(, , , , , , , , , , , , , , 25)
                                For i = 2 To 17
                                    Cells(N, i) = CollA(dati(i)).innerText
                                Next i
                                If Cells(N, 15) = "" Then
                                    Cells(N, 15) = "TLX"
                                End If
                                On Error GoTo 0
                                '
                                'Debug.Print N, MyIsin, "Su Tlx"
                            End If    '..
                        End If
                    End If
                End If

            Next N
        End With
    End With

    ' --------------------converte testo a numero--------------------------------
    For Each R In Sheets("Isin").UsedRange.SpecialCells(xlCellTypeConstants)
        If IsNumeric(R) Then
            R.Value = CSng(R.Value)
            R.NumberFormat = "0.00"
        End If
    Next
    '
    Range("C2:D" & uR).NumberFormat = "#,##0.00"
    Range("F2:F" & uR).NumberFormat = "#,##"
End Sub


https://www.mediafire.com/file/k89whxi7 ... .xlsm/file
Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 348
Iscritto il: 27/05/11 10:18

Sponsor
 

Re: Dati da Borsaitaliana

Postdi Anthony47 » 21/11/24 21:40

Il tuo codice prepara, sul primo Isin, questo url:
https://www.borsaitaliana.it/borsa/obbl ... 345370CX67 lang=it

Ma a questo indirizzo evidentemente non esiste, infatti risponde la pagina "Obbligazioni - Cerca Strumento":
https://www.borsaitaliana.it/borsa/obbl ... nzata.html

Insomma devi capire quale url va usato per l'informazione che vuoi estrarre
Avatar utente
Anthony47
Moderatore
 
Post: 19446
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Dati da Borsaitaliana

Postdi Gianca532011 » 22/11/24 09:24

Ciao Anthony,
SI, ho corretto il codice poichè avendo già il riferimento di borsa corretto (Mot o TLX ) , già selezionato e scritto nella colonna O dalla prima macro, si potrebbe semplificare il tutto con un If di scelta, ovvero se l'Isin trovato è sul TLX >> vai direttamente al suo link oppure, caso Else, vai al MOT ... Ma Non funziona ! Cioè non mi da errore ma nemmeno scarica la data di scadenza !! maledetto :evil:
Non è che faccio casino con l'array ? se sbaglio indice va a pallino tutto ?
Codice: Seleziona tutto
Sub Test2()    '
    Dim Html As Object
    Dim CollA As Object
    Dim N As Long, i As Integer
    Dim dati As Variant
    Dim dati1 As Variant
    Dim intest As Variant, Intest2 As Variant
    Dim MyIsin As String
    Dim uR As Long
    Dim R
    Dim Ws1 As Worksheet
    Set Ws1 = Sheets("Isin")
    Ws1.Select
    Ws1.Activate
    Application.EnableEvents = False

    '
    intest = Array("Isin", "Descrizione", "Ultimo", "Chiusura", "Variazione % ", "Valuta", "Lotto", "Cedola Periodale", "Cedola annua", "Rendimento a scadenza Lordo", "Rendimento a scadenza netto", _
                   "Rateo Lordo %", "Rateo Netto %", "Duration", "Mkt", "Scadenza")
    Range("A1:P1") = intest
    uR = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
    ' Ws1.Range("B2:P" & uR).Clear

    ' codifica come stringa
    Set Ws1 = Sheets("Isin")
    Ws1.Select
    Ws1.Activate
    Application.EnableEvents = False
    '

    ' codifica come stringa
    With Ws1
        .Range("C2:P" & uR).NumberFormat = "@"

        ' --------------converti isin a maiuscolo-------------------------------
        Dim X As Object
        For Each X In Range("A2:A" & uR)
            X.Value = UCase(X.Value)
        Next

        '----------------------------------->>>>>>>>>>>>>>>>---------------------------
        Set Html = CreateObject("htmlfile")
        With CreateObject("WINHTTP.WinHTTPRequest.5.1")

            For N = 2 To uR
                MyIsin = Cells(N, 1)
                If MyIsin <> "" Then
                    If Cells(N, 15) = "MOT" Then
                            'Provo su Mot >> Dati Completi
                            .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/mot/euro-obbligazioni/dati-completi.html?isin=" & Cells(N, 1) & " lang=it", False  ' Mot
                            .send
                            Html.body.innerHTML = .responseText
                            Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi

                            Set CollA = Html.getElementsByClassName("t-text -right")

                            If Not CollA Is Nothing Then
                                If CollA.Length > 5 Then    '+++
                                    'trovato su Mot
                                    'gestisci i dati da Mot
                                    On Error Resume Next    '   questo non è possibile toglierlo
                                    dati1 = Array(0, 0, , , , , , , , , , , , , , 25)
                                    For i = 2 To 15
                                        Cells(N, i) = CollA(dati1(i)).innerText
                                    Next i
                                    'On Error GoTo 0

                                End If
                            End If
                        Else                 'Non è sul Mot quindi vai su TLx

                            'https://www.borsaitaliana.it/borsa/obbligazioni/eurotlx/dati-completi.html?isin=US345370CX67&lang=it
                            .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/eurotlx/dati-completi.html?isin=" & Cells(N, 1) & "lang = it", False     ' tlx"
                            .send
                            Html.body.innerHTML = .responseText
                            Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi
                            Set CollA = Nothing
                            'On Error Resume Next
                            Set CollA = Html.getElementsByClassName("t-text -right")
                            'On Error GoTo 0
                            If Not CollA Is Nothing Then
                                If CollA.Length > 5 Then    '+++
                                    'trovato su tlx
                                    'gestisci i dati da tlx
                                    'On Error Resume Next
                                    dati = Array(0, 0, , , , , , , , , , , , , 25)
                                    For i = 2 To 16
                                        Cells(N, i) = CollA(dati(i)).innerText
                                    Next i
                                    On Error GoTo 0
                                End If     '..
                            End If
                        End If
                    End If
               
            Next N
        End With
    End With


    ' --------------------converte testo a numero--------------------------------
    For Each R In Sheets("Isin").UsedRange.SpecialCells(xlCellTypeConstants)
        If IsNumeric(R) Then
            R.Value = CSng(R.Value)
            R.NumberFormat = "0.00"
        End If
    Next
    '
    Range("C2:D" & uR).NumberFormat = "#,##0.00"
    Range("F2:F" & uR).NumberFormat = "#,##"
End Sub


Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 348
Iscritto il: 27/05/11 10:18

Re: Dati da Borsaitaliana

Postdi Anthony47 » 22/11/24 12:06

Quale e' l'informazione di cui parliamo, che se non c'e' su A si va su B?
Fai uno screenshot della pagina A da cui vuoi scaricare, dammi l'url come lo leggi dalla barra dell'indirizzo del browser e circoletta l'informazione da prelevare; idem per la pagina B
Pero' mi sembra strano che si debba procedere a tentativi; nel senso: non si sa a priori di un Isin quale sito pubblica i suoi attributi?

PS: quando costruisci la query credo che si debba usare & " & lang=it", dove la & in corsivo a te manca
Avatar utente
Anthony47
Moderatore
 
Post: 19446
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Dati da Borsaitaliana

Postdi Gianca532011 » 22/11/24 12:12

Questi sono i link corretti :

Codice: Seleziona tutto
TLX "Dati Completi"
https://www.borsaitaliana.it/borsa/obbligazioni/eurotlx/dati-completi.html?isin=US345370CX67&lang=it
MOT Dati Completi
https://www.borsaitaliana.it/borsa/obbligazioni/mot/euro-obbligazioni/dati-completi.html?isin=XS1958656982&lang=it


e l'informazione che cerco è la Scadenza del titolo.
Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 348
Iscritto il: 27/05/11 10:18

Re: Dati da Borsaitaliana

Postdi Gianca532011 » 22/11/24 12:56

qui lo screenshot per il Tlx

Immagine
Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 348
Iscritto il: 27/05/11 10:18

Re: Dati da Borsaitaliana

Postdi Anthony47 » 23/11/24 22:29

Ci sono una serie di cose che non quadrano nel tuo complessivo
-la query deve essere costruita con & "&lang=it" Non & "lang=it" & "&lang = it"
-la colonna O non contiene “MOT” ma erroneamente “ MOT “ (nota gli spazi aggiuntivi)
-Quando si accede alla Collezione CollA bisogna ricordarsi che e’ una matrice in base 0; quindi per accedere al primo valore bisogna usare l’indice 0 (questo vale quando si lavora con i comandi della libreria MSHTML.TLB; per Selenium invece le collezioni sono a base 1).
-Analogo discorso per le variabili DATI e DATI1: sono matrici a base 0
-l’array DATI (relativo a TLX) non dovrebbe contenere Array(0, 0, , , , , , , , , , , , , 25) ma Array(1, 5, 11, 8, 27, 21, 28, 29, , , , , , , 25) (i valori lasciati Nulli corrispondono a intestazioni la cui posizione non sono stato in grado di trovare nella pagina web interrogata). Ovviamente il corretto flow della macro presuppone di lavorare con On Error Resume Next (che invece nel codice pubblicato e’ commentato nella sezione TLX, quindi non attivo)
-analogamente non capisco il contenuto che hai assegnato a DATI1: ispezione bene il sorgente della pagina web e ridetermina gli indici da utilizzare, tenendo presente il discorso fatto sulla base 0 di CollA.
-i valori di DATI che ho indicato prima sono calcolati avendo presente che devono indirizzare CollA a base 0
-di conseguenza, nel loop For I=2 to 16, quando si usa I per accedere a dati bisogna sottrarre “2” a I; quindi userai
Codice: Seleziona tutto
Cells(N, i) = CollA(dati(i - 2)).innertext


Con tutte queste correzioni ho correttamente estratto i dati che ho identificato per i titoli TLX, compreso la data di scadenza. Per i titoli MOT, non ho avuto la pazienza di riguardare il contenuto da assegnare a DATI1.

Prova ad applicare quanto detto al codice e al foglio, poi se hai ancora dubbi siamo qui...
Avatar utente
Anthony47
Moderatore
 
Post: 19446
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Dati da Borsaitaliana

Postdi Gianca532011 » 24/11/24 13:10

Anthony, innanzitutto grazie per le tue preziose indicazioni che mi hanno consentito di risolvere il tutto . Aggiungo il codice a futura memoria di eventuali interessati . Gli Isin da interrogare sono in A2 a seguire in colonna .
Ps ho mantenuto la logica iniziale ovvero con la prima parte del codice scarico 14 dei 15 dati , con la seconda parte solo il 15 ° dato , ovvero la scadenza del titolo .

Codice: Seleziona tutto
Option Explicit
Public Sub test0()    '
'https://www.pc-facile.com/forum/viewtopic.php?f=26&p=667765#p667765
'https://www.pc-facile.com/forum/viewtopic.php?f=26&t=113483&sid=868354d31e07e2bfbbfad2cba0563c9c
    Dim html As Object
    Dim CollA As Object
    Dim N As Long, i As Integer
    Dim dati As Variant
    Dim dati1 As Variant
    Dim intest As Variant
    Dim MyIsin As String
    Dim uR As Long
    Dim r
    Dim ii As Integer
    Dim Ws1 As Worksheet
    Set Ws1 = Sheets("Isin")
    Ws1.Select
    Ws1.Activate
    Application.EnableEvents = False

    '
    intest = Array("Isin", "Descrizione", "Ultimo", "Chiusura", "Variazione % ", "Valuta", "Lotto", "Cedola Periodale", "Cedola annua", "Rendimento a scadenza Lordo", "Rendimento a scadenza netto", _
                   "Rateo Lordo %", "Rateo Netto %", "Duration", "Mkt", "Scadenza")  ' la scadenza trovasi sulla scheda Dati completi "Scadenza", Come ci arrivo ???
    Range("A1:O1") = intest
    uR = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
    '
    Ws1.Range("B2:P" & uR).Clear
    '
    Set Ws1 = Sheets("Isin")
    Ws1.Select
    Ws1.Activate
    Application.EnableEvents = False
    '
    ' codifica come stringa
    With Ws1
        .Range("C2:O" & uR).NumberFormat = "@"

        ' --------------converti isin a maiuscolo-------------------------------
        Dim X As Object
        For Each X In Range("A2:A" & uR)
            X.Value = UCase(X.Value)
        Next

        '----------------------------------->>>>>>>>>>>>>>>>---------------------------
        Set html = CreateObject("htmlfile")
        With CreateObject("WINHTTP.WinHTTPRequest.5.1")

            For N = 2 To uR
                MyIsin = Cells(N, 1)
                If MyIsin <> "" Then

                    'Provo su Mot:
                    .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/mot/euro-obbligazioni/scheda/" & Cells(N, 1) & ".html?lang=it", False    ' Mot
                    .send
                    html.body.innerHTML = .responseText
                    Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi
                    'On Error Resume Next
                    Set CollA = html.getElementsByClassName("t-text -right")
                    'On Error GoTo 0

                    If Not CollA Is Nothing Then
                        If CollA.Length > 5 Then    '+++
                            'trovato su Mot
                            'gestisci i dati da Mot
                            On Error Resume Next    '   questo non è possibile toglierlo
                            dati1 = Array(0, 0, 32, 0, , , 28, 27, 40, 41, 11, 12, 13, 14, 15, 29)
                            For i = 2 To 15
                                Cells(N, i) = CollA(dati1(i)).innerText
                            Next i
                            'On Error GoTo 0

                            'Debug.Print N, MyIsin, "Su Mot"
                        End If
                    End If


                    'Prova  su TLx ?
                    If Cells(N, 15) <> "MOT" Then    '.condizione per attivare la ricerca tlx.

                        .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/eurotlx/scheda/" & Cells(N, 1) & ".html?lang=it", False    ' tlx
                        .send
                        html.body.innerHTML = .responseText
                        Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi
                        Set CollA = Nothing
                        On Error Resume Next
                        Set CollA = html.getElementsByClassName("t-text -right")
                        On Error GoTo 0
                        If Not CollA Is Nothing Then
                            If CollA.Length > 5 Then    '+++
                                'trovato su tlx
                                'gestisci i dati da tlx
                                On Error Resume Next
                                dati = Array(0, 0, 14, 1, 5, 3, 16, 17, 18, 19, 23, 24, 25, 26, 27)
                                For i = 2 To 14
                                    Cells(N, i) = CollA(dati(i)).innerText
                                Next i
                                If Cells(N, 15) = "" Then
                                    Cells(N, 15) = "TLX"
                                End If
                                On Error GoTo 0
                                '
                                'Debug.Print N, MyIsin, "Su Tlx"

                            End If    '..
                        End If
                    End If
                End If

            Next
        End With
    End With

    ' --------------------converte testo a numero--------------------------------
    For Each r In Sheets("Isin").UsedRange.SpecialCells(xlCellTypeConstants)
        If IsNumeric(r) Then
            r.Value = CSng(r.Value)
            r.NumberFormat = "0.00"
        End If
    Next
    '
    Range("C2:D" & uR).NumberFormat = "#,##0.00"
    ' Range("P2:P" & uR).NumberFormat = "m/d/yyyy"

    '------------------ seconda parte e  seconda ricerca -------------------------------

    With Ws1

        ' controlla che la stringa di riferimento sia senza spazi
        For ii = 2 To uR
            With Ws1.Range("O" & ii)
                .Value = Trim(.Value)
            End With
        Next
        '----------------------------------->>>>>>>>>>>>>>>>---------------------------
        Set html = CreateObject("htmlfile")
        With CreateObject("WINHTTP.WinHTTPRequest.5.1")

            For N = 2 To uR
                MyIsin = Cells(N, 1)
                If MyIsin <> "" Then
                    If Cells(N, 15) = "MOT" Then
                        'Provo su Mot >> Dati Completi
                        .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/mot/euro-obbligazioni/dati-completi.html?isin=" & Cells(N, 1) & "&lang=it", False  ' Mot
                        .send
                        html.body.innerHTML = .responseText
                        Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi

                        Set CollA = html.getElementsByClassName("t-text -right")
                        If Not CollA Is Nothing Then
                            If CollA.Length > 5 Then    '+++
                                'trovato su Mot
                                'gestisci i dati da Mot
                                On Error Resume Next    '   questo non è possibile toglierlo
                                dati1 = Array(0, 0, , , , , , , , , , , , , , , 25)
                                For i = 2 To 16
                                    Cells(N, i) = CollA(dati1(i)).innerText
                                Next i
                                'On Error GoTo 0

                            End If
                        End If
                    Else                 'Non è sul Mot quindi vai su TLx
                        .Open "GET", "https://www.borsaitaliana.it/borsa/obbligazioni/eurotlx/dati-completi.html?isin=" & Cells(N, 1) & "&lang=it", False     ' tlx"
                        .send
                        html.body.innerHTML = .responseText
                        Application.Wait Now + TimeValue("00:00:01")    'pausa di 1 secondi
                        Set CollA = Nothing
                        'On Error Resume Next
                        Set CollA = html.getElementsByClassName("t-text -right")
                        'On Error GoTo 0
                        If Not CollA Is Nothing Then
                            If CollA.Length > 5 Then    '+++
                                'trovato su tlx
                                'gestisci i dati da tlx
                                On Error Resume Next
                                dati = Array(0, 0, , , , , , , , , , , , , , , 25)
                                For i = 2 To 16
                                    Cells(N, i) = CollA(dati(i)).innerText
                                Next i
                                On Error GoTo 0
                            End If     '..
                        End If
                    End If
                End If

            Next N
        End With
    End With

    ' rimuove codice di errore dalla colonna con le date in formato diverso
    With Ws1
        Range("P2:P" & uR).Select
        Application.ErrorCheckingOptions.BackgroundChecking = False
        With Selection
            .HorizontalAlignment = xlRight
            .VerticalAlignment = xlBottom
            .ReadingOrder = xlContext
        End With
    End With
    Range("A1").Select

End Sub

Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 348
Iscritto il: 27/05/11 10:18

Re: Dati da Borsaitaliana

Postdi Gianca532011 » 24/11/24 16:12

Come sempre accade il problema è dietro l'angolo !! Ovvero devo applicare la macro 10 colonne verso destra (l'Isin è in colonna J , quindi tutti i riferimenti devono essere traslati di 10, ma come devo regolarmi per l'array ?
Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 348
Iscritto il: 27/05/11 10:18

Re: Dati da Borsaitaliana

Postdi Anthony47 » 24/11/24 16:48

Io non toccherei gli array, lasciando quindi For i = 2 To 15 e lavorando invece su Cells(N, i+Delta), dove "Delta" lo calcolerai in funzione dello spostamento di colonne; nell'esempio Delta = 8 (se non sbaglio a contare :lol: )
Avatar utente
Anthony47
Moderatore
 
Post: 19446
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Dati da Borsaitaliana

Postdi Gianca532011 » 24/11/24 18:10

Perfetto, grazie . Risultato OK
Giancarlo
win 10 - Office 2016 Ita
Gianca532011
Utente Senior
 
Post: 348
Iscritto il: 27/05/11 10:18


Torna a Applicazioni Office Windows


Topic correlati a "Dati da Borsaitaliana":


Chi c’è in linea

Visitano il forum: Nessuno e 4 ospiti