[ Risolto ] Piccola Macro che copia celle su altro file

[patel]

Come ti dicevo il file test gli lo sto facendo salvare in ods

Non capisco perché, la soluzione proposta da gaetano funziona bene

[Aldo75]

Gaetano propone di fare salva con nome e scegliere l' estenzione csv , giusto ?
ti immagini farlo su 10 o 20 file !!!

[patel]

almeno provala la soluzione di Gaetano prima di scartarla, non ti ha detto di fare salva con nome, ti ha fornito una macro che fa tutto da sola.

[Aldo75]

ok appena finisco di cenare la provo subito !! Grazie mille !!

[Aldo75]

Salve, non riesco a farla funzionare , in quanto il file che mi esce il server non lo accetta .
Invece se prima lo riempio in ods , mettendoci tutte le righe che mi servono , poi se lo salvo con nome ( manualmente ) con estenzione csv, in questo caso il server lo accetta e tutto va liscio .
Per questo avevo richiesto l' aiuto di una macro da associare a un secondo pulsante che prende il file test.ods e lo trasforma in csv.
In questo modo per me sarebbe il massimo !!
Grazie per tutto !!

[patel]

non sarebbe più semplice utilizzare un csv normale invece di quello che hai allegato tu ? vedi file allegati

[Aldo75]

Perfetto !!!
La colpa è stata mia che non ho sostituito la macro perchè mi sembrava identica .
Grazie Mille !!
Domani apro un' altro post per altro..

[Aldo75]

Niente da fare , appena ho provato ad aggiungere la 3 e 4 riga lo salva sfasato senza piu' rispettare le colonne .
Sono nei guai !!

[Aldo75]

L' unica soluzione che vedo e' di lavorare il file in ods cosi che non ho problemi di colonne o altro , e poi non appena è pronto per inviarlo al server , un pulsante con scritta trasforma in csv . Cosi' che non subendo altre modifiche il server lo trova in perfette condizioni e me lo accetta .
Quindi vi sarei grato se mi aiutate a fare una ulteriore macro allegata a uno dei 4 pulsanti .
Grazie

[patel]

non capisco, a me funziona perfettamente come puoi vedere dai file allegati, ma devi usare il mio csv

[patel]

Niente da fare , appena ho provato ad aggiungere la 3 e 4 riga lo salva sfasato senza piu' rispettare le colonne .
Sono nei guai !!

prima di rinunciare hai provato a darlo in pasto al server ?

[Gaetanopr]

I file allegati da patel funzionano benissimo

[Aldo75]

Certo che funzionano benissimo !!
Solamente che non appena lo compilo seriamente con circa 40 colonne e una decina di righe lo sfalsa se lo lavoro in csv , invece se lo lavoro in ods e poi faccio una sola conversione in csv e lo invio al server è tutto ok .
(Ovviamente ho fatto la prova di inviarlo al server e in quel modo mi da errore )

Cosa vi costa aiutarmi nel fare una macro associata a un nuovo pulsante che apre il test.ods e lo trasforma in test.csv !!!

Grazie

[patel]

allega il file definitivo, altrimenti perdiamo tempo inutilmente

[Aldo75]

Codice: Seleziona tutto

sub Csv

dim dummy(),prop()
    Doc1 = ThisComponent
    fName = convertToURL("C:\Users\aldo rossi\Desktop\test\test.ods")    
    
       Doc2 = StarDesktop.loadComponentFromURL (fname, "_blank",0, Dummy() )
       osheet = Doc2.sheets(0)
rem ----------------------------------------------------------------------
rem define variables
''''dim document   as object
''dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
Doc1   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/aldo%20rossi/Desktop/csv/test.csv"
args1(1).Name = "FilterName"
args1(1).Value = "Text - txt - csv (StarCalc)"
args1(2).Name = "FilterOptions"
args1(2).Value = "44,34,ANSI,1,,0,false,true,true"

dispatcher.executeDispatch(doc2, ".uno:SaveAs", "", 0, args1())
      
End sub

Sto cercando di costruirla ma mi da errore , non so come sistemarla

[patel]

Codice: Seleziona tutto

Sub ExportToCSV
Dim args(2) as new com.sun.star.beans.PropertyValue
  fname = "C:\Users\aldo rossi\Desktop\test\test.csv"  
  cFilterOptions = "44,34,ANSI,1,,0,false,true,true"
  oDoc = ThisComponent
  oSheet = oDoc.Sheets.getbyname("Foglio1")
  args(0).Name = "FilterName"
  args(0).Value = "Text - txt - csv (StarCalc)"
  args(1).Name = "FilterOptions"
  args(1).Value = cFilterOptions
  oDoc.StoreToURL( ConvertToUrl( fname ), args() )
End Sub

[Aldo75]

La ringrazio per la sua pazienza ma a me serve di svilupparla che :

Codice: Seleziona tutto

Sub odstocsv
dim dummy(),prop()
    Doc1 = ThisComponent
    fName = convertToURL("C:\Users\aldo rossi\Desktop\test\test.ods")    
    
       Doc2 = StarDesktop.loadComponentFromURL (fname, "_blank",0, Dummy() )
       osheet = Doc2.sheets(0)

A questo dovremo aggiungere il resto , cioè che lo trasforma in csv e lo salva e chiude ad esempio dentro un' altra cartella ..tipo C:\Users\aldo rossi\Desktop\csv\test.csv

Per me è molto importante l' aiuto che mi sta dando .

[patel]

Ma tu le provi le macro che ti vengono suggerite ?

[Aldo75]

Certo .. l' ultima che mi hai suggerito prende il foglio attivo del file fogliodilavoro e non del file test.ods ,
Faccio un riepilogo perchè forse non mi sto spiegando bene .

1) E' stato risolto il problema che con il primo pulsante dal file fogliodilavoro aggiunge tutte le righe che mi servono al file test.ods. ( TUtto Perfetto !! )
2) Adesso in un secondo pulsante devo associare una macro che quando il file test.ods , l' ho finito di lavorare aggiungendo tutto cio' che mi serve , test.ods lo si deve salvare e trasformare in test.csv in un' altra cartella .

[patel]

l' ultima che ti ho suggerito prende il foglio attivo del file in cui la metti

[Aldo75]

Quindi la macro che mi hai suggeritola devo salvare nel file test.ods per poi associarla al pulsante del fogliodilavoro ?

La colpa è mia che non sono molto pratico... provo subito

[Aldo75]

Niente da fare... allego i 2 file

[patel]

Quindi la macro che mi hai suggeritola devo salvare nel file test.ods per poi associarla al pulsante del fogliodilavoro ?

io non ho detto di ssociarla al pulsante del fogliodilavoro, ti ho detto di provarla, se funziona poi pensiamo al resto, tu corri troppo.

[Aldo75]

Hai ragione , e che mi sembra brutto disturbare.
L' ho provata sul file test.ods piena di dati, lo salva e trasforma in csv.
Poi ho inviato il file al server, tutto è andato ok
Incrocio le dita per il resto .

[patel]

prova l'allegato

[Aldo75]

Perfetto !!!
A buon rendere !!!