Cuadro de Dialogo "Guardar Como" ?
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 !
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 !
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
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
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
chdir destino2
Application.GetSaveAsFilename(Nombre_Fichero)
o
Application.Dialogs(xlDialogSaveAs).Show (Destino2)
Siendo Destino2 el path de lacarpeta donde voy a guardar el fichero