patel ha scritto: ↑venerdì 8 marzo 2024, 17:50
Ma a cosa ti serve ? non capisco, comunque funziona soltanto con un range tipo B5:C9, altrimenti prova questa che esporta tutto il contenuto del foglio
Codice: Seleziona tutto
sub Main
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Download/prova.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(document, ".uno:SaveAs", "", 0, args1())
end sub
Ciao Patel , eccomi .... allora ti allego il file di lavoro chiedendoti i vari punti che dovrei riuscire a correggere
1 - Ho inserito nelgli eventi del foglio "SchedaCliente" negli eventi foglio una macro "InsData"che mi inserisca la data corrente nella cella "M2" ma dovrebbe cambiare solo quando modifico esclusivamente la Cella "E4"
2 -Ho cambiato il tuo codice "
args1(2).Value = "44,34,ANSI,1,,0,false,true,true" " in " args1(2).Value = "59/4" " per evitare tutte le virgole , ma mi servirebbe che mi venga esportato come indico sotto :
Cliente : ;Gialli
Prodotto : ;Toner Giallo1
Codice : ;2224
Ricetta : ;15
; peso - (Kg); Peso + (Kg);nr prodotti; Totale pesi (Kg)
Toner Nero: ;0.00;00.00;0;0.00
Toner Magenta: ;00.00;00.00;0;0.00
Toner Ciano: ;0.00;0.00;0;0.00
Toner Giallo : ;0.00;0.00;0;0.00
TOT;;;0;0.00
3 - Quando Salva dovrebbe non sovrascrivere ma salvare Prendendo come riferimento la cella "Cliente (E4) + il Codice (la Cella E8)
Grazie