The below code works. Now what I now need to do is delete the file after I have transferred the data to Access.
After I execute my DoCmd TransferSpreadsheet statement is this all I need to do to delete the file?
.Title = "Select File"
.Filters.Add "Excel Files", "*.xls"
.InitialFileName = "D:\WilliamsSonoma\OB4"
result = .Show
fileName = Trim(.SelectedItems(1))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "tblLaborMgmtDataImport", fileName, True, "Sheet1!A:G"