{"id":520,"date":"2013-04-20T08:52:18","date_gmt":"2013-04-20T06:52:18","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=520"},"modified":"2014-04-12T16:45:18","modified_gmt":"2014-04-12T14:45:18","slug":"creare-file-con-vba-ed-inviarli-via-mail-avanzato","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail-avanzato\/","title":{"rendered":"017. Creare file con VBA ed inviarli via mail (avanzato)"},"content":{"rendered":"
\"Download<\/a><\/div>

Ciao a tutti,<\/p>\n

in questo giorni ho modificato il Tool che invia allegati tramite email seguendo alcune necessit\u00e0 di Alessandra.
\nLe modifiche sono le seguenti:
\n1) verifica della presenza dei nomi inseriti nella base dati con quelli presenti in elenco
\ne segnalazione di eventuali assenze
\n2) selezione attraverso di un file dialog della cartella dove salvare gli allegati
\n3) creazione di un file “xls” o “xlsx” in base alla versione Excel utilizzata
\n4) scelta tra invio del file allegato in Excel o in Pdf
\n5) inserimento nell’allegato di un’intestazione e\/o logo aziendale<\/p>\n

Ecco il file avanzato:
\nTool crea file da elenco – Excel o PDF<\/a><\/p>\n

Per chi fosse interessato a come funziona il codice…. buona lettura!<\/p>\n

<\/p>\n

PUNTO 1.<\/strong>
\nVerifico l’ultima riga non vuota nel foglio ‘Nomi’ (la rubrica degli indirizzi)
\nSheet1.Select
\nLast_Row_1 = ActiveSheet.Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row<\/p>\n

Verifico l’ultima riga non vuota nel foglio ‘Base Dati’ (archivio dei dati da analizzare)
\nSheet2.Select
\nLast_Row_2 = ActiveSheet.Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row<\/p>\n

Con un ciclo for-next prendo ciascun nome in ‘Base Dati’, lo confronto con quelli in ‘Nomi’
\nse non lo trovo la variabile NomeTrovato rimane uguale a zero e quindi lancio messaggio di avviso
\ne blocco l’esecuzione della macro<\/p>\n

For i = 2 To Last_Row_2<\/p>\n

NomeTrovato = 0 ‘inizializzo la variabile<\/p>\n

For y = 2 To Last_Row_1<\/p>\n

If Sheet2.Cells(i, 1) = Sheet1.Cells(y, 1) Then
\nNomeTrovato = NomeTrovato + 1
\nEnd If<\/p>\n

Next y<\/p>\n

If NomeTrovato = 0 Then
\nMsgBox “Non trovata corrispondenza dati per ‘” & Sheet2.Cells(i, 1) & “‘” & Chr(10) & Chr(10) & _
\n“Verifica che:” & Chr(10) & _
\n“- sia presente nel foglio ‘Nomi'” & Chr(10) & _
\n“- sia scritto nello stesso modo nel foglio ‘Nomi’ ed in quello ‘Base Dati'”, vbInformation
\nSheet2.Cells(i, 1).Select
\nExit Sub
\nEnd If<\/p>\n

Next i<\/p>\n

PUNTO 2.<\/strong>
\nDim fDialog As Office.FileDialog
\nSet fDialog = Application.FileDialog(msoFileDialogFolderPicker)
\nDim selezione As Variant<\/p>\n

Dim PercorsoStandard As String
\n‘PercorsoStandard = “C:\\” ‘inserite il vostro percorso preferito e togliete la virgoletta prima di PercorsoStandard<\/p>\n

With fDialog
\n.AllowMultiSelect = False
\n.Title = “Seleziona il percorso dove salvare i file”
\n‘.InitialFileName = PercorsoStandard ‘togliete la virogletta prima di .InitialFileName se avete definito il PercorsoStandard<\/p>\n

If .Show = -1 Then
\nFor Each selezione In .SelectedItems
\ncartella = selezione
\nNext
\nElse
\nMsgBox “Operazione annullata!”, vbInformation
\nSheet2.Select
\nExit Sub
\nEnd If
\nEnd With<\/p>\n

Set fDialog = Nothing<\/p>\n

PUNTO 3.<\/strong>
\nCon questa funzione verifico la versione Excel utilizzata
\n(un ringraziamento a chi tempo fa l’ha creata risolvendo un mio problema)<\/p>\n

Public Function fVersioneExcel() As Long
\nWith Application
\nfVersioneExcel = Val(Mid(.Version, 1, InStr(1, .Version, “.”) – 1))
\nEnd With<\/p>\n

‘NOTE
\n‘Excel 2010 = 14
\n‘Excel 2007 = 12
\n‘Excel 2003 = 11
\n‘Excel 2002 = 10
\n‘Excel 2000 = 9
\nEnd Function<\/p>\n

A secondo del valore restituito dalla funzione fVersioneExcel, assegno alla variabile ‘nome’ l’estensione corretta:<\/p>\n

If fVersioneExcel < 12 Then
\nnomefile = nome & ” ” & Format(Date, “yyyy_mm_dd”) & “.xls”
\nElseIf fVersioneExcel >= 12 Then
\nnomefile = nome & ” ” & Format(Date, “yyyy_mm_dd”) & “.xlsx”
\nEnd If<\/p>\n

PUNTO 4.<\/strong>
\nLa routine ‘LanciaMacro’ crea sia l’allegato Excel che quello in PDF<\/p>\n

Il PDF \u00e8 creato con questa istruzione:<\/p>\n

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
\ncartella & “\\” & nomefilePDF, Quality:=xlQualityStandard, _
\nIncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
\n‘>>>> OpenAfterPublish:=False imposto a False per non far aprire il PdF dopo la sua creazione<\/p>\n

