excel: script automazione

[domenico04]

grazie...quando rientro in sede provo e ti faccio sapere.....
ti faccio sapere sempre qui o ti mando un messaggio privato?

[domenico04]

philum va bene...ma mi serve ancora il tuo aiuto se non ti scoccia.....se si puo fare in modo che si vedano solo gli aggiornamenti in un determinato foglio...cioè che compaiano da parte le modifiche apportate durante l'aggiornamento tra i vari file.....
poi mi serve un altro comando
aprire un file excel "c\documenti\rubrica"
il file è di solo lettura cliccare su solo lettura
salvare con nome su desktop
file esiste già sostituire SI
chiudi "rubrica senza salvare"
apri file excel "c\desktop\rubrica

[phylum]

per la a) appena ho tempo ci penso (per quanto la via piu' rapida è il sistema delle revisioni)

(le celle modificate saranno successivamente evidenziate con un
per la b) hai gia' la risposta leggi bene lo script precedente per salvare con div. nome usi saveAs("nomefile") e per uscire senza salvare Quit(false) gli avvisi dovrebbero essere gia' disattivati, in ogni caso quando esprimi un problema dovresti spiegare quello che vuoi ottenere non la tua interpretazione {perche' è piu semplice cosi' ^^}
p. es la frase precedente bastava "salvare un foglio (aggiornato/non aggiornato, questa è l'unica informazione che conta) con un altro nome"
perche' altrimenti quella frase x me è equivalente a copy rubrica dest /Y

[domenico04]

Non ci sono riuscito…

Dim XL
Dim wB
Set XL = CreateObject("EXCEL.APPLICATION")
XL.Visible = True
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Casellario\RUBRICA.XLS")

arrivato a questo punto prima di chiudere devo fare
salva con nome(con lo stesso nome” rubrica”), in
\\CEDINFOSERVER\UfficioPosta
quindi mi dirà che il file esiste già e mi chiederà se voglio sostituirlo e io devo dire si(sostituire)

[phylum]

veramente codificando quello che ti ho detto e con gli elementi forniti nelle discussioni precedenti saresti dovuto arrivare a :

Codice: Seleziona tutto

    Dim XL
    Dim wB
    Set XL = CreateObject("EXCEL.APPLICATION")
    XL.AskToUpdateLinks = False
    XL.Visible = True
    XL.DisplayAlerts = False
    Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Casellario\RUBRICA.XLS") 
    XL.ActiveWorkBook.SaveAs "\\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS"
    'XL.DisplayAlerts = False
    XL.ActiveWorkBook.Close(True)
    XL.Quit()


il fatto è che ti impegni poco! ^^
ed inoltre il cerchi di generalizzare un po dici sul desktop poi in rete poi ancora desktop ma fai solo confusione
in piu' non devi andare ad intuito! il codice lo devi testare (magari non sulle macchine "di produzione") ! non puoi ancora eseguire il codice mentalmente hai detto tu stesso di essere alle prime armi o peggio con questi strumenti

[domenico04]

Ti posto qui il primo file

Dim XL
Dim wB
Set XL = CreateObject("EXCEL.APPLICATION")
XL.Visible = True
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\UfficioPosta\RUBRICA GENERALE MASCHILE.XLS")
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\rotonda\MATTINALE TR2.xls")
XL.DisplayAlerts = False
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\RepartoA\MATTINALI.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Femminile\MATTINALI REPARTO FEMMINILE.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Femminile\Transex.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\RepartoB\mattinali.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\Cedinfoserver\rotonda\TR1 - Allegato 3.xls")
XL.ActiveWorkBook.Close
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\CentClinico\ELENCO DETENUTI --.xls")
XL.ActiveWorkBook.Close


E qui il secondo

Dim XL
Dim wB
Set XL = CreateObject("EXCEL.APPLICATION")
XL.AskToUpdateLinks = False
XL.Visible = True
XL.DisplayAlerts = False
Set wB = XL.Workbooks.Open("\\CEDINFOSERVER\Casellario\RUBRICA.XLS")
XL.ActiveWorkBook.SaveAs "\\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS"
'XL.DisplayAlerts = False
XL.ActiveWorkBook.Close(True)
XL.Quit()


Si posso unire in modo da diventare un unico file vbs?
E il secondo file dovrebbe rimanere aperta il file
\\CEDINFOSERVER\UfficioPosta\RUBRICA.XLS

puoi crearmelo tu interamente?
Nel momento che smonto da lavoro per motivi vari, salute compreso, non ho un minuto di tempo infatti questo post, come gli altri li faccio in ufficio, che ho più tempo e li copio appena stacco da lavoro perché li non ho iternet pubblico ma solo intranet.
Ti ringrazio per la pazienza…