aggiornamento automatico da web

[Anthony47]

Non Cells.Copy, ma

Codice: Seleziona tutto

Range("A:M").Copy

Ciao

[gianc]

grazie poi oggi girottolando su web avevo trovato giàla soluzione.
ho inserito anche i comandi per aprire i gestionali in automatico invece che manualmente.
purtroppo questi file hanno una password di accesso e quindi richiede comunque di inserirla manualmente.
per il momento mi accontento

[ricky53]

Ciao Gianc,
quando avrai terminato mi piacerebbe avere la versione completa della macro e, se possibile, un file di esempio (attenzione ai dati riservati).
Ovviamente non sarà utilizzabile peril richiamo ai gestionali ma mi incuriosisce la struttura e la gestione.
Grazie comunque.

[gianc]

allora non c'è nessuno che mi può aiutare?
come detto sopra, riesco a far funzionare tutto ma all'apertura dei file, essendo protetti da Password, mi richiede di inserirla.
è possibile automatizzare l'inserimento
ogni gestionale ha la stessa Password

[ricky53]

Ciao,
prova ad aprire il file dello "Scarico" del gestionale con

Codice: Seleziona tutto

Workbooks.Open Filename:= _
        "C:\Tuo-Percorso\Scarico.xls", Password:="password-del-file"

[gianc]

niente da fare
mi richiede di inserirla a mano ancora

[Anthony47]

per il momento mi accontento

Ci avevo creduto...

[gianc]

è vero
ma probabilmente sai meglio di me che la tentazione è troppo forte
scusatemi se sono petulante.
se esagero ignoratemi.......non mi offendo

[ricky53]

Ciao,
Con il 2003 non ho problemi ed apre il file senza chiedermi la PSW !!!

Confermi che il tuo file è un file XLS protetto da password ???

[gianc]

io ho il 2007 ed il formato è .xlsx

[Anthony47]

Se ti puo' consolare anche a me, pur avendo inserito il parametro Password nella Open, viene chiesto di digitare la password...

Ciao

[gianc]

ho chiesto all'area IT aziendale se mi sanno dare una dritta.
nel caso in cui mi risolvessero il problema ti faccio sapere

[ricky53]

Ciao
e perchè a me non chiede la PSW ???

Ecco un file di ESEMPIO,
la PSW è "prova"

Mi inviate un vostro esempio.

[gianc]

finalmente ci sono
con l'aiuto di un collega sono riusito ad ideare la procedura che mi serviva

Sub giancagg()
Workbooks.Open Filename:="tuo file", Password:="tua password", WriteResPassword:="tua password"
SxNomi = "prima parte nome file" '<<< La sequenza iniziale dei nomi Gestionali
SrcFile = "file di origine" '<<< Il file da cui leggi
For Each Wb In Workbooks
If Left(Wb.Name, Len(SxNomi)) = SxNomi Then
Workbooks(SrcFile).Activate
Sheets("foglio").Select
Range("A:M").Copy
Wb.Sheets("foglio").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next Wb
End Sub

[ricky53]

Ciao,
Ahi, Ahi !!!
però potevi dirlo che la PSW era per lettura e scrittura !!!
Oppure:
nelle prove dovevi accorgertene perchè ti chiedeva due volte la PSW !!!

Per questa volta sei perdonato !!!

[gianc]

ma in VBA sono negato
ho cominciato da sabato ad usarlo.
comunque non mi veniva richiesta 2 volte.
me la faceva inserire solo una volta.

mi dispiace avervi fatto impazzire

[ricky53]

Ciao,
dal codice che hai inviato fai pensare che il tuo file fosse protetto in lettura e in scrittura, quindi, ti doveva chiedere la PSW due volte (almeno il 2003 fa così).

[gianc]

veramente non è bloccato in scrittura......ma se mi dici così mi fa pensare che ho sbagliato e nel codice gli faccio inserire una password di troppo.
quindi probabilmente funziona anche eliminando il comando Password: e lasciando WriteResPassword:

ribadisco la mia ignoranza in VBA e ti ringrazio di avermelo fatto notare
saluti

[ricky53]

Ciao,
dipende da come è stato protetto il file.

Puoi inviare un'immagine di quello che ti viene presentato da excel quando apri "MANUALMENTE" il file (ossia lo apri senza avviare la macro) ?