How
can I tell if a file exists in a specific folder?
Function bFileExists(rsFullPath As String) As Boolean
bFileExists = CBool(Len(Dir$(rsFullPath)) > 0)
End Function
How
can I tell if a specific workbook is open?
Function bWorkbookIsOpen(rsWbkName As String) As Boolean
On Error Resume Next
bWorkbookIsOpen = CBool(Len(Workbooks(rsWbkName).Name) > 0)
End Function
How
can I tell if a specific worksheet exists?
Function WksExists(wksName As String) As Boolean
On Error Resume Next
WksExists = CBool(Len(Worksheets(wksName).Name) > 0)
End Function
You can call this function from your code, e.g.:
Msgbox WksExists("Sheet19")
I
want to let the user select a file within my macro.
Sub SelectWebPageToOpen()
Dim ThePage As Variant
ThePage = _
Application.GetOpenFilename("Webpage (*.htm*), *.htm*", _
, "Pick one:")
If ThePage = False Then
MsgBox "You cancelled"
Else
MsgBox "Do something with file " & CStr(ThePage)
End If
End Sub
I
want to let the user enter a "Save As" location in my macro.
Sub SelectSaveFileName()
Dim TheFile As Variant
TheFile = Application.GetSaveAsFilename("C:\Temp\File.xls", _
"Workbook (*.xls), *.xls", , "Your choice:")
If TheFile = False Then
MsgBox "You cancelled"
Else
MsgBox "Do something with file " & CStr(TheFile)
End If
End Sub
How
do I close a file/close Excel with a macro?
ActiveWorkbook.Close savechanges:=False 'true ???
--will close the active workbook
Workbooks("mywkbk.xls").Close savechanges:=False 'true ???
--will close mywkbk.xls
ThisWorkbook.Close savechanges:=False 'true ???
--will close the workbook that holds the code that's running.
Application.Quit will close all of Excel.
--Be careful with this one.
| Main Index
|
