If you ever wondered how to determine, if an opened workbook was saved before below you'll find a code snippet that might do the job for you.

'@Author - Alexander Bolte 
'@ChangeDate - 2014-05-30 
'@Description - Returns true, if a workbooks path property 
'is unequal an empty string. 
'This is true only if the workbook has been saved. 
'@Param wrk - an initialized Excel Workbook object. Function fails, if Nothing is handed. 
'@Returns true, if a given workbook has been saved. Else False.
Public Function wasWorkbookEverSaved(ByRef wrk As Workbook) As Boolean
  Dim ret As Boolean
  
  ret = wrk.path <> ""
  
  wasWorkbookEverSaved = ret
End Function

Last Updated: 19 August 2015

Hits: 5712

If you have to determine the total count of records in a Recordset, you can use the RecordCount property.

But first you have to move to the last record in the Recordset by using the MoveLast method.

Source Code

src.MoveLast
src.MoveFirst
 
src.RecordCount

Last Updated: 19 September 2017

Hits: 5473

Below function displays a file picker dialog and returns the picked file path as String.

Source Code

' @Author - Alexander Bolte
' @ChangeDate - 2014-10-09
' @Description - Displaying a Windows explorer standard file picker dialog to user and returning picked file path as String.
' @Returns - A String holding a full file path. If user aborted file picker dialog the returned String is empty("").
Public Function getSingleFilePath() As String
    Dim myFileDialog As FileDialog
    Dim filePath As String
    
    ' Search for file.
    Set myFileDialog = Application.FileDialog(msoFileDialogFilePicker)
    myFileDialog.InitialView = msoFileDialogViewDetails
    
    ' Prompt dialog to user.
    If myFileDialog.Show = -1 Then
        filePath = myFileDialog.SelectedItems.Item(1)
    End If
    
    getSingleFilePath = filePath
End Function

Last Updated: 09 October 2014

Hits: 5562