Code:
Const transferDir = "c:\my documents\" rangeName = "Companies" tableName = "Companies" DoCmd.RunSQL "delete from " & tableName DoCmd.TransferSpreadsheet acImport, 8, tableName, _ transferDir & "OriginalData.xls", True, rangeName
Const transferDir = "c:\my documents\" rangeName = "Companies" tableName = "Companies" DoCmd.RunSQL "delete from " & tableName DoCmd.TransferSpreadsheet acImport, 8, tableName, _ transferDir & "OriginalData.xls", True, rangeName
DoCmd.TransferText acImportDelim
Leave a comment: