Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email     « Discussione Precedente | Lista | Discussione Successiva »
Autore

[RISOLTO] Salvare un foglio nella directory

Ultimo Aggiornamento: 05/03/2024 15:53
nTdQ231201
05/03/2024 10:39
00#1
Ciao,

ho compilato il foglio "Conformità" con i dati della "FrmDiCo".

Adesso dovrei salvarlo in questo prcorso:

C:\DICO\Anno\Excel

Ho abbozzato questa sub ma non funziona: 
Private Sub CommandButton20_Click()
Dim sPercorso As String
Dim sh5 As Worksheet
Dim TB_Committente1 As String
Dim snomefile As String
Dim Anno As Integer
Dim rng As Range
Anno = Year(Date)
    sPercorso = "C:\DICO\Anno\Excel\"
    snomefile = "DiCo " & Me.TB_Committente1.Value & " - " & Format(Date, "DD_MM_YYYY")
Set rng = Sheets("Conformità").Range("A1:C124")
ActiveSheet.Copy
Set rng = Nothing
End Sub
[Modificato da by sal 05/03/2024 15:55]
by sal
Post: 7.560
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
05/03/2024 11:55
00#2
Ciao Rex prova a cambiare questa riga, poi non ti vuoi imparare ad inserire il codice nel tag devi prima selezionare il codice poi in basso scegli il tag che vedi e scrivi al posto di "text" "vb" e confermi 2 volte 

sPercorso = "C:\DICO\Anno\Excel\"


in 

sPercorso = "C:\DICO\" & Anno & "\Excel\"


quando scrivi "Anno" nel percorso devi fargli capire che è la variabile "Anno" altrimenti come percorso va a cercare la Cartella "Anno" che non trova e va in errore.

Ciao By Sal (8-D
[Modificato da by sal 05/03/2024 11:59]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
nTdQ231201
05/03/2024 12:40
00#3
Ho fatto la correzione, ma non fa il salvataggio.

Per testare il funzionamento della sub:

Inserire i dati del Cliente sulla "FrmClienti" e cliccare sul pulsante "Inserisci".

Si apre la "FrmDiCo": non occorre inserire altri dati oltre quelli già inseriti in automatico all'apertura della "FrmDiCo".

Cliccare sul pulsante "CommandButton20".

Allego il file.

by sal
Post: 7.561
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
05/03/2024 14:46
00#4
Ciao Rex vedi che non hai scritto bene il percorso, manca uno "\" prima di Excel, questo il tuo. 

sPercorso = "C:\DICO\" & Anno & "Excel\"


poi una cosa nella tua cartella "C:\DICO\2024\" non hai una sottocartella "Excel" sei sicuro del percorso?

inoltre non salvi niente da nessuna parte crei solamente una copia del foglio "Conformita", non so cosa vuoi ottenere.

Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
nTdQ231201
05/03/2024 15:00
00#5
La cartella "Excel" la costruisco come ho detto nei precedenti post.

L'obiettivo è salvare nella sottocartella "Excel" tutte le dichiarazioni di conformità in formato .xlsx create ogni anno nel foglio "Conformità".

Ho fatto la correzione e in più ho eliminato un doppione del codice che dave dei problemi.

Il risultato non cambia.

Per testare il funzionamento della sub:

Inserire i dati del Cliente sulla "FrmClienti" e cliccare sul pulsante "Inserisci".

Si apre la "FrmDiCo": non occorre inserire altri dati oltre quelli già inseriti in automatico all'apertura della "FrmDiCo".

Cliccare sul pulsante "CommandButton20".
by sal
Post: 7.562
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
05/03/2024 15:34
00#6
Ciao Rex eccoti la tua macro sostituiscila con la tua 

Private Sub CommandButton20_Click()
Dim sPercorso As String
Dim sh5 As Worksheet
Dim TB_Committente1 As String
Dim snomefile As String
Dim Anno As Integer
Dim rng As Range
Anno = Year(Date)

    sPercorso = "C:\DICO\" & Anno & "\Excel\"
    snomefile = "DiCo " & Me.TB_Committente1.Value & " - " & Format(Date, "DD_MM_YYYY")

Sheets("Conformità").Select
Set rng = Sheets("Conformità").Range("A1:C124")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=sPercorso & snomefile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

Set rng = Nothing
End Sub


fai le prove, non dimenticarti di creare la cartella Excel

Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
nTdQ231201
05/03/2024 15:53
00#7
Ho inserito il tuo codice e l'ho confrontato con il mio per vedere gli errori che avevo commesso.

Ho inserito due dichiarazioni sul foglio per due cilienti diversi e funziona.

Per me risolta.

Grazie

rex88
Vota:
Amministra Discussione: | Riapri | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Cerca
nei titoli, nei messaggi, con Google
Tag discussione
nella directory
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 18:29. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com

  • Anteprima