Function ImportExcelFile() Dim MyDir As String Dim MyFile As String Dim MyYear As String Dim MyMonth As String Dim MyDay As String Dim MyDate As String Dim FileToGet As String Dim shtName As String MyDir = "//AvailableSummaries/" MyYear = Format(Date, "yyyy") MyMonth = Format(Date, "mm") MyDay = Format(Date, "dd") MyDate = MyYear & " " & MyMonth & "-" & MyDay MyFile = MyDate & " Contractor Available Stock" & ".xls" shtName = "'Contractor Available Inventory'!" MyRange = "A1:D10000" FileToGet = MyDir & MyFile DoCmd.TransferSpreadsheet acImport, 8, "tblContractorAvailableInventory", FileToGet, True, shtName & MyRange End Function
|MS Access Order Smallest to Biggest Query Help||13||40|
|Update As Well As Add||6||34|
|NEED TO UPDATE DATA IN EXCEL||18||25|
|Dlook problems updating an unbound textbox from a table with criteria from another unbound textbox||3||12|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
7 Experts available now in Live!