Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19632

Excel VBA salvare foglio come file (con grafico)

Show all headers | View raw

Ciao,
utilizzo questo codice per prendere un foglio di un file excel e salvarlo come file in una cartella. 
il file lo salva correttamente, solo che nel codice ho un grafico (spider) che non viene riportato nel file generato.
di seguito il codice che utilizzo, se poi c'è un codice migliore che salva il foglio con grafico ben venga...
grazie
Marco

Codice:

Sub EsportaFoglio()
    
    Dim NomeFoglio, CurFolder, DestFolder, DestFile
    Dim Shp As Shape

    NomeFoglio = ActiveSheet.Name
   
    NomeFoglio = InsDati
    CurFolder = ActiveWorkbook.Path
    DestFolder = "C:\CSV\"
    DestFile = DestFolder & ActiveSheet.Range("B6").Value _
          & "_" & ActiveSheet.Range("B64").Value & ".xlsx"


    If Dir(DestFolder, vbDirectory) = "" Then
        MsgBox "Occorre creare la sottocartella fogli"
        Exit Sub
    End If
    If Dir(DestFile) <> "" Then
        'MsgBox "Esiste"
        Kill DestFile
    End If
    
    Foglio3.Select
    Application.ScreenUpdating = False
    Foglio3.Select
    Foglio3.Copy
    'Sheets(NomeFoglio).Select
    'Sheets(NomeFoglio).Copy
    For Each Shp In ActiveSheet.Shapes
        Shp.Delete
    Next
    ActiveWorkbook.SaveAs Filename:=DestFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Application.ScreenUpdating = True

End sub

Back to it.comp.lang.visual-basic | Previous | Next | Find similar

Thread

Excel VBA salvare foglio come file (con grafico) Marco75 <marcoporzi75@gmail.com> - 2019-05-09 07:22 -0700

csiph-web