Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|SKip past fields with no data||6||11|
|Comparison query - 4 columns||9||22|
|Expanding and filling year gaps in multiple listings||6||24|
|modifying sql to include addl criteria||11||13|