Method userform of Excel
The Excel method
* Displays the Save As dialog box and allows selection of a file
* Returns a file name and route, but does not initiate any action. Syntax
original file name: Optional (specify the file name)
File Filter: Optional. a string specifying file filtering criteria
FilterIndex Optional. The default index numbers
Title. Optional. The title of the dialog box
ButtonText
.
Macintosh only
method Example of use of Excel
GetSaveAsFileName Sub
GetSaveasFilename ()
fileSaveName As String Dim
Application.GetSaveasFilename fileSaveName = (FileFilter: = "Excel Files (*. xls), *. xls") If fileSaveName
<> False Then
ActiveWorkbook. SaveAs (fileSaveName)
MsgBox "The workbook is saved in:" &
fileSaveName
End If End Sub
Sunday, September 14, 2008
Inebrya Ice Cream Hair Colour Rouge
GetSaveAsFileName
'MsgBox II
' Sometimes it will be necessary to force line breaks in messages
showing "The NEXT is an example of this situation. Sub
msgboxII ()
Dim msg As String Dim rpt As Byte
msg = "You must always ensure" & vbCrLf msg = msg &
"to prevent users from manipulating" & vbCrLf msg =
msg & "Information from other areas Are you fulfilling that task?"
rpt = MsgBox (msg, vbYesNo + vbQuestion)
If rpt = vbYes
Then MsgBox "Make the tasks ff"
Else MsgBox "Check again"
End If End Sub
'MsgBox II
' Sometimes it will be necessary to force line breaks in messages
showing "The NEXT is an example of this situation. Sub
msgboxII ()
Dim msg As String Dim rpt As Byte
msg = "You must always ensure" & vbCrLf msg = msg &
"to prevent users from manipulating" & vbCrLf msg =
msg & "Information from other areas Are you fulfilling that task?"
rpt = MsgBox (msg, vbYesNo + vbQuestion)
If rpt = vbYes
Then MsgBox "Make the tasks ff"
Else MsgBox "Check again"
End If End Sub
Subscribe to:
Posts (Atom)