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?