[VB6] Salvataggio di file Excel con nome

[tippolo]

Ho fatto un progetto in VB che mi scrive su un foglio Excel già preconfezionato, alla chiusura del programma mi salva automaticamente il file Excel nella cartella superiore in cui si trova l’eseguibile.
La mia necessità era di far scegliere all’utente la directory in cui salvare uil file, so che bisogna usare CommonDialog ma sinceramente non so cosa fare.


Private Sub Form_Unload(Cancel As Integer)
On Error GoTo errore
Dim retval As Integer
retval = MsgBox("Vuoi salvare il conteggio dell'estratto conto del Sig: " & ExcelObj.Label17 & "?", vbYesNo + vbQuestion, "Attenzione!")
If retval = vbYes Then
Beep
FileExcel.SaveAs App.Path & " " & ExcelObj.Label17 'salva il file
FileExcel.Close
Beep
MsgBox "Il conteggio dell'estratto conto del Sig: " & ExcelObj.Label17 & " " & "è stato salvato.", vbInformation, "Fine lavoro"
Else
FileExcel.Close (False) 'chiude il file senza salvare
End If
errore:
'MsgBox "Errore " & Err.Number & vbCrLf & Err.Description
Set FileExcel = Nothing 'libero ("scarico") la variabile
End
End Sub

Qualcuno potrebbe aiutarmi?

[alka]

Ci stiamo riferendo a VB6? Il linguaggio va indicato anche nel titolo, come da Regolamento.

Eventualmente, leggi tutto quanto prima di postare e fornisci le informazioni mancanti.

Ciao!

[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

[tippolo]

Grazie lMondi tutto OK