La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buon Giorno a tutti mi chiamo A.Maurizio
E il mio problema e questo :
Sfruttando da excel questa procedura che mi crea un documento CSV e lo inserisce nella mia sotto cartella chiamata (Allegati)
Tale Formato che di volta in volta cambi di nome.
Questa e il mio Programma :
Sub Crea_Formato_In_Csv()
On Error GoTo 1
Dim NomeFile As String
Dim Estensione As String
NomeFile = Foglio1.Range("M1").Value
Estensione = Foglio1.Range("M2").Value
Last_Row = Foglio1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Last_Col = Foglio1.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Call ExportRangeAsDelimitedText(ThisWorkbook.Name, _
"Foglio1", Range("A1:D25"), ThisWorkbook.Path & "\Allegati\" & NomeFile & Estensione, ";", True, True, False)
MsgBox "Fatto!"
1:
End Sub
Ora questa Routine mi Crea si in File in Formato CSV con al suo interno i Dati che ho nel Foglio di Excel
Però non viene incorporata l'immagine che però ho nel foglio di excel
Perchè ?
E come posso ovviare a questo inconveniente
Grazie sin da ora per tutto l'aiuto che vorrete darmi in merito Saluti da A.Maurizio
