[VB6]: Errore Runtime 1004 in ExcelApp.ActiveWorkbook.SaveAs

[EngLab]

Ciao,
ho un problemino mica male!

In pratica io effettuo l'accesso ad un file excel che si chiama report.xls nella app.path dell'applicazione. Ora sono interessato, dopo i dovuti cambiamenti al file con sostituzioni ecc ecc (che, comunque, funzionano) a salvare il file.

Sto usando il metodo ExcelApp.ActiveWorkbook.SaveAs, dove ExcelApp è l'istanza della classe di Excel.Application.

Ma la riga di

ExcelApp.ActiveWorkbook.SaveAs FileName:=App.Path & _
"\Reports\" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & _
", " & Time & ".xls", FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

mi restituisce l'errore 1004. Vi copio la descrizione di ?error dell'Immediata:

?error
Impossibile accedere al file. Provare una delle seguenti operazioni:

• Assicurarsi che la cartella specificata esista.
• Assicurarsi che la cartella contenente il file non sia di sola lettura.
• Assicurarsi che il nome di file non contenga i seguenti caratteri: <  >  ?  [  ]  :  | oppure  *
• Assicurarsi che il nome di file o il percorso non contenga più di 218 caratteri.

Ora...
* La cartella specificata esiste
* La cartella di file non è di sola lettura
* Il nome di file non contiene i caratteri non accetti
* Len(App.Path & "\Reports\" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ", " & Time & ".xls") = 118 circa

Ho provato anche ad impostare nel mio foglio-base che apro il livello di protezione a basso (per quanto riguarda le macro) e ho selezionato la casella che DOVREBBE permettere al Visual Basic di accedere al file.

Ma l'errore restituitomi è sempre lo stesso!

Qualcuno di voi sa come potermi aiutare? Grazie in anticipo!
Francesco

PS per i mod-amministratori: quando si modifica iuna discussione, sparisce il tag dell'argomento. Non è possibile rimetterlo!

[EngLab]

Nessuno può aiutarmi?

[icecube_HT]

Ciao ! Provo a fare delle ipotesi...

Sei sicuro che l'espressione Time, in funzione delle tue impostazioni internazionali, non ti restituisca una stringa con dei "due punti" come separatore ?

Se non e' quello il problema, ti suggerirei di utilizzare una variabile stringa dove mettere il nome del file (visto che il problema e' li'), ed inserire un Debug.Print di questa var. prima di eseguire il SaveAs, in modo da vedere chiaramente il nome risultante (eventualmente postalo qui per verificarlo insieme...)

Per "prudenza" eviterei anche quel "virgola spazio" dentro il nome del file....

Mi viene qualche dubbio anche su App.Path, sei sicuro che non ci voglia Application.Path ? (da VB si usa l'oggetto App, ma da VBA/Excel si usa Application... ..e tu stai usando il metodo SaveAs dell'applicazione Excel.......)


Ciao ! ...facci sapere !

[EngLab]

Originariamente inviato da icecube_HT
Ciao ! Provo a fare delle ipotesi...

Sei sicuro che l'espressione Time, in funzione delle tue impostazioni internazionali, non ti restituisca una stringa con dei "due punti" come separatore ?

Se non e' quello il problema, ti suggerirei di utilizzare una variabile stringa dove mettere il nome del file (visto che il problema e' li'), ed inserire un Debug.Print di questa var. prima di eseguire il SaveAs, in modo da vedere chiaramente il nome risultante (eventualmente postalo qui per verificarlo insieme...)

Per "prudenza" eviterei anche quel "virgola spazio" dentro il nome del file....

Mi viene qualche dubbio anche su App.Path, sei sicuro che non ci voglia Application.Path ? (da VB si usa l'oggetto App, ma da VBA/Excel si usa Application... ..e tu stai usando il metodo SaveAs dell'applicazione Excel.......)


Ciao ! ...facci sapere !

Grazie icecube_HT !!

Dunque..ho usato come da suggerimento una variabile stringa e l'ho mandata in debug.
Il risultato è questo:
C:\Documents and Settings\Portatile\Documenti\Utente\Lavori\[VB6] - Gestione\Reports\29-9-2006 14.12.27.xls

Per quanto riguarda l'Application.Path, questa si riferisce alla cartella dove risiede il programma Excel, non il file di destinazione (l'ho scoperto provando...).

Da dove può derivare l'errore?

Grazie ancora

[maxmalici]

Dal fatto che usi le Parentesi quadre [ ]

c'e' anche scritto nel messaggio di errore
cosa vuoi di piu'??????

rinomina la cartella

ciaooooooooooooooo

[icecube_HT]

Originariamente inviato da maxmalici
Dal fatto che usi le Parentesi quadre [ ]

Appunto ! OK !

[EngLab]

Assicurarsi che il nome di file non contenga i seguenti caratteri: < > ? [ ] : | oppure *

Il nome di file, non del percorso.. altrimenti, a rigor di logica, Excel non potrebbe salvare su percorsi con quei caratteri... o sbaglio?

[oregon]

Originariamente inviato da EngLab
Assicurarsi che il nome di file non contenga i seguenti caratteri: < > ? [ ] : | oppure *

Il nome di file, non del percorso..

No ... e' inteso di tutto il percorso ...

altrimenti, a rigor di logica, Excel non potrebbe salvare su percorsi con quei caratteri...

Logica ineccepibile ... infatti non puo'.

[EngLab]

Originariamente inviato da oregon
Logica ineccepibile ... infatti non puo'.

E come mai sono riuscito a salvare il file di origine in quella cartella? A questo mi riferivo quando ho scritto che la motivazione era strana..

[oregon]

Puoi "creare" un nuovo file Excel in quel percorso o copiarlo tramite Windows.
Puoi "salvare" le modifiche fatte a questo file.
Mon puoi fare "Salva con nome" in quella cartella per creare un nuovo file.