esportare testo da macro di Corel Draw

[wallace&gromit]

Ciao, so che non è prevista la consulenza per Corel Draw, ma forse potete darmi uno spunto per come chiudere questa macro, che è scritta con vba, analogamente ad office.

La struttura l'ho già elaborata e mi permette di rilevare le coordinate di ogni nodo di una polilinea.
Riesco per esempio a scrivere tutti questi dati in una variabile e a visualizzarli in un messaggio.
Poi però non riesco ad esportarli in un file txt (o meglio direttamente excel).
La macro è questa (l'ultima istruzione non funziona, l'ho lasciata per mostrare il tentativo che ho fatto):

Codice: Seleziona tutto

Sub Nodi()
     Dim t As Variant

     ActiveDocument.Unit = cdrMillimeter
 
    MsgBox ("nessun oggetto, seleziona una figura")
    Exit Sub
    End If
   
    If ActiveSelection.Shapes.Count > 1 Then
    MsgBox ("troppi oggetti, seleziona una sola figura")
    Exit Sub
    End If
   
    If ActiveShape.Type <> 3 Then
    MsgBox ("l'oggetto deve essere una polilinea (non rettangolo o ellisse)")
    Exit Sub
    End If

    QuantiNodi = ActiveDocument.ActiveShape.Curve.Nodes.Count
    For i = 1 To 5 'QuantiNodi
    CoordX = ActiveDocument.ActiveShape.Curve.Nodes.Range(i).PositionX
    CoordY = ActiveDocument.ActiveShape.Curve.Nodes.Range(i).PositionY
    t = t & CoordX & "|" & CoordY & vbCr
   
    Next i
    MsgBox (t)
   
't.ExportToFile "C:\Users\marco\Desktop\corelobjects.txt"

End Sub


[Anthony47]

Vedi se questo codice e' utilizzabile nel tuo caso:

Codice: Seleziona tutto

'Dichiarazioni nuove:
Dim XLApp As Object
Dim xWB As Object
Dim wArr()



'Parte modificata (raccolta delle coordinate):
QuantiNodi = ActiveDocument.ActiveShape.Curve.Nodes.Count
ReDim wArr(1 To QuantiNodi, 1 To 2)

For I = 1 To 5 'QuantiNodi
    wArr(I, 1) = ActiveDocument.ActiveShape.Curve.Nodes.Range(I).PositionX
    wArr(I, 2) = ActiveDocument.ActiveShape.Curve.Nodes.Range(I).PositionY
    Debug.Print t & CoordX & "|" & CoordY          '????
Next I
   
'Parte finale
Set XLApp = CreateObject("Excel.Application")

Set xWB = XLApp.Workbooks.Add
XLApp.Visible = True
Stop
xWB.Sheets(1).Range("A2").Resize(QuantiNodi, 2).Value = wArr
xWB.SaveAs "C:\Directory\PippoNodi.xlsx"        '<<<
Stop
xWB.Close False
XLApp.Quit
Set XLApp = Nothing
MsgBox ("Creato file PippoNodi.xlsx")

End Sub


Come vedi propongo di memorizzare le coordinate in una matrice; alla fine creiamo una sessione Excel con un workbook e "stampiamo" la matrice su Foglio1; salviamo con un nome fisso e chiudiamo tutto.
Altre opzioni sono teoricamente possibili (es lavorare con una sessione gia' aperta di Excel, o direttamente sul file dove vorresti avere le coordinate; ma questo porrebbe qualche problema in piu' sull'indirizzamento degli oggetti CorelDraw che non saprei gestire.
Non so se il tuo vba dispone dell'istruzione Debug.Print, che uso per creare nella "finestra Immediata" un log delle coordinate, per confrontarlo con quanto registrato sul file. Se Debug.Print va in errore basta eliminare la riga.
Un paio di Stop fermano la macro per verificare cosa sta succedendo; ovviamente andrebbero poi eliminati.

Se non tutto fila liscio, allora...

[wallace&gromit]

Ottimo!
Lo so che le matrici sono ancora uno dei miei vari punti deboli, dovrei esercitarmi di più (così come con il debug print).

Ho tolto le ultime istruzioni in modo da tenere aperto il file PippoNodi, da cui estraggo i valori che riporto poi nel file di elaborazione.

Ho notato che se il file PippoNodi.xls esiste già mi si ferma su un nuovo file di lavoro exel con già tutto ciò che mi serve. Quando poi chiudo trovo l'errore in corel che mi dice che voleva creare il file PippoNodi ma non c'è riuscito. In fondo a me basterebbe fermarmi prima, con la cartella nuova.

[wallace&gromit]

Edit: ora funziona anche cancellando l'istruzione in cui si crea il file PippoNodi.

[Anthony47]

Se funziona, quasi al primo colpo, abbiamo esaurito la nostra dose quotidiana di cu** pardon, di fortuna.

Se hai cancellato le ultime istruzioni, e avevi gia' Excel apero, allora tieni presente che sei rimasto con due sessioni Excel attive ma non comunicanti tra loro.
Io preferirei una soluzione piu' pulita, dove quanto creato dalla macro CorelDraw venga eliminato; suggerisco quindi di killare il file di output a inizio macro, in modo da non aver intoppi a salvarlo alla fine
Poi nel tuo file principale potresti mettere un "collegamento" a PippoNodi, usando Menu /Dati /Recupera dat; da File.

Corrisponde a questa versione:

Codice: Seleziona tutto

'Dichiarazioni nuove:
Dim XLApp As Object
Dim xWB As Object
Dim wArr()



'Parte modificata (raccolta delle coordinate):
QuantiNodi = ActiveDocument.ActiveShape.Curve.Nodes.Count
ReDim wArr(1 To QuantiNodi, 1 To 2)
On Error Resume Next                                    ' KILL del file da ricreare
    Kill "C:\Directory\PippoNodi.xlsx"
On Error GoTo 0


For I = 1 To 5 'QuantiNodi
    wArr(I, 1) = ActiveDocument.ActiveShape.Curve.Nodes.Range(I).PositionX
    wArr(I, 2) = ActiveDocument.ActiveShape.Curve.Nodes.Range(I).PositionY
    Debug.Print t & CoordX & "|" & CoordY          '????
Next I
   
'Parte finale
Set XLApp = CreateObject("Excel.Application")

Set xWB = XLApp.Workbooks.Add
XLApp.Visible = True
Stop
xWB.Sheets(1).Range("A2").Resize(QuantiNodi, 2).Value = wArr
xWB.SaveAs "C:\Directory\PippoNodi.xlsx"
Stop
xWB.Close False
XLApp.Quit
Set XLApp = Nothing
MsgBox ("Creato file PippoNodi.xlsx")

End Sub


Comunque l'utente sei tu; insomma fai come ti viene meglio!

[wallace&gromit]

Sono per la non violenza e "simpatizzante vegano", quindi non killo nulla
Nessun problema ad avere due o più sessioni, il file di base è già tutto bello strutturato per ospitare i nuovi dati, che preferisco copiare ed incollare di volta in volta dai file creati con la macro.