Metodo GetSaveAsFileName de Excel

El metodo GetSaveAsFileName de Excel

* Despliega el cuadro de dialogo guardar como y permite la seleccion de un archivo

* Devuelve un nombre de archivo y ruta ,pero no inicia ninguna acción .

Sintaxis

Nombre inicial de archivo :Opcional(especifica el nombre del archivo)

Filtro de archivo :Opcional. una cadena especificando el criterio de filtro archivo

Filterindex Opcional .Los numeros del indice por defecto

Titulo .Opcional .El titulo del cuadro de dialogo

ButtonText .Solo para macintosh


Ejemplo de empleo del metodo GetSaveAsFileName de Excel



Sub GetSaveasFilename()

Dim fileSaveName As String


fileSaveName = Application.GetSaveasFilename(fileFilter:="Excel Files (*.xls), *.xls")

If fileSaveName <> False Then

ActiveWorkbook.SaveAs (fileSaveName)

MsgBox "El libro se guardo en :" & fileSaveName

End If



End Sub

Msgbox

'MsgBox II

'En ocasiones sera necesario forzar rotura de lineas en los mensajes que muestre

'El sgte es un ejemplo de esta situación.


Sub msgboxII()


Dim msg As String
Dim rpt As Byte


msg = "Usted debe asegurarse siempre " & vbCrLf
msg = msg & "de evitar que los usuarios manipulen " & vbCrLf
msg = msg & "Información de otras areas ¿Esta cumpliendo con esa tarea ?"

rpt = MsgBox(msg, vbYesNo + vbQuestion)

If rpt = vbYes Then

MsgBox "Realice las sgtes tareas"

Else

MsgBox "Revise nuevamente"

End If


End Sub