{"id":201,"date":"2013-02-18T23:00:48","date_gmt":"2013-02-18T22:00:48","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=201"},"modified":"2014-04-12T16:20:20","modified_gmt":"2014-04-12T14:20:20","slug":"salvataggio-file-tramite-vba","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/salvataggio-file-tramite-vba\/","title":{"rendered":"007. Salvataggio file tramite VBA"},"content":{"rendered":"
\"Download<\/a><\/div>

Domanda:<\/p>\n

vorrei chiederle un controllo del codice seguente, lo scopo del codice \u00e8 il salvataggio del file in una directory specifica e se la directory esiste, salvare il file con il nome specifico.
\nin attesa<\/p>\n

Sub salvaFile()\r\n On Error GoTo mess\r\n Dim p As Worksheet\r\n Dim Directory As String\r\n Dim NomeFile As String\r\n Dim ctrl As Boolean\r\n Dim x As Integer\r\n ctrl = True\r\n x = 1\r\nSet p = Worksheets(\"R22-3\")\r\nDirectory = p.Cells(23, 20).Value\r\n NomeFile = p.Cells(24, 20).Value\r\nDo While ctrl = True\r\n ctrl = Len(Dir(Directory & NomeFile))\r\n x = x + 1\r\n Loop\r\nChDir Directory\r\n ActiveWorkbook.SaveAs Filename:=NomeFile, FileFormat:=xlNormal, Password:=\"\", writerespassword:=\"\", ReadOnlyRecommended:=False, CreateBackup:=False\r\nmess:\r\n msgbox \"Errore - Riprovare\"\r\nEnd Sub<\/pre>\n
Risposta:<\/p>\n
Nel codice bisogna apportare 2 modifiche:<\/p>\n
1) sostituire ‘Filename:=NomeFile’ con ‘Filename:=Directory & NomeFile’, se ha scritto la directory con ‘\\’ alla fine, o in caso contrario con ‘Filename:=Directory & “\\” & NomeFile’<\/p>\n
2) scrivere Exit Sub prima di mess: altrimenti il messaggio di errore appare anche in assenza di errori<\/p>\n
Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"
Domanda: vorrei chiederle un controllo del codice seguente, lo scopo del codice \u00e8 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 … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[13,6],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-3f","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":1129,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/copia-file-con-condizione\/","url_meta":{"origin":201,"position":0},"title":"047. Copia File con condizione","date":"9 Aprile 2014","format":false,"excerpt":"Domanda: Avrei bisogno di una macro che mi permetta di copiare i soli file di testo di una specifica directory che contengono una specifica stringa alfanumerica dalla directory sorgente ad un'altra da specificare. Risposta: E\u2019 possibile risolvere il problema con una solo macro che verifica presenza della stringa nel nome\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":866,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/copiare-directory-tramite-vba\/","url_meta":{"origin":201,"position":1},"title":"034. Copiare Directory tramite VBA","date":"17 Gennaio 2014","format":false,"excerpt":"Domanda: Buon 2014 a tutti, avrei la necessit\u00e0 di realizzare una macro in Excel (VBA) per copiare una directory: percorso \u2013 C:\\DATI La cartella (directory) contiene 15 file .doc, dopo aver copiato la directory deve essere incollata nel desktop. Risposta: Per copiare una directory in un\u2019altro percorso, pu\u00f2 utilizzare i\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":197,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/aprire-filedialog-per-selezionare-file\/","url_meta":{"origin":201,"position":2},"title":"004. Aprire FileDialog per selezionare file","date":"17 Febbraio 2013","format":false,"excerpt":"Domanda: Complimenti per il sito...molto interessante Avrei bisogno di visualizzare un diagramma ad albero (tipo quello che si visualizza con esplora risorse di windows) all\\'apertura di excel oppure word, per poterci collegare dei file sia di excel, word, pdf, ecc. in modo di avere una visione generale della struttura del\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":520,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail-avanzato\/","url_meta":{"origin":201,"position":3},"title":"017. Creare file con VBA ed inviarli via mail (avanzato)","date":"20 Aprile 2013","format":false,"excerpt":"Ciao a tutti, in questo giorni ho modificato il Tool che invia allegati tramite email seguendo alcune necessit\u00e0 di Alessandra. Le modifiche sono le seguenti: 1) verifica della presenza dei nomi inseriti nella base dati con quelli presenti in elenco e segnalazione di eventuali assenze 2) selezione attraverso di un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":699,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/08\/copiare-file-con-vba\/","url_meta":{"origin":201,"position":4},"title":"023. Copiare File con VBA","date":"7 Agosto 2013","format":false,"excerpt":"Domanda: Ho una colonna di Excel dove sono riportati una lista di files (comprensivi di percorso) e in un\\'altra colonna il nome di questi files (con percorso destinazione) che integrano nel nome alcune cose. Il problema \u00e8: con VBA come faccio a realizzare una istruzione che mi copi i files\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1831,"url":"https:\/\/www.office-guru.com\/wordpress\/2017\/10\/072-estrazione-numeri-casuali\/","url_meta":{"origin":201,"position":5},"title":"072. Estrazione numeri casuali","date":"6 Ottobre 2017","format":false,"excerpt":"Durante la realizzazione del precedente articolo '071. Estrazione casuale valori da un elenco' ho pensato ad una variante del codice che permettesse di estrarre dei numeri dopo aver definito il valore minimo e massimo della serie di numeri da cui estrarre, ed il numero di valori da estrarre. Questo \u00e8\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/201"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=201"}],"version-history":[{"count":9,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/201\/revisions"}],"predecessor-version":[{"id":1168,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/201\/revisions\/1168"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=201"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=201"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=201"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}