Cuadro de Dialogo "Guardar Como" ?

bcnjam
12 de Diciembre del 2003
Hola a todo el mundo!

Necesitaria un codigo de ejemplo que muestre como Guardar un archivo de Excel pero a traves del Cuadro de Dialogo "Guardar Como".

Actualmente consigo que me abra el Cuadro de Dialogo con el nombre del Archivo que deseo y el path que quiero pero al cliquear sobre el boton "Guardar" no graba el archivo. :-S

Si alguien puede enviarme algo de codigo a mi correo se lo agradeceré.

Gracias y Saludos !

Buyeya
12 de Diciembre del 2003
Hola, tal vez no estes cerrando el archivo, o estes usando un archivo vacio.. este es el código que utilizo y siempre me funciona
Dim strArchivo As String
'Abre el archivo que va a contener los datos
With CommonDialog
.DialogTitle = "Guardar como..."
.CancelError = False
.Filter = "Archivos de Planillas (*.xls)|*.xls|Todos los Archivos (*.*)|*.*"
.ShowSave
strArchivo = .FileName
If Len(.FileName) = 0 Then
MsgBox "No se seleccione ningún nombre para el Archivo", vbInformation, Me.Caption
Exit Sub 'No seleccione ningún archivo"
End If
End With

Open strArchivo For Output As #1

'tu código

Close #1


bcnjam
12 de Diciembre del 2003
Peor con este codigo no puedo decirle el path de la carpeta donde lo quiero guardar. Por eso utilizaba los metodos

chdir destino2
Application.GetSaveAsFilename(Nombre_Fichero)

o

Application.Dialogs(xlDialogSaveAs).Show (Destino2)

Siendo Destino2 el path de lacarpeta donde voy a guardar el fichero