Hello all, When trying to export save a file i get the following error in my SaveDialog window: The bold line is where the error occurs, says: Object Required
Dim eRuta As String
On Local Error GoTo errores
'dialog.DialogTitle = "Exportar Archivo"
cDialog.Filter = "Excel File (*.XLS)"
cDialog.FileName = "Reporte.XLS"
With cDialog
.Filter = "Excel Files (*.xls)|*.xls"
cDialog.ShowSave
End With
[B] eRuta = frmRutaExcel.dialog.FileName[/B]
If eRuta <> "" Then
txtRuta.Text = Trim(eRuta)
End If