La scelta di che tipo di file allegare viene effettuata attraverso la selezione
\ndegli Option Button presenti nel foglio “Base Dati’<\/p>\n

Il codice \u00e8 il seguente:<\/p>\n

If Sheet2.OptionButton1 = True Then
\nCall InviaMailconPDF(nome, mail, cartella, nomefilePDF)
\nElseIf Sheet2.OptionButton2 = True Then
\nCall InviaMailconExcel(nome, mail, cartella, nomefile)
\nEnd If<\/p>\n

In base all’opzione selezionata, viene lanciata la macro che allega il file in Excel (InviaMailconExcel)
\noppure in PDF (InviaMailconPDF)
\nLe due macro differiscono solo dalla variabile utilizzata per identificare il file da allegare
\n(nomefile o nomefilePDF)<\/p>\n

PUNTO 5.<\/strong>
\nLa macro prima copia i dati filtrati nel foglio ‘Foglio da inviare’
\ne poi copia il foglio ‘Foglio da inviare’ in un nuovo file (quello che sar\u00e0 allegato)
\nIn questo modo \u00e8 possibile impostare il formato, l’intestazione ed il logo desiderato.<\/p>\n

Se si desidera incollare i dati in una posizione diversa, nella routine “CopiaDati”
\ninserite al posto di “Range(“B6″).Select” una cella diversa (ricordate di spostare anche le righe di intestazione presenti nel foglio ‘Foglio da inviare’<\/p>\n

Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"

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 … 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-8o","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":455,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/10\/invio-mail-vba-spedire-automaticamente-fogli-excel-tramite-outlook\/","url_meta":{"origin":520,"position":0},"title":"Invio mail con VBA: Spedire automaticamente fogli Excel tramite Outlook (anche come PDF)","date":"26 Ottobre 2013","format":false,"excerpt":"Il bisogno e' molto semplice: abbiamo una serie di fogli excel (report) da distribuire in modo selettivo a un insieme di colleghi. Vogliamo creare file excel specifici per ogni collega (gruppo di colleghi) contenente i report ad essi destinati vogliamo poter includere in una mail tale file excel (possibilmente senza\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":493,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail\/","url_meta":{"origin":520,"position":1},"title":"016. Creare file con VBA ed inviarli via mail","date":"4 Aprile 2013","format":false,"excerpt":"Domanda: Volevo sapere se con una macro posso splettare dei file in base al nome ma che mi mantenga le formule inserite e poi spedirle direttamente per e mail. \u2018-------- Risposta: ho preparato un file d\u2019esempio che pu\u00f2 tornare utile a tutti coloro vogliono assegnare ai propri collaboratori delle attivit\u00e0\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1261,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/06\/054-creazione-ed-esportazione-tabella\/","url_meta":{"origin":520,"position":2},"title":"053. Creazione ed esportazione tabella","date":"8 Giugno 2014","format":false,"excerpt":"Domanda: Avrei una richiesta che non so se sia fattibile ma intanto vi sottopongo il problema: io ho due file excel: 1) contiene una tebella --> colonna A dove sono elencate 9 persone, colonna B progetti apartenenti alla persona(quindi nella colonna A ci sono nomi ripetuti), colonna C ore di\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1403,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/12\/gmail-e-drive-via-libera-allediting-online-degli-allegati-microsoft-office\/","url_meta":{"origin":520,"position":3},"title":"Gmail e Drive: via libera all’editing online degli allegati Microsoft Office","date":"4 Dicembre 2014","format":false,"excerpt":"Google ha annunciato un\u2019importante novit\u00e0 per il suo servizio di posta elettronica: \u00e8 ora possibile modificare i file di Word, Excel e PowerPoint direttamente da Gmail oppure da Drive, senza dover scaricare il documento sul Pc. Via ICTBusiness","rel":"","context":"In "Comunicazioni"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":92,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/un-calendario-automatico-con-gestione-delle-festivita\/","url_meta":{"origin":520,"position":4},"title":"Un calendario automatico con gestione delle festivit\u00e0","date":"7 Febbraio 2013","format":false,"excerpt":"In questa pagina pubblichiamo la metodologia per creare un calendario automatico in Excel per ad esempio: Gestione di attivit\u00e0 Gestione di turni di lavoro Gestione di piani ferie il file Excel si presenta con due fogli: il primo \u00e8 un foglio che rappresenta il calendario stesso e il secondo invece\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"https:\/\/i1.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2013\/02\/calendario_automatico_2-300x297.gif?resize=350%2C200","width":350,"height":200},"classes":[]},{"id":8,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/office-guru-toolbar-i-tool-di-office-guru-disponibili-sul-vostro-excel\/","url_meta":{"origin":520,"position":5},"title":"Office Guru Toolbar: i tool di Office-Guru disponibili sul vostro Excel!","date":"6 Febbraio 2013","format":false,"excerpt":"Office-Guru rende disponibile una toolbar che permette di espandere le funzionalit\u00e0 di Excel con nuove funzioni. Dopo aver installato la toolbar seguendo le istruzioni disponibili in questa pagina avrete una nuova voce di\u00a0menu e una nuova barra di bottoni identica a quella rappresentata nell'immagine.Le funzionalit\u00e0 della barra sono le seguenti:\u2026","rel":"","context":"In "Tools"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/520"}],"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=520"}],"version-history":[{"count":18,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/520\/revisions"}],"predecessor-version":[{"id":1186,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/520\/revisions\/1186"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=520"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=520"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=520"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}