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
Excel VBA Code/Excel Macros / Complementos para Excel/vba macros/vba samples Excel Macros/Excel VBA/Excel Add-ins /Microsoft Excel/Spreadsheet Tools/Charts
domingo, 14 de septiembre de 2008
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
'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
Suscribirse a:
Entradas (Atom)