Domanda:
vorrei chiederle un controllo del codice seguente, lo scopo del codice è il salvataggio del file in una directory specifica e se la directory esiste, salvare il file con il nome specifico.
in attesa
Sub salvaFile()
On Error GoTo mess
Dim p As Worksheet
Dim Directory As String
Dim NomeFile As String
Dim ctrl As Boolean
Dim x As Integer
ctrl = True
x = 1
Set p = Worksheets("R22-3")
Directory = p.Cells(23, 20).Value
NomeFile = p.Cells(24, 20).Value
Do While ctrl = True
ctrl = Len(Dir(Directory & NomeFile))
x = x + 1
Loop
ChDir Directory
ActiveWorkbook.SaveAs Filename:=NomeFile, FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
mess:
msgbox "Errore - Riprovare"
End Sub
Risposta:
Nel codice bisogna apportare 2 modifiche:
1) sostituire ‘Filename:=NomeFile’ con ‘Filename:=Directory & NomeFile’, se ha scritto la directory con ‘\’ alla fine, o in caso contrario con ‘Filename:=Directory & “\” & NomeFile’
2) scrivere Exit Sub prima di mess: altrimenti il messaggio di errore appare anche in assenza di errori
Riccardo Vincenti
The following two tabs change content below.
Riccardo Vincenti
Ultimi post di Riccardo Vincenti (vedi tutti)
- 073. Duplicare righe excel modificando il contenuto - 6 Ottobre 2017
- 072. Estrazione numeri casuali - 6 Ottobre 2017
- 071. Estrazione casuale valori da un elenco - 5 Ottobre 2017
- 070. Contare dati univoci senza Pivot - 21 Settembre 2017
- 069. Aggiungere intervalli ad una data: Date Add in Excel - 21 Settembre 2017
This work by Riccardo Vincenti is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International