Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[VBS]ActiveWorkBook.SaveAs eliminare richiesta sovrascittura

Problemi di HTML? Di PHP, ASP, .NET, JSP, Perl, SQL, JavaScript, Visual Basic..?
Vuoi realizzare programmi in C, C++, Java, Ruby o Smalltalk, e non sai da che parte cominciare?
Entra qui e troverai le risposte!

Moderatori: Triumph Of Steel, archimede

[VBS]ActiveWorkBook.SaveAs eliminare richiesta sovrascittura

Postdi trittico69 » 29/11/14 10:21

salve, qualcuno puo aiutarmi a modificare questo codice per far si che quando salva il file in questione su penna usb non esca la finestra che dice "questo file esiste già vuoi...."
in pratica deve sostituirlo.
grazie
Codice: Seleziona tutto
Set XL = CreateObject("EXCEL.APPLICATION")                                                               
XL.Visible = true                                                                                       
XL.AskToUpdateLinks = False                                                                             
XL.DisplayAlerts = False                                                                                 
Set wB = XL.Workbooks.Open ("C:\Documents and Settings\utente\Desktop\SERVIZIO 2014.XLS")               
XL.ActiveWorkBook.SaveAs ("E:\SERVIZIO 2014.XLS")                                                       
XL.AskToUpdateLinks = False                                                                             
XL.DisplayAlerts = False
                                                                               
set oShell = CreateObject("WScript.Shell")                                                               
oShell.SendKeys"%{F4}"
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Sponsor
 

Postdi Anthony47 » 30/11/14 16:00

Non hai bisogno di aprire il file per poi salvarlo sul drive E, puoi direttamente copiare dall' origine alla destinazione. Ad esempio:
Codice: Seleziona tutto
Sub MacroCopy()
Dim Fso As Object
'
On Error GoTo ErrMsg:
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.Copyfile " C:\Documents and Settings\utente\Desktop\SERVIZIO 2014.XLS", "E:\"
Set Fso = Nothing
Exit Sub
ErrMsg:
'in caso di errore:
MsgBox "FALLITO! Err. " & Err.Number & vbCr & Err.Description, vbCritical
End Sub


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi trittico69 » 01/12/14 10:06

mi dice "prevista fine istruzione"
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Postdi Anthony47 » 01/12/14 13:26

Puoi allegare la macro che usi e indicare la riga su cui compare l' errore?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi trittico69 » 01/12/14 13:54

http://www.filedropper.com/prova_8
mi da errore riga 2 carattere 9
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Postdi Anthony47 » 01/12/14 14:01

Probabilmente ho equivocato la richiesta...
Quella che ti ho proposto e' una macro per applicativo office, quindi in linguaggio VBA.

Prova a eliminare tutta la riga Dim, ma non so quali sono le differenze tra i linguaggi.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi trittico69 » 01/12/14 14:50

se elimino la riga "dim" mi dice "errore di sintassi riga 4 carattere 15"
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Postdi Anthony47 » 01/12/14 19:11

Come detto, non conosco il linguaggio VBS, quindi non so aiutarti, mi spiace.

Sposto nella sezione Programmazione, credo li' hai piu' chances.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Postdi archimede » 02/12/14 19:12

Potresti forse controllare se il file esiste e, nel caso, cancellarlo prima di salvarlo.

HTH.

Alessandro
archimede
Moderatore
 
Post: 2755
Iscritto il: 07/11/02 12:41
Località: Genova

Postdi trittico69 » 05/12/14 09:16

archimede, ma devo salvarlo tutti i giorni e sostituirlo.
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Postdi archimede » 05/12/14 10:14

E quindi?
archimede
Moderatore
 
Post: 2755
Iscritto il: 07/11/02 12:41
Località: Genova

Postdi trittico69 » 05/12/14 10:22

per evitare questo passaggio manuale
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Postdi archimede » 05/12/14 14:05

archimede
Moderatore
 
Post: 2755
Iscritto il: 07/11/02 12:41
Località: Genova

Postdi trittico69 » 05/12/14 17:42

Archimede non conosco l'inglese ne il linguaggio in questione
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41


Torna a Programmazione


Topic correlati a "[VBS]ActiveWorkBook.SaveAs eliminare richiesta sovrascittura":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti