Condividi:
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: Anthony47, Triumph Of Steel, archimede
di 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: 497
- Iscritto il: 16/08/09 18:41
di 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
-
Anthony47
- Moderatore
-
- Post: 19228
- Iscritto il: 21/03/06 16:03
- Località: Ivrea
di trittico69 » 01/12/14 10:06
mi dice "prevista fine istruzione"
-
trittico69
- Utente Senior
-
- Post: 497
- Iscritto il: 16/08/09 18:41
di Anthony47 » 01/12/14 13:26
Puoi allegare la macro che usi e indicare la riga su cui compare l' errore?
Ciao
-
Anthony47
- Moderatore
-
- Post: 19228
- Iscritto il: 21/03/06 16:03
- Località: Ivrea
di 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
-
Anthony47
- Moderatore
-
- Post: 19228
- Iscritto il: 21/03/06 16:03
- Località: Ivrea
di trittico69 » 01/12/14 14:50
se elimino la riga "dim" mi dice "errore di sintassi riga 4 carattere 15"
-
trittico69
- Utente Senior
-
- Post: 497
- Iscritto il: 16/08/09 18:41
di 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
-
Anthony47
- Moderatore
-
- Post: 19228
- Iscritto il: 21/03/06 16:03
- Località: Ivrea
di 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: 2851
- Iscritto il: 07/11/02 12:41
- Località: Genova
-
di trittico69 » 05/12/14 09:16
archimede, ma devo salvarlo tutti i giorni e sostituirlo.
-
trittico69
- Utente Senior
-
- Post: 497
- Iscritto il: 16/08/09 18:41
di archimede » 05/12/14 10:14
E quindi?
-
archimede
- Moderatore
-
- Post: 2851
- Iscritto il: 07/11/02 12:41
- Località: Genova
-
di trittico69 » 05/12/14 10:22
per evitare questo passaggio manuale
-
trittico69
- Utente Senior
-
- Post: 497
- Iscritto il: 16/08/09 18:41
di archimede » 05/12/14 14:05
-
archimede
- Moderatore
-
- Post: 2851
- Iscritto il: 07/11/02 12:41
- Località: Genova
-
di trittico69 » 05/12/14 17:42
Archimede non conosco l'inglese ne il linguaggio in questione
-
trittico69
- Utente Senior
-
- Post: 497
- 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 19 ospiti