Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.