[VB6] Salvataggio di file Excel con nome

[LMondi]

Ciao tippolo,
di seguito riporto il codice per la ComDial, con i relativi Flags e Filter che avrai cura di modificarli secondo le tue necessità. Dovrai anche decidere il punto d'inserimento:

With FrmTuo.CommonDialog1
        ' Imposta CancelError su True:
            .CancelError = True
            On Error GoTo ErrHandler
            .DialogTitle = "Selezionare la destinazione del file"
            .Flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNOverwritePrompt Or cdlOFNNoReadOnlyReturn
            .Filter = "File di programma (*.csv)|*.csv|Documenti di Testo (*.txt)|*.txt|" & _
            "Tutti i Files (*.*)|*.*"
            .FilterIndex = 1
            .DefaultExt = "csv"
            .InitDir = App.Path & "\CartellaPrincipale\SubCartella\"
            .ShowSave
ErrHandler:
        ' é stato scelto Annulla:
            If Err.Number = 32755 Then
                boolErrAnnCO1 = True
                Exit Sub
                Else: boolErrAnnCO1 = False
            End If
End With