Error run time 70

Hai un problema con Excel?

Nuova discussione

Error run time 70
di Daniel (utente non iscritto) data: 06/11/2014 15:48:22
Ho una porzione di codice che da un giorno all'altro ha incominciato a darmi l'errore di run time '70' (autorizzazione negata) e non riesco a capire il perché. Allego il codice vba incriminato. L'errore viene evedenziato sulla riga con gli asterischi(*). Grazie per l'aiuto.

Sub Start()
Dim percorso, filepath As String

percorso = "Q:EuroAmProfessionalXLSDocumentazione"
filepath = "Q:EuroAmericanProfessionalCLIENTIGALGANI MAURA - 130826113513"


If Range("E2").Value = 15 Or Range("E2").Value = 21 Or Range("E2").Value = 17 Or Range("E2").Value = 18 Then
FileCopy percorso & "Quotation INGEGNERE - ARCHITETTI - GEOMETRI + 300.000.docx", filepath & "Quotazione.doc"
Debug.Print "15-17-18"
ElseIf Range("E2").Value = 1 Or Range("E2").Value = 2 Or Range("E2").Value = 3 Then
FileCopy percorso & "Quotation COMMERCIALISTI - CONSULENTI LAV - AVVOCATI.docx", filepath & "Quotazione.doc"      ********* 
Debug.Print "1-2-3"
Else
FileCopy percorso & "Quotation new.docx", filepath & "Quotazione.doc"
Debug.Print "altri"
End If

End Sub

di Grograman (utente non iscritto) data: 06/11/2014 16:28:52
Sicuro che il file che stai cercando di copiare non sia stato protetto?
Altrimenti hanno cambiato i diritti di amministratore di quella cartella!
di daniel (utente non iscritto) data: 06/11/2014 16:42:20
probabilmente è dovuto al fatto che resta l'applicativo Word aperto nonostanze non ci siamo documenti aperti e quindi il Filecopy non riesce per sovrapposizione. Come faccio ad abbatterlo alla chiusura di un file word?

di Zer0Kelvin data: 06/11/2014 21:06:49
Ciao.
Senza indagare sul resto, puoi usare, per chiudere word, la macro qui sotto (che ho adattato da un post di Grograman).
Per utilizzare la macro devi attivare, nel menu "Strumenti->Riferimenti" di VBA:
MICROSOFT WORD 14.0 OBJECT LIBRARY

Sub Close_Word()
Dim oWord As Word.Application
    On Error Resume Next
    Set oWord = GetObject(, "Word.Application")
    On Error GoTo 0
    If Not oWord Is Nothing Then oWord.Quit
    Set oWord = Nothing
End Sub

di Zer0Kelvin data: 06/11/2014 21:08:52
Sicuro che non ci siano problemi coi diritti di accesso alle cartelle che contengono i files?

Vuoi Approfondire?